|
SURFEX v7.3
General documentation of Surfex
|
|
SURFEX v7.3
General documentation of Surfex
|
00001 ! ajoutEB 00002 ! correction de l'erreur interversion de VTANG2 et VTANG3 00003 !###################### 00004 MODULE MODD_SNOW_METAMO 00005 ! ###################### 00006 ! 00007 !!**** *MODD_SNOW_METAMO* - declaration of parameters related 00008 !! to snow metamorphism!! 00009 !! PURPOSE 00010 !! ------- 00011 ! The purpose of this declarative module is to specify the 00012 ! parameters related to the metamorphism parameterization of snow. 00013 ! 00014 !! 00015 !!** IMPLICIT ARGUMENTS 00016 !! ------------------ 00017 !! None 00018 !! 00019 !! REFERENCE 00020 !! --------- 00021 !! 00022 !! 00023 !! AUTHOR 00024 !! ------ 00025 !! V. Vionnet *Meteo France* 00026 !! 00027 !! MODIFICATIONS 00028 !! ------------- 00029 !! Original 02/2008 00030 !------------------------------------------------------------------------------- 00031 ! 00032 !* 0. DECLARATIONS 00033 ! ------------ 00034 ! 00035 IMPLICIT NONE 00036 ! 00037 !------------------------------------------------------------------------------- 00038 ! 00039 ! Optical diameter properties 00040 REAL, PARAMETER :: XDIAET=1.E-4 00041 REAL, PARAMETER :: XDIAGF=3.E-4 00042 REAL, PARAMETER :: XDIAFP=4.E-4 00043 00044 ! 00045 ! Maximum value for TPSNOW%GRAN2 00046 REAL, PARAMETER :: VGRAN1=99. 00047 REAL, PARAMETER :: XGRAN=99. 00048 00049 ! 00050 INTEGER, PARAMETER :: NVHIS1=1 00051 INTEGER, PARAMETER :: NVHIS2=2 00052 INTEGER, PARAMETER :: NVHIS3=3 00053 INTEGER, PARAMETER :: NVHIS4=4 00054 INTEGER, PARAMETER :: NVHIS5=5 00055 00056 ! Properties of fresh snow 00057 REAL, PARAMETER :: XNDEN1=17.12 00058 REAL, PARAMETER :: XNDEN2=128. 00059 REAL, PARAMETER :: XNDEN3=-20. 00060 REAL, PARAMETER :: XNSPH1=7.87 00061 REAL, PARAMETER :: XNSPH2=38. 00062 REAL, PARAMETER :: XNSPH3=50. 00063 REAL, PARAMETER :: XNSPH4=90. 00064 ! 00065 ! 00066 REAL, PARAMETER :: UEPSI=1.E-8 00067 REAL, PARAMETER :: XEPSI=1.E-8 00068 REAL, PARAMETER :: UPOURC=100. 00069 00070 !! 00071 ! Parameters for Marbouty's function 00072 ! 00073 REAL, PARAMETER :: VTANG1=40. 00074 REAL, PARAMETER :: VTANG2=6. 00075 REAL, PARAMETER :: VTANG3=22. 00076 REAL, PARAMETER :: VTANG4=.7 00077 REAL, PARAMETER :: VTANG5=.3 00078 REAL, PARAMETER :: VTANG6=6. 00079 REAL, PARAMETER :: VTANG7=1. 00080 REAL, PARAMETER :: VTANG8=.8 00081 REAL, PARAMETER :: VTANG9=16. 00082 REAL, PARAMETER :: VTANGA=.2 00083 REAL, PARAMETER :: VTANGB=.2 00084 REAL, PARAMETER :: VTANGC=18. 00085 REAL, PARAMETER :: VRANG1=400. 00086 REAL, PARAMETER :: VRANG2=150. 00087 REAL, PARAMETER :: VGANG1=70. 00088 REAL, PARAMETER :: VGANG2=25. 00089 REAL, PARAMETER :: VGANG3=40. 00090 REAL, PARAMETER :: VGANG4=50. 00091 REAL, PARAMETER :: VGANG5=.1 00092 REAL, PARAMETER :: VGANG6=15. 00093 REAL, PARAMETER :: VGANG7=.1 00094 REAL, PARAMETER :: VGANG8=.55 00095 REAL, PARAMETER :: VGANG9=.65 00096 REAL, PARAMETER :: VGANGA=.2 00097 REAL, PARAMETER :: VGANGB=.85 00098 REAL, PARAMETER :: VGANGC=.15 00099 00100 ! Parameters for snow metamorphism 00101 00102 REAL, PARAMETER :: VDENT1=2314.81481 00103 REAL, PARAMETER :: VDENT2=7.2338E-7 00104 REAL, PARAMETER :: VGRAN6=51. 00105 REAL, PARAMETER :: VVAP1=-6000. 00106 REAL, PARAMETER :: VVAP2=.4 00107 REAL, PARAMETER :: VDIAM1=4.E-4 00108 REAL, PARAMETER :: VDIAM2=5.E-4 00109 REAL, PARAMETER :: VDIAM3=3.E-4 00110 REAL, PARAMETER :: VDIAM4=2.E-4 00111 REAL, PARAMETER :: VDIAM5=1.E-4 00112 REAL, PARAMETER :: VDIAM6=1.E-4 00113 REAL, PARAMETER :: VSPHE1=1. 00114 REAL, PARAMETER :: VSPHE2=11574.074 00115 REAL, PARAMETER :: VSPHE3=.5 00116 REAL, PARAMETER :: VSPHE4=.1 00117 REAL, PARAMETER :: VTAIL1=1.28E-17 00118 REAL, PARAMETER :: VTAIL2=4.22E-19 00119 REAL, PARAMETER :: VGRAT1=5. 00120 REAL, PARAMETER :: VGRAT2=15. 00121 REAL, PARAMETER :: VFI=1.0417E-9 00122 REAL, PARAMETER :: VTELV1=0.005 00123 INTEGER,PARAMETER :: NVDENT1=3 00124 ! 00125 END MODULE MODD_SNOW_METAMO 00126 00127 00128
1.8.0
