45 REAL,
PARAMETER :: XWSNOW_CLIM_GRAD = - 0.08 * 300. * (-0.0065)
50 LOGICAL :: LSNOW_FRAC_TOT
51 INTEGER,
PARAMETER :: NSNOW_LAYER_MAX = 50
52 LOGICAL :: LSNOW_PREP_PERM
57 INTEGER,
PARAMETER :: NGRID_LEVEL = 40
58 REAL,
DIMENSION(NGRID_LEVEL) :: XGRID_SNOW = &
59 (/0.01,0.02,0.03,0.04,0.05,0.06,0.08,0.10,0.12,0.14,&
60 0.16,0.18,0.21,0.25,0.30,0.35,0.40,0.45,0.50,0.55,&
61 0.60,0.65,0.70,0.75,0.80,0.85,0.87,0.88,0.89,0.90,&
62 0.91,0.92,0.93,0.94,0.95,0.96,0.97,0.98,0.99,1.00/)