1 !**********************************************************************************
2 ! This computer software was prepared by Battelle Memorial Institute, hereinafter
3 ! the Contractor, under Contract No. DE-AC05-76RL0 1830 with the Department of
4 ! Energy (DOE). NEITHER THE GOVERNMENT NOR THE CONTRACTOR MAKES ANY WARRANTY,
5 ! EXPRESS OR IMPLIED, OR ASSUMES ANY LIABILITY FOR THE USE OF THIS SOFTWARE.
7 ! MOSAIC module: see module_mosaic_driver.F for references and terms of use
8 !**********************************************************************************
9 ! file module_data_mosaic_other.f
10 !-----------------------------------------------------------------------
12 module module_data_mosaic_other
15 ! rce 11-sep-2004 changes
16 ! increased lmaxd,l2maxd
17 ! initialize khno3,...,ktemp,ltot,ltot2 with bogus values;
18 ! added aboxtest_... variables
19 ! no initialization of name()
20 ! rce 06-may-2005 - increased lmaxd from 184 (no cw) to 283 (cw);
24 integer, parameter :: imaxd=1, jmaxd=1, kmaxd=100
26 integer, parameter :: lmaxd=1200, l2maxd=1200 ! increased from 300 to 400 by Manish Shrivastava on 01/25/10 for additional soa gas species
28 integer, parameter :: nsubareamaxd = 1
30 ! rce 2005-mar-09 - added k_pegbegin
31 ! k_pegbegin = starting k index for pegasus arrays
32 integer, parameter :: k_pegbegin = 1
35 integer, save :: khno3 = -999888777
36 integer, save :: kh2so4 = -999888777
37 integer, save :: knh3 = -999888777
38 integer, save :: khcl = -999888777
39 integer, save :: ko3 = -999888777
40 integer, save :: kh2o = -999888777
41 integer, save :: ktemp = -999888777
42 integer, save :: kpcg1_b_c = -999888777
43 integer, save :: kpcg2_b_c = -999888777
44 integer, save :: kpcg3_b_c = -999888777
45 integer, save :: kpcg4_b_c = -999888777
46 integer, save :: kpcg5_b_c = -999888777
47 integer, save :: kpcg6_b_c = -999888777
48 integer, save :: kpcg7_b_c = -999888777
49 integer, save :: kpcg8_b_c = -999888777
50 integer, save :: kpcg9_b_c = -999888777
51 integer, save :: kpcg1_b_o = -999888777
52 integer, save :: kpcg2_b_o = -999888777
53 integer, save :: kpcg3_b_o = -999888777
54 integer, save :: kpcg4_b_o = -999888777
55 integer, save :: kpcg5_b_o = -999888777
56 integer, save :: kpcg6_b_o = -999888777
57 integer, save :: kpcg7_b_o = -999888777
58 integer, save :: kpcg8_b_o = -999888777
59 integer, save :: kpcg9_b_o = -999888777
60 integer, save :: kopcg1_b_c = -999888777
61 integer, save :: kopcg2_b_c = -999888777
62 integer, save :: kopcg3_b_c = -999888777
63 integer, save :: kopcg4_b_c = -999888777
64 integer, save :: kopcg5_b_c = -999888777
65 integer, save :: kopcg6_b_c = -999888777
66 integer, save :: kopcg7_b_c = -999888777
67 integer, save :: kopcg8_b_c = -999888777
68 integer, save :: kopcg1_b_o = -999888777
69 integer, save :: kopcg2_b_o = -999888777
70 integer, save :: kopcg3_b_o = -999888777
71 integer, save :: kopcg4_b_o = -999888777
72 integer, save :: kopcg5_b_o = -999888777
73 integer, save :: kopcg6_b_o = -999888777
74 integer, save :: kopcg7_b_o = -999888777
75 integer, save :: kopcg8_b_o = -999888777
76 integer, save :: kpcg1_f_c = -999888777
77 integer, save :: kpcg2_f_c = -999888777
78 integer, save :: kpcg3_f_c = -999888777
79 integer, save :: kpcg4_f_c = -999888777
80 integer, save :: kpcg5_f_c = -999888777
81 integer, save :: kpcg6_f_c = -999888777
82 integer, save :: kpcg7_f_c = -999888777
83 integer, save :: kpcg8_f_c = -999888777
84 integer, save :: kpcg9_f_c = -999888777
85 integer, save :: kpcg1_f_o = -999888777
86 integer, save :: kpcg2_f_o = -999888777
87 integer, save :: kpcg3_f_o = -999888777
88 integer, save :: kpcg4_f_o = -999888777
89 integer, save :: kpcg5_f_o = -999888777
90 integer, save :: kpcg6_f_o = -999888777
91 integer, save :: kpcg7_f_o = -999888777
92 integer, save :: kpcg8_f_o = -999888777
93 integer, save :: kpcg9_f_o = -999888777
94 integer, save :: kopcg1_f_c = -999888777
95 integer, save :: kopcg2_f_c = -999888777
96 integer, save :: kopcg3_f_c = -999888777
97 integer, save :: kopcg4_f_c = -999888777
98 integer, save :: kopcg5_f_c = -999888777
99 integer, save :: kopcg6_f_c = -999888777
100 integer, save :: kopcg7_f_c = -999888777
101 integer, save :: kopcg8_f_c = -999888777
102 integer, save :: kopcg1_f_o = -999888777
103 integer, save :: kopcg2_f_o = -999888777
104 integer, save :: kopcg3_f_o = -999888777
105 integer, save :: kopcg4_f_o = -999888777
106 integer, save :: kopcg5_f_o = -999888777
107 integer, save :: kopcg6_f_o = -999888777
108 integer, save :: kopcg7_f_o = -999888777
109 integer, save :: kopcg8_f_o = -999888777
110 integer, save :: ksmpa = -999888777
111 integer, save :: ksmpbb = -999888777
112 integer, save :: kant1_c = -999888777
113 integer, save :: kant2_c = -999888777
114 integer, save :: kant3_c = -999888777
115 integer, save :: kant4_c = -999888777
116 integer, save :: kant1_o = -999888777
117 integer, save :: kant2_o = -999888777
118 integer, save :: kant3_o = -999888777
119 integer, save :: kant4_o = -999888777
120 integer, save :: kbiog1_c = -999888777
121 integer, save :: kbiog2_c = -999888777
122 integer, save :: kbiog3_c = -999888777
123 integer, save :: kbiog4_c = -999888777
124 integer, save :: kbiog1_o = -999888777
125 integer, save :: kbiog2_o = -999888777
126 integer, save :: kbiog3_o = -999888777
127 integer, save :: kbiog4_o = -999888777
135 ! rce 2005-apr-12 - added for cldchem - kso2, kh2o2, khcho, khcooh,
136 ! koh, kho2, kno3, kno, kno2, khono, kpan, kch3o2, kch3oh, kch3ooh
137 integer, save :: kso2 = -999888777
138 integer, save :: kh2o2 = -999888777
139 integer, save :: khcho = -999888777
140 integer, save :: khcooh = -999888777
141 integer, save :: koh = -999888777
142 integer, save :: kho2 = -999888777
143 integer, save :: kno3 = -999888777
144 integer, save :: kno = -999888777
145 integer, save :: kno2 = -999888777
146 integer, save :: khono = -999888777
147 integer, save :: kpan = -999888777
148 integer, save :: kch3o2 = -999888777
149 integer, save :: kch3oh = -999888777
150 integer, save :: kch3ooh = -999888777
152 ! the following values are correct for wrfchem simulations
153 integer, save :: lunerr=-1, lunout=-1
155 integer, save :: ltot=+999888777, ltot2=+999888777
157 integer, save :: itot, jtot, ktot
158 integer, save :: isvode, jsvode, ksvode, msvode
159 integer, save :: iymdcur, ihmscur
160 integer, save :: ncorecnt
161 integer, save :: nsubareas
164 real, parameter :: pi = 3.14159265
166 real, save :: afracsubarea(kmaxd,nsubareamaxd)
167 real, save :: cairclm(kmaxd)
168 real, save :: ptotclm(kmaxd)
169 real, save :: rclm(kmaxd,l2maxd)
170 real, save :: relhumclm(kmaxd)
171 real, save :: rcldwtr_sub(kmaxd,nsubareamaxd)
172 real, save :: rsub(l2maxd,kmaxd,nsubareamaxd)
176 character(len=20), save :: name(l2maxd)
179 ! control variables for box-model testing
180 ! the following values are correct for wrfchem simulations
181 integer, save :: aboxtest_testmode = 0
182 integer, save :: aboxtest_units_convert = 1
183 integer, save :: aboxtest_rh_method = 1
184 integer, save :: aboxtest_map_method = 1
185 integer, save :: aboxtest_gases_fixed = 0
187 real, save :: aboxtest_min_temp = 233.0
188 real, save :: aboxtest_min_relhum = 0.05
189 real, save :: aboxtest_max_relhum = 0.98
192 end module module_data_mosaic_other