MODD_SNOW_PAR Module

  1. modd_snow_par.F90
  2. MODD_SNOW_PAR

Contents

Variables

XEMISSN XANSMIN XANSMAX XAGLAMIN XAGLAMAX LMEBREC XANSFRACMEL XTEMPANS XANSMINMEB XALBICE1 XALBICE2 XALBICE3 XRHOTHRESHOLD_ICE XVAGING_NOGLACIER XVAGING_GLACIER XPERCENTAGEPORE XHGLA XWSNV XZ0SN XZ0HSN XZ0ICEZ0SNOW XTAU_SMELT XWCRN XWCRN_EXPL XWCRN_ROOF XWCRN_ROAD XWCRN_VEG XDCRN_EXPL XEMCRIN XANSMIN_ROOF XANSMIN_ROAD XANSMAX_ROOF XANSMAX_ROAD XANS_TODRY XANS_TODRY_ROOF XANS_TODRY_ROAD XANS_TODRY_MEB XANS_T XANS_T_ROOF XANS_T_ROAD XANS_T_MEB XRHOSMIN XRHOSMIN_ROOF XRHOSMIN_ROAD XRHOSMAX XRHOSMAX_ROOF XRHOSMAX_ROAD XRHOSMIN_ES XRHOSMAX_ES XSNOWCRITD XSNOWDMIN X_RI_MAX XWSNOWHOLDMAX2 XWSNOWHOLDMAX1 XSNOWRHOHOLD XSNOW_AGRAIN XSNOW_BGRAIN XSNOW_CGRAIN XDSGRAIN_MAX XD1 XD2 XD3 XX XVALB2 XVALB3 XVALB4 XVALB5 XVALB6 XVALB7 XVALB8 XVALB9 XVALB10 XVALB11 XVDIOP1 XVRPRE1 XVRPRE2 XVPRES1 NSPEC_BAND_SNOW XVSPEC1 XVSPEC2 XVSPEC3 XVW1 XVW2 XVD1 XVD2 XVBETA1 XVBETA2 XVBETA3 XVBETA4 XVBETA5 XMINCOSZEN XSNOWTHRMCOND1 XSNOWTHRMCOND2 XSNOWTHRMCOND_AVAP XSNOWTHRMCOND_BVAP XSNOWTHRMCOND_CVAP XVRKZ6 XSNOWFALL_A_SN XSNOWFALL_B_SN XSNOWFALL_C_SN XDZ1 XDZ2 XDZ3 XDZ3_BIS XDZ4 XDZ5 XDZ_BASE XDZ_INTERNAL XSCALE_CM XDZMAX_INTERNAL XDZMIN_TOP_EXTREM XSNOWFALL_THRESHOLD XRATIO_NEWLAYER XDEPTH_THRESHOLD1 XDEPTH_THRESHOLD2 XDEPTH_SURFACE XDIFF_1 XDIFF_MAX XSCALE_DIFF XDZMIN_TOP XDZMIN_TOP_BIS XDZMIN_BOT XSPLIT_COEF XAGREG_COEF_1 XAGREG_COEF_2 XVTIME XVROMAX XVROMIN XVMOB1 XVMOB2 XVMOB3 XVMOB4 XVDRIFT1 XVDRIFT2 XVDRIFT3 XVSIZEMIN XCOEF_FF XCOEF_EFFECT XQS_REF XSGCOEF1 XSGCOEF2 XSGCOEF3 XSNOWTRANS XSNOWTRANS1 XSNOWTRANS2 XSNOWTRANS3 XSNOWTRANS4 XSNOWTRANS5 IFR IFR_LB ILB ILB_FIN ILB_ANG IROUL IFIN IFIN_AR IFIN_ANG IPL IPL_GOB IGOB IGEL IGOB_FON IRON_ANG ICRIS_DEND1D ICRIS_NONDEND1D

Variables

