UPP  001
•All Data Structures Files Functions Pages
params.F
1 module params_mod
2 
3 !- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
4  implicit none
5 !
6 ! file: params.f
7 ! defines physical constants and smoothing coefficients
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,dp10m=110
70  real, parameter :: elwv=2.50e6
71  real, parameter :: cpdr=cp/rd
72  real, parameter :: rg=1./gi
73  real, parameter :: eldr=elwv/rd
74  real, parameter :: beta=.00367
75  real, parameter :: btg=beta*g
76  real, parameter :: fmw=18.015
77  real, parameter :: fmd=28.964
78  real, parameter :: eps=fmw/fmd
79  real, parameter :: oneps=1.-eps
80  real, parameter :: tfrz=273.15
81  real, parameter :: rdocp=rd/cp
82  real, parameter :: lheat=2.5e6
83  real, parameter :: lhtocp=lheat/cp
84  real, parameter :: epsq2=0.02
85  real, parameter :: pq0=379.90516
86  real, parameter :: a2=17.2693882
87  real, parameter :: a3=273.16
88  real, parameter :: a4=35.86
89  real, parameter :: epsq=1.e-12
90 #ifdef GSDRAPR
91  real, parameter :: qcldmin=1.e-6 ! was 1.E-6
92 #else
93  real, parameter :: qcldmin=1.e-5 ! was 1.E-6
94 #endif
95  real, parameter :: clfrmin=d1
96  real, parameter :: nlimin=1.e3
97 ! move definition of NLImax and T_ICE to MICROINIT 2012012018
98 ! real, parameter :: NLImax=5.E3
99 ! real, parameter :: T_ICE=-30.
100 ! real, parameter :: TRAD_ice=0.5*T_ICE+TFRZ
101  real, parameter :: qconv=0.1e-3
102 !
103  real, parameter :: stbol=1./5.67e-8
104  real, parameter :: dbzmin=-20.
105  real, parameter :: abscoef=8.0
106  real, parameter :: abscoefi=5.0
107  real, parameter :: xlai=4.0 ! Leaf area index
108  real, parameter :: rhmin=1.0e-6 ! minimal RH bound
109  real, parameter :: small=1.e-6
110 ! real, parameter :: PTHRESH=0.000000
111  real, parameter :: elivw=2.72e6
112  real, parameter :: elocp=elivw/cp
113 !
114  real, parameter :: gamma=6.5e-3
115  real, parameter :: rgamog=rd*gamma/g
116 
117 end module params_mod
params_mod
Definition: params.F:1