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

Go to the documentation of this file.
00001 !     ################
00002       MODULE MODD_PREP_TEB_GREENROOF
00003 !     ################
00004 !
00005 !!****  *MODD_PREP - declaration for field interpolations
00006 !!
00007 !!    PURPOSE
00008 !!    -------
00009 !     Declaration of surface parameters
00010 !
00011 !!
00012 !!**  IMPLICIT ARGUMENTS
00013 !!    ------------------
00014 !!      None 
00015 !!
00016 !!    REFERENCE
00017 !!    ---------
00018 !!
00019 !!    AUTHOR
00020 !!    ------
00021 !!      A. Lemonsu & C. de Munck 
00022 !!
00023 !!    MODIFICATIONS
00024 !!    -------------
00025 !!      Original       07/2011
00026 !
00027 !*       0.   DECLARATIONS
00028 !             ------------
00029 !
00030 IMPLICIT NONE
00031 !
00032 !--------------------------------------------------------------------------
00033 !
00034  CHARACTER(LEN=28) :: CFILE_ISBA     ! input file name
00035  CHARACTER(LEN=6)  :: CTYPE          ! input file type
00036  CHARACTER(LEN=28) :: CFILEPGD_ISBA   ! input file name
00037  CHARACTER(LEN=6)  :: CTYPEPGD       ! input file type
00038  CHARACTER(LEN=28) :: CFILE_SNOW     ! input file name for Snow
00039  CHARACTER(LEN=6)  :: CTYPE_SNOW     ! input file type for Snow
00040  CHARACTER(LEN=28) :: CFILE_HUG      ! input file name for Wg, Wgi
00041  CHARACTER(LEN=6)  :: CTYPE_HUG      ! input file type for Wg, Wgi
00042  CHARACTER(LEN=28) :: CFILE_TG       ! input file name for Tg
00043  CHARACTER(LEN=6)  :: CTYPE_TG       ! input file type for Tg
00044  CHARACTER(LEN=28) :: CFILE_HUG_SURF ! input file name for HUG_SURF
00045  CHARACTER(LEN=28) :: CFILE_HUG_ROOT ! input file name for HUG_ROOT
00046  CHARACTER(LEN=28) :: CFILE_HUG_DEEP ! input file name for HUG_DEEP
00047  CHARACTER(LEN=28) :: CFILE_TG_SURF  ! input file name for TG_SURF
00048  CHARACTER(LEN=28) :: CFILE_TG_ROOT  ! input file name for TG_ROOT
00049  CHARACTER(LEN=28) :: CFILE_TG_DEEP  ! input file name for TG_DEEP
00050 !
00051 REAL              :: XHUG_SURF      ! surface relative soil humidity
00052 REAL              :: XHUG_ROOT      ! root layer relative soil humidity
00053 REAL              :: XHUG_DEEP      ! deep layer relative soil humidity
00054 REAL              :: XHUGI_SURF     ! surf layer relative ice content
00055 REAL              :: XHUGI_ROOT     ! root layer relative ice content
00056 REAL              :: XHUGI_DEEP     ! deep layer relative ice content
00057 REAL              :: XTG_SURF       ! surface temperature
00058 REAL              :: XTG_ROOT       ! root layer temperature
00059 REAL              :: XTG_DEEP       ! deep layer temperature
00060 !
00061 LOGICAL :: LSNOW_IDEAL 
00062 !
00063 REAL, DIMENSION(:), POINTER :: XWSNOW         ! Snow reservoir
00064 REAL, DIMENSION(:), POINTER :: XRSNOW         ! snow density
00065 REAL, DIMENSION(:), POINTER :: XTSNOW         ! snow temperature
00066 REAL                        :: XASNOW         ! snow albedo
00067 !
00068 REAL                        :: XWR_DEF        ! default for leaves interception reservoir
00069 !--------------------------------------------------------------------------
00070 !
00071 !* normalized dimensions for interpolation grids for soil
00072 !
00073 INTEGER, PARAMETER           :: NGRID_LEVEL = 7 
00074 REAL, DIMENSION(NGRID_LEVEL) :: XGRID_SOIL = (/ 0., 0.004, 0.036, 0.068, 0.100, 0.125, 0.150/)
00075 !--------------------------------------------------------------------------
00076 !
00077 END MODULE MODD_PREP_TEB_GREENROOF
00078 
00079