TypeVisibility AttributesNameInitial
real, public, SAVE:: XEMISSN
real, public, SAVE:: XANSMIN
real, public, SAVE:: XANSMAX
real, public, SAVE:: XAGLAMIN
real, public, SAVE:: XAGLAMAX
logical, public, SAVE:: LMEBREC
real, public, SAVE:: XANSFRACMEL
real, public, SAVE:: XTEMPANS
real, public, SAVE:: XANSMINMEB
real, public, SAVE:: XALBICE1
real, public, SAVE:: XALBICE2
real, public, SAVE:: XALBICE3
real, public, SAVE:: XRHOTHRESHOLD_ICE
real, public, SAVE:: XVAGING_NOGLACIER
real, public, SAVE:: XVAGING_GLACIER
real, public, SAVE:: XPERCENTAGEPORE
real, public, SAVE:: XHGLA
real, public, SAVE:: XWSNV
real, public, SAVE:: XZ0SN
real, public, SAVE:: XZ0HSN
real, public, SAVE:: XZ0ICEZ0SNOW
real, public, SAVE:: XTAU_SMELT
real, public, parameter:: XWCRN =10.0
real, public, parameter:: XWCRN_EXPL =1.0
real, public, parameter:: XWCRN_ROOF =1.0
real, public, parameter:: XWCRN_ROAD =1.0
real, public, parameter:: XWCRN_VEG =1.0
real, public, parameter:: XDCRN_EXPL =0.01
real, public, parameter:: XEMCRIN =0.98
real, public, parameter:: XANSMIN_ROOF =0.30
real, public, parameter:: XANSMIN_ROAD =0.15
real, public, parameter:: XANSMAX_ROOF =0.85
real, public, parameter:: XANSMAX_ROAD =0.85
real, public, parameter:: XANS_TODRY =0.008
real, public, parameter:: XANS_TODRY_ROOF =0.008
real, public, parameter:: XANS_TODRY_ROAD =0.008
real, public, parameter:: XANS_TODRY_MEB =0.016
real, public, parameter:: XANS_T =0.240
real, public, parameter:: XANS_T_ROOF =0.174
real, public, parameter:: XANS_T_ROAD =0.174
real, public, parameter:: XANS_T_MEB =0.480
real, public, parameter:: XRHOSMIN =100.
real, public, parameter:: XRHOSMIN_ROOF =100.
real, public, parameter:: XRHOSMIN_ROAD =100.
real, public, parameter:: XRHOSMAX =300.
real, public, parameter:: XRHOSMAX_ROOF =300.
real, public, parameter:: XRHOSMAX_ROAD =350.
real, public, parameter:: XRHOSMIN_ES =50.
real, public, parameter:: XRHOSMAX_ES =750.
real, public, parameter:: XSNOWCRITD =0.03
real, public, parameter:: XSNOWDMIN =0.000001
real, public, parameter:: X_RI_MAX =0.20
real, public, parameter:: XWSNOWHOLDMAX2 =0.10
real, public, parameter:: XWSNOWHOLDMAX1 =0.03
real, public, parameter:: XSNOWRHOHOLD =200.0
real, public, parameter:: XSNOW_AGRAIN =1.6e-4
real, public, parameter:: XSNOW_BGRAIN =1.1e-13
real, public, parameter:: XSNOW_CGRAIN =0.5e-4
real, public, parameter:: XDSGRAIN_MAX =2.796e-3
real, public, parameter:: XD1 =1.
real, public, parameter:: XD2 =3.
real, public, parameter:: XD3 =4.
real, public, parameter:: XX =99.
real, public, parameter:: XVALB2 =.96
real, public, parameter:: XVALB3 =1.58
real, public, parameter:: XVALB4 =.92
real, public, parameter:: XVALB5 =.90
real, public, parameter:: XVALB6 =15.4
real, public, parameter:: XVALB7 =346.3
real, public, parameter:: XVALB8 =32.31
real, public, parameter:: XVALB9 =.88
real, public, parameter:: XVALB10 =.200
real, public, parameter:: XVALB11 =.6
real, public, parameter:: XVDIOP1 =2.3E-3
real, public, parameter:: XVRPRE1 =.5
real, public, parameter:: XVRPRE2 =1.5
real, public, parameter:: XVPRES1 =87000.
integer, public, parameter:: NSPEC_BAND_SNOW =3
real, public, parameter:: XVSPEC1 =.71
real, public, parameter:: XVSPEC2 =.21
real, public, parameter:: XVSPEC3 =.08
real, public, parameter:: XVW1 =.80
real, public, parameter:: XVW2 =.20
real, public, parameter:: XVD1 =.02
real, public, parameter:: XVD2 =.01
real, public, parameter:: XVBETA1 =1.92E-3
real, public, parameter:: XVBETA2 =40.
real, public, parameter:: XVBETA3 =1.098E-2
real, public, parameter:: XVBETA4 =100.
real, public, parameter:: XVBETA5 =2000.
real, public, parameter:: XMINCOSZEN =0.01
real, public, parameter:: XSNOWTHRMCOND1 =0.02
real, public, parameter:: XSNOWTHRMCOND2 =2.5E-6
real, public, parameter:: XSNOWTHRMCOND_AVAP =-0.06023
real, public, parameter:: XSNOWTHRMCOND_BVAP =-2.5425
real, public, parameter:: XSNOWTHRMCOND_CVAP =-289.99
real, public, parameter:: XVRKZ6 =1.88
real, public, parameter:: XSNOWFALL_A_SN =109.0
real, public, parameter:: XSNOWFALL_B_SN =6.0
real, public, parameter:: XSNOWFALL_C_SN =26.0
real, public, parameter:: XDZ1 =0.01
real, public, parameter:: XDZ2 =0.0125
real, public, parameter:: XDZ3 =0.015
real, public, parameter:: XDZ3_BIS =0.03
real, public, parameter:: XDZ4 =0.04
real, public, parameter:: XDZ5 =0.05
real, public, parameter:: XDZ_BASE =0.02
real, public, parameter:: XDZ_INTERNAL =0.07
real, public, parameter:: XSCALE_CM =100.
real, public, parameter, DIMENSION(5):: XDZMAX_INTERNAL =(/0.5, 1., 2., 4., 10./)
real, public, parameter:: XDZMIN_TOP_EXTREM =0.0001
real, public, parameter:: XSNOWFALL_THRESHOLD =0.0333/3600.
real, public, parameter:: XRATIO_NEWLAYER =0.1
real, public, parameter:: XDEPTH_THRESHOLD1 =3.
real, public, parameter:: XDEPTH_THRESHOLD2 =20.
real, public, parameter:: XDEPTH_SURFACE =3.
real, public, parameter:: XDIFF_1 =20.
real, public, parameter:: XDIFF_MAX =200.
real, public, parameter:: XSCALE_DIFF =25.
real, public, parameter:: XDZMIN_TOP =0.01
real, public, parameter:: XDZMIN_TOP_BIS =0.005
real, public, parameter:: XDZMIN_BOT =0.02
real, public, parameter:: XSPLIT_COEF =8.
real, public, parameter:: XAGREG_COEF_1 =5.
real, public, parameter:: XAGREG_COEF_2 =4.5
real, public, parameter:: XVTIME =48*3600.
real, public, parameter:: XVROMAX =350.
real, public, parameter:: XVROMIN =50.
real, public, parameter:: XVMOB1 =0.295
real, public, parameter:: XVMOB2 =0.833
real, public, parameter:: XVMOB3 =0.583
real, public, parameter:: XVMOB4 =-0.0583
real, public, parameter:: XVDRIFT1 =2.868
real, public, parameter:: XVDRIFT2 =0.085
real, public, parameter:: XVDRIFT3 =3.25
real, public, parameter:: XVSIZEMIN =3.E-4
real, public, parameter:: XCOEF_FF =1.25
real, public, parameter:: XCOEF_EFFECT =1.0
real, public, parameter:: XQS_REF =2.E-5
real, public, parameter, DIMENSION(3):: XSGCOEF1 =(/0.25, 0.50, 0.25/)
real, public, parameter, DIMENSION(2):: XSGCOEF2 =(/0.05, 0.34/)
real, public, parameter, DIMENSION(10):: XSGCOEF3 =(/0.025, 0.033, 0.043, 0.055, 0.071, 0.091, 0.117, 0.150, 0.193, 0.247/)
real, public, parameter:: XSNOWTRANS =0.20
real, public, parameter:: XSNOWTRANS1 =0.40
real, public, parameter:: XSNOWTRANS2 =0.6061
real, public, parameter:: XSNOWTRANS3 =0.7143
real, public, parameter:: XSNOWTRANS4 =0.9259
real, public, parameter:: XSNOWTRANS5 =1.4493
integer, public, parameter:: IFR =0
integer, public, parameter:: IFR_LB =1
integer, public, parameter:: ILB =2
integer, public, parameter:: ILB_FIN =3
integer, public, parameter:: ILB_ANG =4
integer, public, parameter:: IROUL =5
integer, public, parameter:: IFIN =6
integer, public, parameter:: IFIN_AR =7
integer, public, parameter:: IFIN_ANG =8
integer, public, parameter:: IPL =9
integer, public, parameter:: IPL_GOB =10
integer, public, parameter:: IGOB =11
integer, public, parameter:: IGEL =12
integer, public, parameter:: IGOB_FON =13
integer, public, parameter:: IRON_ANG =14
integer, public, parameter, DIMENSION(100):: ICRIS_DEND1D =(/ILB_ANG, ILB_ANG, ILB_ANG, ILB, ILB, ILB, IFR_LB, IFR_LB, IFR, IFR, ILB_ANG, ILB_ANG, ILB_ANG, ILB, ILB, ILB, IFR_LB, IFR_LB, IFR, IFR, ILB_ANG, ILB_ANG, ILB_ANG, ILB, ILB, ILB, IFR_LB, IFR_LB, IFR, IFR, ILB_ANG, ILB_ANG, ILB_ANG, ILB, ILB, ILB, IFR_LB, IFR_LB, IFR, IFR, ILB_ANG, ILB_ANG, ILB_ANG, ILB, ILB, ILB, IFR_LB, IFR_LB, IFR, IFR, ILB_FIN, ILB_FIN, ILB_FIN, ILB, ILB, ILB, IFR_LB, IFR_LB, IFR, IFR, ILB_FIN, ILB_FIN, ILB_FIN, ILB, ILB, ILB, IFR_LB, IFR_LB, IFR, IFR, ILB_FIN, ILB_FIN, ILB_FIN, ILB, ILB, ILB, IFR_LB, IFR_LB, IFR, IFR, ILB_FIN, ILB_FIN, ILB_FIN, ILB, ILB, ILB, IFR_LB, IFR_LB, IFR, IFR, ILB_FIN, ILB_FIN, ILB_FIN, ILB, ILB, ILB, IFR_LB, IFR_LB, IFR, IFR/)
integer, public, parameter, DIMENSION(180):: ICRIS_NONDEND1D =(/IPL, IPL, IFIN_ANG, IFIN_ANG, IFIN_ANG, IFIN_ANG, IFIN_ANG, IFIN_ANG, IFIN, IFIN, IPL, IPL, IFIN_ANG, IFIN_ANG, IFIN_ANG, IFIN_ANG, IFIN_ANG, IFIN_ANG, IFIN, IFIN, IPL, IPL, IFIN_ANG, IFIN_ANG, IFIN_ANG, IFIN_ANG, IFIN_ANG, IFIN_ANG, IFIN, IFIN, IPL, IPL, IFIN_ANG, IFIN_ANG, IFIN_ANG, IFIN_ANG, IFIN_ANG, IFIN_ANG, IFIN, IFIN, IPL_GOB, IPL_GOB, IPL_GOB, IPL_GOB, IPL_GOB, IGOB_FON, IGOB_FON, IGOB_FON, IGOB_FON, IGOB_FON, IGOB, IGOB, IGOB, IGOB, IGOB, IGOB_FON, IGOB_FON, IGOB_FON, IGOB_FON, IGOB_FON, IRON_ANG, IRON_ANG, IRON_ANG, IRON_ANG, IRON_ANG, IFIN_AR, IFIN_AR, IFIN_AR, IFIN_AR, IFIN_AR, IRON_ANG, IRON_ANG, IRON_ANG, IRON_ANG, IRON_ANG, IGEL, IGEL, IGEL, IGEL, IGEL, IRON_ANG, IRON_ANG, IRON_ANG, IRON_ANG, IRON_ANG, IGEL, IGEL, IGEL, IGEL, IGEL, IRON_ANG, IRON_ANG, IRON_ANG, IRON_ANG, IRON_ANG, IGOB_FON, IGOB_FON, IGOB_FON, IGOB_FON, IGOB_FON, IRON_ANG, IRON_ANG, IRON_ANG, IRON_ANG, IRON_ANG, IGOB_FON, IGOB_FON, IGOB_FON, IGOB_FON, IGOB_FON, IRON_ANG, IRON_ANG, IRON_ANG, IRON_ANG, IRON_ANG, IGOB_FON, IGOB_FON, IGOB_FON, IGOB_FON, IGOB_FON, IRON_ANG, IRON_ANG, IRON_ANG, IRON_ANG, IRON_ANG, IFIN_AR, IFIN_AR, IFIN_AR, IFIN_AR, IFIN_AR, IRON_ANG, IRON_ANG, IRON_ANG, IRON_ANG, IRON_ANG, IGEL, IGEL, IGEL, IGEL, IGEL, IRON_ANG, IRON_ANG, IRON_ANG, IRON_ANG, IRON_ANG, IGEL, IGEL, IGEL, IGEL, IGEL, IRON_ANG, IRON_ANG, IRON_ANG, IRON_ANG, IRON_ANG, IGOB_FON, IGOB_FON, IGOB_FON, IGOB_FON, IGOB_FON, IRON_ANG, IRON_ANG, IRON_ANG, IRON_ANG, IRON_ANG, IGOB_FON, IGOB_FON, IGOB_FON, IGOB_FON, IGOB_FON, IRON_ANG, IRON_ANG, IRON_ANG, IRON_ANG, IRON_ANG, IGOB_FON, IGOB_FON, IGOB_FON, IGOB_FON, IGOB_FON/)