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

Go to the documentation of this file.
00001 !     ################
00002       MODULE MODD_PREP_SNOW
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 USE MODD_SNOW_PAR
00031 !
00032 IMPLICIT NONE
00033 !
00034 !--------------------------------------------------------------------------
00035 !
00036 !* climatological gradient for vertical extrapolations of snow content
00037 !  a rate of 8cm of snow per degree below 0 C is chosen for these mountain tops
00038 ! (climatology from Etchevers 2000 in the Alps and the Jura mountains).
00039 !
00040 REAL, PARAMETER  :: XWSNOW_CLIM_GRAD = - 0.08 * 300.     * (-0.0065)
00041 !
00042 !--------------------------------------------------------------------------
00043 ! Parameters for snow field uniforn initialization
00044 !
00045 LOGICAL :: LSNOW_FRAC_TOT
00046 INTEGER, PARAMETER :: NSNOW_LAYER_MAX = 50
00047 !
00048 !--------------------------------------------------------------------------
00049 !
00050 !* normalized dimensions for interpolation grids for soil
00051 INTEGER, PARAMETER           :: NGRID_LEVEL = 6
00052 REAL, DIMENSION(NGRID_LEVEL) :: XGRID_SNOW = (/ 0., 0.05, 0.1, 0.5, 0.9, 1.  /)
00053 !
00054 !--------------------------------------------------------------------------
00055 !
00056 END MODULE MODD_PREP_SNOW