modd_data_lake.F90

Go to the documentation of this file.

!SFX_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
!SFX_LIC This is part of the SURFEX software governed by the CeCILL-C licence
!SFX_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt  
!SFX_LIC for details. version 1.
!     #####################
        MODULE modd_data_lake
!     #####################
!
 CHARACTER(LEN=80), PARAMETER :: clakelta = 'LAKE_LTA_NEW.nc'            ! The dataset file name
 CHARACTER(LEN=80), PARAMETER :: clakeldb = 'GlobalLakeDepth'    ! The file name of the map for global lake depth
 CHARACTER(LEN=80), PARAMETER :: cstatusldb = 'GlobalLakeStatus' ! The file name of the map for global lake depth
!
INTEGER, PARAMETER :: nlong=360, & ! Number of grid boxes of the "lake grid" in longitude
                      nlatg=150    ! Number of grid boxes of the "lake grid" in latitude
REAL, PARAMETER :: xfirstlat=-60.   ! The first latitude of the "lake grid", deg. 
!
INTEGER, PARAMETER :: ngraddepth_lta = 12 ! Number of gradations for Depth
INTEGER, PARAMETER :: ngradstatus_ldb = 5 ! Number of gradations for Status
INTEGER, PARAMETER :: ngraddepth_ldb = 21 ! Number of gradations for Depth
!
REAL, DIMENSION(NGRADDEPTH_LTA), PARAMETER :: xcentrgraddepth_lta = &  ! Central values for the gradations in depth, m
      (/1., 3., 5., 7., 10., 14., 18., 22., 27., 33., 39., 50./)
!                                             
REAL, DIMENSION(NGRADDEPTH_LDB), PARAMETER :: xcentrgraddepth_ldb = &  ! Central values for the gradations for status
      (/0., 1., 3., 5., 7., 10., 14., 18., 22., 27., 33., 39., 50., 70., 100., 150., 250., 400., 600., 1000., 1600./)
! Central values for the gradations for depth
INTEGER, DIMENSION(NGRADSTATUS_LDB), PARAMETER :: ncentrgradstatus_ldb = (/0, 1, 2, 3, 4/)
!
REAL, DIMENSION(NGRADDEPTH_LDB+1), PARAMETER :: xboundgraddepth_ldb = & ! Boundaries of gradations for depth
      (/-99999., 0., 2., 4., 6., 8., 12., 16., 20., 24., 30., 36., 42., 58., 82., 118., 182., 318., 482., 718., 1282., 99999.0/)
! Boundaries of gradations for status
REAL, DIMENSION(NGRADSTATUS_LDB+1), PARAMETER :: xboundgradstatus_ldb = (/-99999.0, 0.5, 1.5, 2.5, 3.5, 99999.0/)
!
REAL, PARAMETER :: xsmall_dummy = -99999.0 ! Small value
!
REAL, PARAMETER :: xc_small=0.01 ! Small value for the lake depth
!
REAL :: xauxt_snow = 273.15
REAL :: xauxt_ice = 273.15
REAL :: xauxt_mnw = 273.15
REAL :: xauxt_wml = 273.15
REAL :: xauxt_bot = 273.15
REAL :: xauxt_b1 = 273.15
REAL :: xauxct = 0.0
REAL :: xauxh_snow = 0.0
REAL :: xauxh_ice = 0.0
REAL :: xauxh_ml = 0.0
REAL :: xauxh_b1 = 0.0
REAL :: xauxt_sfc = 273.15
!
!REAL, PARAMETER :: XT_DUMMY=273.15, & ! Dummy value for temperature
!                   XC_DUMMY=0.0,    & ! Dummy value for the shape-factor
!                   XH_DUMMY=0.0       ! Dummy value for depth
!
END MODULE modd_data_lake