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

Go to the documentation of this file.
00001 !     ################
00002       MODULE MODD_PREP_ISBA
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 !!      V. Masson    *Meteo France*
00022 !!
00023 !!    MODIFICATIONS
00024 !!    -------------
00025 !!      Original       01/2004
00026 !
00027 !*       0.   DECLARATIONS
00028 !             ------------
00029 !
00030 IMPLICIT NONE
00031 !
00032 SAVE
00033 !--------------------------------------------------------------------------
00034 !
00035  CHARACTER(LEN=28) :: CFILE_ISBA     ! input file name
00036  CHARACTER(LEN=6)  :: CTYPE          ! input file type
00037  CHARACTER(LEN=28) :: CFILEPGD_ISBA  ! input file name
00038  CHARACTER(LEN=6)  :: CTYPEPGD       ! input file type
00039  CHARACTER(LEN=28) :: CFILE_SNOW     ! input file name for Snow
00040  CHARACTER(LEN=6)  :: CTYPE_SNOW     ! input file type for Snow
00041  CHARACTER(LEN=28) :: CFILE_HUG      ! input file name for Wg, Wgi
00042  CHARACTER(LEN=6)  :: CTYPE_HUG      ! input file type for Wg, Wgi
00043  CHARACTER(LEN=28) :: CFILE_TG       ! input file name for Tg
00044  CHARACTER(LEN=6)  :: CTYPE_TG       ! input file type for Tg
00045  CHARACTER(LEN=28) :: CFILE_HUG_SURF ! input file name for HUG_SURF
00046  CHARACTER(LEN=28) :: CFILE_HUG_ROOT ! input file name for HUG_ROOT
00047  CHARACTER(LEN=28) :: CFILE_HUG_DEEP ! input file name for HUG_DEEP
00048  CHARACTER(LEN=28) :: CFILE_TG_SURF  ! input file name for TG_SURF
00049  CHARACTER(LEN=28) :: CFILE_TG_ROOT  ! input file name for TG_ROOT
00050  CHARACTER(LEN=28) :: CFILE_TG_DEEP  ! input file name for TG_DEEP
00051 !
00052 REAL              :: XHUG_SURF      ! surface relative soil humidity
00053 REAL              :: XHUG_ROOT      ! root layer relative soil humidity
00054 REAL              :: XHUG_DEEP      ! deep layer relative soil humidity
00055 REAL              :: XHUGI_SURF     ! surf layer relative ice content
00056 REAL              :: XHUGI_ROOT     ! root layer relative ice content
00057 REAL              :: XHUGI_DEEP     ! deep layer relative ice content
00058 REAL              :: XTG_SURF       ! surface temperature
00059 REAL              :: XTG_ROOT       ! root layer temperature
00060 REAL              :: XTG_DEEP       ! deep layer temperature
00061 !
00062 REAL              :: XWR_DEF        ! default for leaves interception reservoir
00063 !--------------------------------------------------------------------------
00064 !
00065 !* normalized dimensions for interpolation grids for soil
00066 INTEGER, PARAMETER           :: NGRID_LEVEL = 20
00067 REAL, DIMENSION(NGRID_LEVEL) :: XGRID_SOIL = (/ 0., 0.01, 0.02, 0.05, 0.1, 0.2,
00068     0.4, 0.7, 1., 1.3, 1.6, 2., 2.5, 3., 3.5, 4., 5., 6., 8., 10.  /)  
00069 !
00070 !--------------------------------------------------------------------------
00071 !
00072 ! Parameter for snow field uniforn initialization
00073 !
00074 LOGICAL :: LSNOW_IDEAL 
00075 !
00076 REAL, DIMENSION(:), POINTER :: XWSNOW         ! Snow reservoir
00077 REAL, DIMENSION(:), POINTER :: XRSNOW         ! snow density
00078 REAL, DIMENSION(:), POINTER :: XTSNOW         ! snow temperature
00079 REAL, DIMENSION(:), POINTER :: XSG1SNOW
00080 REAL, DIMENSION(:), POINTER :: XSG2SNOW
00081 REAL, DIMENSION(:), POINTER :: XHISTSNOW
00082 REAL, DIMENSION(:), POINTER :: XAGESNOW
00083 REAL                  :: XASNOW         ! snow albedo
00084 !
00085 !--------------------------------------------------------------------------
00086 !
00087 END MODULE MODD_PREP_ISBA
00088 
00089