|
SURFEX v7.3
General documentation of Surfex
|
|
SURFEX v7.3
General documentation of Surfex
|
00001 ! ###################### 00002 MODULE MODD_SNOW_PAR 00003 ! ###################### 00004 ! 00005 !!**** *MODD_SNOW_PAR* - declaration of parameters related 00006 !! to the snow parameterization 00007 !! 00008 !! PURPOSE 00009 !! ------- 00010 ! The purpose of this declarative module is to specify the 00011 ! parameters related to the surface parameterization of snow. 00012 ! 00013 !! 00014 !!** IMPLICIT ARGUMENTS 00015 !! ------------------ 00016 !! None 00017 !! 00018 !! REFERENCE 00019 !! --------- 00020 !! 00021 !! 00022 !! AUTHOR 00023 !! ------ 00024 !! V. Masson *Meteo France* 00025 !! 00026 !! MODIFICATIONS 00027 !! ------------- 00028 !! Original 01/2004 00029 !------------------------------------------------------------------------------- 00030 ! 00031 !* 0. DECLARATIONS 00032 ! ------------ 00033 ! 00034 IMPLICIT NONE 00035 ! 00036 !-------------------------------------------------------------------------------- 00037 ! Snow on the ground: Given in ini_surf_csts and/or in NAM_SURF_CSTS 00038 !-------------------------------------------------------------------------------- 00039 ! 00040 ! Snow emissivity: 00041 ! 00042 REAL, SAVE :: XEMISSN 00043 ! 00044 ! Minimum and maximum values of the albedo of snow: 00045 ! 00046 REAL, SAVE :: XANSMIN 00047 REAL, SAVE :: XANSMAX 00048 ! 00049 ! Minimum and maximum values of the albedo of permanet snow/ice: 00050 ! 00051 REAL, SAVE :: XAGLAMIN 00052 REAL, SAVE :: XAGLAMAX 00053 ! 00054 ! Prescribed ice albedo in 3 spectral bands for glacier simulation with CROCUS scheme. 00055 REAL, SAVE :: XALBICE1,XALBICE2,XALBICE3 00056 ! 00057 00058 ! Density threshold for ice detection in CROCUS scheme. 00059 REAL, SAVE :: XRHOTHRESHOLD_ICE 00060 00061 !for ageing effects 00062 REAL, SAVE :: XVAGING_NOGLACIER, XVAGING_GLACIER 00063 00064 ! Height (m) of aged snow in glacier case (allows Pn=1) 00065 ! 00066 REAL, SAVE :: XHGLA 00067 ! 00068 ! Coefficient for calculation of snow fraction over vegetation 00069 ! 00070 REAL, SAVE :: XWSNV 00071 ! 00072 ! Roughness length of pure snow surface (m) 00073 ! 00074 REAL, SAVE :: XZ0SN 00075 ! 00076 ! Roughness length for heat of pure snow surface (m) 00077 ! 00078 REAL, SAVE :: XZ0HSN 00079 ! 00080 ! Roughness length ratio between ice and snow 00081 REAL, SAVE :: XZ0ICEZ0SNOW 00082 ! 00083 ! Logicals for snowdrift and sublimation 00084 LOGICAL,SAVE :: LSNOWDRIFT, LSNOWDRIFT_SUBLIM 00085 00086 ! Snow Melt timescale with D95 (s): needed to prevent time step 00087 ! dependence of melt when snow fraction < unity. 00088 ! 00089 REAL, SAVE :: XTAU_SMELT 00090 ! 00091 !-------------------------------------------------------------------------------- 00092 ! Snow on the ground: PARAMETER 00093 !-------------------------------------------------------------------------------- 00094 ! 00095 ! Critical value of the equivalent water content 00096 ! of the snow reservoir for snow fractional coverage and albedo computations 00097 ! 00098 REAL, PARAMETER :: XWCRN = 10.0 ! (kg m-2) Veg (default value) 00099 REAL, PARAMETER :: XWCRN_EXPL = 1.0 ! (kg m-2) Veg explicit 00100 REAL, PARAMETER :: XWCRN_ROOF = 1.0 ! (kg m-2) Roofs 00101 REAL, PARAMETER :: XWCRN_ROAD = 1.0 ! (kg m-2) Roads 00102 REAL, PARAMETER :: XWCRN_VEG = 1.0 ! (kg m-2) Urban veg 00103 ! 00104 ! 00105 ! Critical value of snow emissivity 00106 ! 00107 REAL, PARAMETER :: XEMCRIN = 0.98 00108 ! 00109 ! Minimum and maximum values of the albedo of snow: 00110 ! 00111 REAL, PARAMETER :: XANSMIN_ROOF = 0.30 ! (-) Roofs 00112 REAL, PARAMETER :: XANSMIN_ROAD = 0.15 ! (-) Roads 00113 ! 00114 REAL, PARAMETER :: XANSMAX_ROOF = 0.85 ! (-) Roofs 00115 REAL, PARAMETER :: XANSMAX_ROAD = 0.85 ! (-) Roads 00116 ! 00117 ! Snow aging coefficients (albedo and Force-Restore density): 00118 ! 00119 REAL, PARAMETER :: XANS_TODRY = 0.008 ! (-) Veg (default value) 00120 REAL, PARAMETER :: XANS_TODRY_ROOF = 0.008 ! (-) Roofs 00121 REAL, PARAMETER :: XANS_TODRY_ROAD = 0.008 ! (-) Roads 00122 ! 00123 REAL, PARAMETER :: XANS_T = 0.240 ! (-) Veg (default value) 00124 REAL, PARAMETER :: XANS_T_ROOF = 0.174 ! (-) Roofs 00125 REAL, PARAMETER :: XANS_T_ROAD = 0.174 ! (-) Roads (alley simul) 00126 ! 00127 ! Minimum and maximum values of the density of snow 00128 ! for Force-Restore snow option 00129 ! 00130 REAL, PARAMETER :: XRHOSMIN = 100. ! (kg m-3) Veg (Default value) 00131 REAL, PARAMETER :: XRHOSMIN_ROOF = 100. ! (kg m-3) Roofs 00132 REAL, PARAMETER :: XRHOSMIN_ROAD = 100. ! (kg m-3) Roads 00133 ! 00134 REAL, PARAMETER :: XRHOSMAX = 300. ! (kg m-3) Veg (Default value) 00135 REAL, PARAMETER :: XRHOSMAX_ROOF = 300. ! (kg m-3) Roofs 00136 REAL, PARAMETER :: XRHOSMAX_ROAD = 350. ! (kg m-3) Roads 00137 ! 00138 ! Minimum and maximum values of the density of snow 00139 ! for ISBA-ES snow option 00140 ! 00141 REAL, PARAMETER :: XRHOSMIN_ES = 50. ! (kg m-3) 00142 REAL, PARAMETER :: XRHOSMAX_ES = 750. ! (kg m-3) 00143 ! 00144 ! ISBA-ES Critical snow depth at which snow grid thicknesses constant 00145 ! 00146 REAL, PARAMETER :: XSNOWCRITD = 0.03 ! (m) 00147 ! 00148 ! ISBA-ES Minimum total snow depth for model 00149 ! 00150 ! REAL, PARAMETER :: XSNOWDMIN = 0.000001 ! (m) 00151 REAL, PARAMETER :: XSNOWDMIN = 4E-5 ! (m) 00152 ! 00153 ! Maximum Richardson number limit for very stable conditions using the ISBA-ES 'RIL' option 00154 ! 00155 REAL, PARAMETER :: X_RI_MAX = 0.20 00156 ! 00157 ! ISBA-ES Maximum snow liquid water holding capacity (fraction by mass) parameters: 00158 ! 00159 REAL, PARAMETER :: XWSNOWHOLDMAX2 = 0.10 ! (-) 00160 REAL, PARAMETER :: XWSNOWHOLDMAX1 = 0.03 ! (-) 00161 REAL, PARAMETER :: XSNOWRHOHOLD = 200.0 ! (kg/m3) 00162 ! 00163 00164 !-------------------------------------------------------------------------------- 00165 ! Calibration coefficients for CROCUS albedo computation 00166 !-------------------------------------------------------------------------------- 00167 ! for grains effects: 00168 ! REAL, PARAMETER :: XD1=1., XD2=3., XD3=4., XX=99.,XVALB2=.96, XVALB3=1.58,& 00169 ! XVALB4=.94,XVALB5=.95,XVALB6=15.4,XVALB7=346.3, XVALB8=32.31, & 00170 ! XVALB9=.88, XVALB10=.175,XVALB11=.7,XVDIOP1=2.3E-3, & 00171 ! XVRPRE1=.5,XVRPRE2=1. 00172 ! ! for ageing effects: 00173 ! REAL, PARAMETER :: XVAGING_SOIL=90. , XVAGING_GLACIER=900. , XVPRES1=87000. 00174 00175 ! modifs SM 20110805 tests SIberie - albedo 00176 REAL, PARAMETER :: XD1=1., XD2=3., XD3=4., XX=99.,XVALB2=.96, XVALB3=1.58, 00177 XVALB4=.92,XVALB5=.90,XVALB6=15.4,XVALB7=346.3, XVALB8=32.31, 00178 XVALB9=.88,XVALB10=.200,XVALB11=.6,XVDIOP1=2.3E-3, 00179 XVRPRE1=.5,XVRPRE2=1.5 00180 ! for ageing effects: 00181 REAL, PARAMETER :: XVPRES1=87000. 00182 ! REAL, PARAMETER :: XZ_SWE_ALB=5. 00183 ! end modifs SM 20110805 tests SIberie - albedo 00184 00185 00186 ! for spectral distribution and thickness effects 00187 REAL, PARAMETER :: XVSPEC1=.71, XVSPEC2=.21 , XVSPEC3=.08 00188 ! modif SM 20110519 00189 !REAL, PARAMETER :: XVSPEC1=.68, XVSPEC2=.25 , XVSPEC3=.07 00190 ! end modif SM 20110519 00191 ! for thickness effects 00192 REAL, PARAMETER :: XVW1=.80, XVW2=.20 , XVD1=.02, XVD2=.01 00193 !-------------------------------------------------------------------------------- 00194 00195 END MODULE MODD_SNOW_PAR 00196 00197 00198 00199 00200 00201 00202 00203 00204 00205 00206 00207
1.8.0
