UPP (upp-srw-2.2.0)
Loading...
Searching...
No Matches
params.F
1module 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
117end module params_mod