SURFEX v7.3: /home/dasprezs/EXPORT_v7_3/src/SURFEX/modn_ideal

Go to the documentation of this file.
00001 !     ##################
00002       MODULE MODN_IDEAL_FLUX
00003 !     ##################
00004 !
00005 !!****  *MODN_IDEAL_FLUX - declaration of keys for 
00006 !!
00007 !!    PURPOSE
00008 !!    -------
00009 !
00010 !!
00011 !!**  IMPLICIT ARGUMENTS
00012 !!    ------------------
00013 !!      None 
00014 !!
00015 !!    REFERENCE
00016 !!    ---------
00017 !!
00018 !!    AUTHOR
00019 !!    ------
00020 !!      S. Faroux   *Meteo France*
00021 !!
00022 !!    MODIFICATIONS
00023 !!    -------------
00024 !!      Original       01/10/10
00025 !
00026 !*       0.   DECLARATIONS
00027 !             ------------
00028 !
00029 USE MODD_IDEAL_FLUX, ONLY : NFORC_MAX, NFORCF, NFORCT, XSFTH_f=>XSFTH, XSFTQ_f=>XSFTQ, &
00030                             XSFCO2_f=>XSFCO2, CUSTARTYPE, XUSTAR_f=>XUSTAR, XZ0, XALB, &
00031                             XEMIS, XTSRAD_t=>XTSRAD, XTIMEF_f=>XTIMEF, XTIMET_t=>XTIMET   
00032   
00033 IMPLICIT NONE
00034 !
00035 REAL, DIMENSION(NFORC_MAX) :: XSFTH
00036  CHARACTER(LEN=7) :: CSFTQ ! Unit for the evaporation flux :
00037                           !'kg/m2/s'
00038                           !'W/m2   '
00039 REAL, DIMENSION(NFORC_MAX) :: XSFTQ
00040 REAL, DIMENSION(NFORC_MAX) :: XSFCO2
00041 REAL, DIMENSION(NFORC_MAX) :: XUSTAR
00042 REAL, DIMENSION(NFORC_MAX) :: XTSRAD
00043 REAL, DIMENSION(NFORC_MAX) :: XTIMEF
00044 REAL, DIMENSION(NFORC_MAX) :: XTIMET
00045 !
00046 !
00047 NAMELIST/NAM_IDEAL_FLUX/NFORCF, NFORCT, XTIMEF, XTIMET, XSFTH, CSFTQ, XSFTQ, XSFCO2, &
00048                         CUSTARTYPE, XUSTAR, XZ0, XALB, XEMIS, XTSRAD
00049 !
00050 END MODULE MODN_IDEAL_FLUX