UPP (develop)
Loading...
Searching...
No Matches
PMICRPH.f
Go to the documentation of this file.
1
4!-----------------------------------------------------------------
5 module pmicrph_mod
6
7! ----- Constants related to microphysics
8! -- computed in paramr.f
9
10! REAL ABER1(31),ABER2(31)
11! LOOKUP TABLE FOR A1 AND A2 IN BERGERON PROCESS
12
13 implicit none
14
15 REAL pi
16 REAL ron
17 REAL son
18 REAL gon
19 REAL br
20 REAL bs
21 REAL bg
22 REAL drain
23 REAL dsnow
24 REAL dgraupel
25 REAL ron2
26 REAL diace_min
27 REAL drain2
28 REAL dsnow2
29 REAL topr
30 REAL tops
31 REAL topg
32 REAL arain
33 REAL asnow
34 REAL agraupel
35 REAL tno
36 REAL ato
37 REAL xsmax
38 REAL berc1
39 REAL bp
40 REAL ap
41 REAL cnp
42 REAL frd1
43 REAL fra1
44 REAL efis
45 REAL efir
46 REAL efsr
47 REAL efcs
48 REAL efgi
49 REAL efgc
50 REAL efgr
51 REAL efgs
52 REAL efcr
53 REAL acris
54 REAL bacris
55 REAL cir
56 REAL cirf
57 REAL cpiacr0
58 REAL cpiacr1
59 REAL cpiacr2
60 REAL cpiacr3
61 REAL frain
62 REAL fsnow
63 REAL fgraupel
64 REAL csr
65 REAL crs
66 REAL acrcs
67 REAL bacrcs
68 REAL rmc
69 REAL acrls
70 REAL bacls
71 REAL acrcg
72 REAL bacrcg
73 REAL acrig
74 REAL bacrig
75 REAL crg
76 REAL csg
77 REAL depg1
78 REAL depg2
79 REAL depg3
80 REAL depg4
81 REAL deps1
82 REAL deps2
83 REAL deps3
84 REAL deps4
85 REAL acrcr
86 REAL bacrcr
87 REAL depr1
88 REAL depr2
89 REAL depr3
90 REAL depr4
91 REAL psm1
92 REAL psm2
93 REAL psm3
94 REAL psm4
95 REAL pgm1
96 REAL pgm2
97 REAL pgm3
98 REAL pgm4
99 REAL cw
100 REAL hgfr
101 REAL xm01
102 REAL cnp1
103 REAL dice
104 REAL c1
105 REAL alpha1
106 REAL beta1
107 REAL gamma3
108!jmb--removed INT0 frm the real declaration since declared integer blo
109 REAL const1a
110 REAL const1b
111 REAL xm0s
112 REAL xr0s
113 REAL xm0g
114 REAL acrcs_new
115 REAL bacrcs_new
116 REAL acrcg_new
117 REAL bacrcg_new
118 REAL const_ns1
119 REAL const_ns2
120 REAL const_ng1
121 REAL const_ng2
122 REAL xr0g
123 REAL r1
124 REAL slor_r1
125 REAL slos_r1
126 REAL slog_r1
127 REAL rho_not
128 REAL qck1
129 REAL qcth
130 REAL ron_min
131 REAL qr0
132 REAL delqr0
133 REAL const1r
134 REAL const2r
135 REAL xnu
136
137 INTEGER int0
138
139 end module PMICRPH_mod