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

Go to the documentation of this file.
00001 !     #####################
00002         MODULE MODD_DATA_LAKE
00003 !     #####################
00004 !
00005  CHARACTER(LEN=80), PARAMETER :: CLAKELTA = 'LAKE_LTA_NEW.nc'            ! The dataset file name
00006  CHARACTER(LEN=80), PARAMETER :: CLAKELDB = 'GlobalLakeDepth'    ! The file name of the map for global lake depth
00007  CHARACTER(LEN=80), PARAMETER :: CSTATUSLDB = 'GlobalLakeStatus' ! The file name of the map for global lake depth
00008 !
00009 INTEGER, PARAMETER :: NLONG=360,  ! Number of grid boxes of the "lake grid" in longitude
00010                       NLATG=150    ! Number of grid boxes of the "lake grid" in latitude
00011 REAL, PARAMETER :: XFIRSTLAT=-60.   ! The first latitude of the "lake grid", deg. 
00012 !
00013 INTEGER, PARAMETER :: NGRADDEPTH_LTA = 12 ! Number of gradations for Depth
00014 INTEGER, PARAMETER :: NGRADSTATUS_LDB = 5 ! Number of gradations for Status
00015 INTEGER, PARAMETER :: NGRADDEPTH_LDB = 21 ! Number of gradations for Depth
00016 !
00017 REAL, DIMENSION(NGRADDEPTH_LTA), PARAMETER :: XCENTRGRADDEPTH_LTA =   ! Central values for the gradations in depth, m
00018       (/1., 3., 5., 7., 10., 14., 18., 22., 27., 33., 39., 50./)
00019 !                                             
00020 REAL, DIMENSION(NGRADDEPTH_LDB), PARAMETER :: XCENTRGRADDEPTH_LDB =   ! Central values for the gradations for status
00021       (/0., 1., 3., 5., 7., 10., 14., 18., 22., 27., 33., 39., 50., 70., 100., 150., 250., 400., 600., 1000., 1600./)
00022 ! Central values for the gradations for depth
00023 INTEGER, DIMENSION(NGRADSTATUS_LDB), PARAMETER :: NCENTRGRADSTATUS_LDB = (/0, 1, 2, 3, 4/)
00024 !
00025 REAL, DIMENSION(NGRADDEPTH_LDB+1), PARAMETER :: XBOUNDGRADDEPTH_LDB =  ! Boundaries of gradations for depth
00026       (/-99999., 0., 2., 4., 6., 8., 12., 16., 20., 24., 30., 36., 42., 58., 82., 118., 182., 318., 482., 718., 1282., 99999.0/)
00027 ! Boundaries of gradations for status
00028 REAL, DIMENSION(NGRADSTATUS_LDB+1), PARAMETER :: XBOUNDGRADSTATUS_LDB = (/-99999.0, 0.5, 1.5, 2.5, 3.5, 99999.0/)
00029 !
00030 REAL, PARAMETER :: XSMALL_DUMMY = -99999.0 ! Small value
00031 !
00032 REAL, PARAMETER :: XC_SMALL=0.01 ! Small value for the lake depth
00033 !
00034 REAL :: XAUXT_SNOW = 273.15
00035 REAL :: XAUXT_ICE = 273.15
00036 REAL :: XAUXT_MNW = 273.15
00037 REAL :: XAUXT_WML = 273.15
00038 REAL :: XAUXT_BOT = 273.15
00039 REAL :: XAUXT_B1 = 273.15
00040 REAL :: XAUXCT = 0.0
00041 REAL :: XAUXH_SNOW = 0.0
00042 REAL :: XAUXH_ICE = 0.0
00043 REAL :: XAUXH_ML = 0.0
00044 REAL :: XAUXH_B1 = 0.0
00045 REAL :: XAUXT_SFC = 273.15
00046 !
00047 !REAL, PARAMETER :: XT_DUMMY=273.15, & ! Dummy value for temperature
00048 !                   XC_DUMMY=0.0,    & ! Dummy value for the shape-factor
00049 !                   XH_DUMMY=0.0       ! Dummy value for depth
00050 !
00051 END MODULE MODD_DATA_LAKE