UPP (develop)
•All Data Structures Files Functions Variables Modules Pages
params.F
Go to the documentation of this file.
1
3module params_mod
4
5!- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
6 implicit none
7!
8! last update: 09/06/2006
9!
10! SMOOTHING PARAMETERS.
11 integer, parameter :: ksmud=4
12 integer, parameter :: kslpd=1
13 integer, parameter :: ksslp=2
14 integer, parameter :: ksfi=2
15 integer, parameter :: kst=2
16 integer, parameter :: ksuv=2
17 integer, parameter :: ksrh=2
18 integer, parameter :: ksav=2
19 integer, parameter :: ksli=2
20 integer, parameter :: kslp=2
21 integer, parameter :: nsumd=1
22
23 real, parameter :: smtha=-1.8e-4
24 real, parameter :: smthb=16.0
25!
26! CONSTANTS.
27 real, parameter :: cm1=2937.4
28 real, parameter :: cm2=4.9283
29 real, parameter :: cm3=23.5518
30 real, parameter :: d00=0.0
31 real, parameter :: d1=0.1
32 real, parameter :: d01=0.01
33 real, parameter :: d001=0.001
34 real, parameter :: d50=0.50
35 real, parameter :: h999=999.
36 real, parameter :: h1=1.0
37 real, parameter :: h2=2.0
38 real, parameter :: h4=4.0
39 real, parameter :: h99999=99999.
40 real, parameter :: h1m12=1.e-12
41 real, parameter :: h1000=1000.
42 real, parameter :: h1m5=1.e-5
43 real, parameter :: d125=.125
44 real, parameter :: d25=0.25
45 real, parameter :: h100=100.
46 real, parameter :: h10000=10000.
47 real, parameter :: h10e5=1.e5
48 real, parameter :: capa=0.28589641e0
49 real, parameter :: d115=0.115
50 real, parameter :: d608=0.608
51 real, parameter :: d05=0.05
52 real, parameter :: d0065=0.0065
53 real, parameter :: h1e2=100.
54 real, parameter :: h1e4=1.e4
55 real, parameter :: h1m2=1.e-2
56 real, parameter :: g=9.81
57 real, parameter :: rd=287.04
58 real, parameter :: rog=rd/g
59 real, parameter :: gi=1./g
60 real, parameter :: overrc=1.10
61 real, parameter :: ad05=overrc*d05
62 real, parameter :: cft0=overrc-h1
63 real, parameter :: pi=3.141592653589793
64 real, parameter :: dtr=3.1415926/180.
65 real, parameter :: rtd=1./dtr
66 real, parameter :: erad=6.371e6
67 real, parameter :: cp=1004.6
68 real, parameter :: rcapa=1./capa
69 real, parameter :: p1000=1000.e2
70 real, parameter :: dp10m=110
71 real, parameter :: elwv=2.50e6
72 real, parameter :: cpdr=cp/rd
73 real, parameter :: rg=1./gi
74 real, parameter :: eldr=elwv/rd
75 real, parameter :: beta=.00367
76 real, parameter :: btg=beta*g
77 real, parameter :: fmw=18.015
78 real, parameter :: fmd=28.964
79 real, parameter :: eps=fmw/fmd
80 real, parameter :: oneps=1.-eps
81 real, parameter :: tfrz=273.15
82 real, parameter :: rdocp=rd/cp
83 real, parameter :: lheat=2.5e6
84 real, parameter :: lhtocp=lheat/cp
85 real, parameter :: epsq2=0.02
86 real, parameter :: pq0=379.90516
87 real, parameter :: a2=17.2693882
88 real, parameter :: a3=273.16
89 real, parameter :: a4=35.86
90 real, parameter :: epsq=1.e-12
91#ifdef GSDRAPR
92 real, parameter :: qcldmin=1.e-6
93#else
94 real, parameter :: qcldmin=1.e-5
95#endif
96 real, parameter :: clfrmin=d1
97 real, parameter :: nlimin=1.e3
98! move definition of NLImax and T_ICE to MICROINIT 2012012018
99! real, parameter :: NLImax=5.E3
100! real, parameter :: T_ICE=-30.
101! real, parameter :: TRAD_ice=0.5*T_ICE+TFRZ
102 real, parameter :: qconv=0.1e-3
103!
104 real, parameter :: stbol=1./5.67e-8
105 real, parameter :: dbzmin=-20.
106 real, parameter :: abscoef=8.0
107 real, parameter :: abscoefi=5.0
108 real, parameter :: xlai=4.0
109 real, parameter :: rhmin=1.0e-6
110 real, parameter :: small=1.e-6
111! real, parameter :: PTHRESH=0.000000
112 real, parameter :: elivw=2.72e6
113 real, parameter :: elocp=elivw/cp
114!
115 real, parameter :: gamma=6.5e-3
116 real, parameter :: rgamog=rd*gamma/g
117
118end module params_mod