1 ! hereinafter the Contractor, under Contract No. DE-AC05-76RL0 1830 with
2 ! the Department of Energy (DOE). NEITHER THE GOVERNMENT NOR THE
3 ! CONTRACTOR MAKES ANY WARRANTY, EXPRESS OR IMPLIED, OR ASSUMES ANY
4 ! LIABILITY FOR THE USE OF THIS SOFTWARE.
6 ! Aerosol Option: MOSAIC (Model for Simulating Aerosol Interactions &
8 ! * Primary investigator: Rahul A. Zaveri
9 ! * Co-investigator: Richard C. Easter, William I. Gustafson Jr.
10 ! Last update: February 2009
13 ! Rahul A. Zaveri, PhD Jerome D. Fast, PhD
14 ! Senior Research Scientist Staff Scientist
15 ! Pacific Northwest National Laboratory Pacific Northwest National Laboratory
16 ! P.O. Box 999, MSIN K9-30 P.O. Box 999, MSIN K9-30
17 ! Richland, WA 99352 Richland, WA, 99352
18 ! Phone: (509) 372-6159 Phone: (509) 372-6116
19 ! Email: Rahul.Zaveri@pnl.gov Email: Jerome.Fast@pnl.gov
21 ! Please report any bugs or problems to Rahul Zaveri, the primary author
22 ! of the code, or Jerome Fast, the WRF-chem implementation team leader
26 ! 1) Users are requested to consult the primary author prior to
27 ! modifying the MOSAIC code or incorporating it or its submodules in
28 ! another code. This is meant to ensure that the any linkages and/or
29 ! assumptions will not adversely affect the operation of MOSAIC.
30 ! 2) The MOSAIC source code is intended for research and educational
31 ! purposes. Users are requested to contact the primary author
32 ! regarding the use of MOSAIC code for any commercial application.
33 ! 3) Users preparing publications resulting from the usage of MOSAIC are
34 ! requested to cite one or more of the references below (depending on
35 ! the application) for proper acknowledgement.
37 ! References for MOSAIC (The first one is the primary MOSAIC reference):
38 ! * Zaveri R.A., R.C. Easter, J.D. Fast, and L.K. Peters (2008), Model
39 ! for Simulating Aerosol Interactions and Chemistry (MOSAIC), J.
40 ! Geophys. Res., 113, D13204, doi:10.1029/2007JD008782.
41 ! * Zaveri R.A., R.C. Easter, and A.S. Wexler (2005), A new method for
42 ! multi-component activity coefficients of electrolytes in aqueous
43 ! atmospheric aerosols, J. Geophys. Res., 110, D02201,
44 ! doi:10.1029/2004JD004681.
45 ! * Zaveri R.A., R.C. Easter, and L.K. Peters (2005), A computationally
46 ! efficient multicomponent equilibrium solver for aerosols (MESA), J.
47 ! Geophys. Res., 110, D24203, doi:24203, doi:10.1029/2004JD005618.
49 ! Reference for volatility basis set SOA code:
50 ! * Shrivastava, M., J. Fast, R. Easter, W. I. Gustafson Jr., R. A.
51 ! Zaveri, J. L. Jimenez, P. Saide, and A. Hodzic, 2010: Modeling
52 ! organic aerosols in a megacity: comparison of simple and complex
53 ! representations of the volatility basis set approach. Atmos. Chem.
56 ! Reference for the alternative SOA treatment that is less expensive to run
57 ! and is used in the package mozart_mosaic_4bin_vbs0
58 ! SOA is treated using a simplified approach for anthropogenic and biomass burning species based on Hodzic and Jimenez, GMD, 2011
59 ! Hodzic, A. and Jimenez, J. L.: Modeling anthropogenically controlled secondary organic aerosols in a megacity:
60 ! a simplified framework for global and climate models, Geosci. Model Dev., 4, 901-917, doi:10.5194/gmd-4-901-2011, 2011.
62 ! References for implementation of the aerosol optical properties and
63 ! direct effect in WRF-Chem:
64 ! * Fast, J.D., W.I. Gustafson Jr., R.C. Easter, R.A. Zaveri, J.C.
65 ! Barnard, E.G. Chapman, G.A. Grell, and S.E. Peckham (2005), Evolution
66 ! of ozone, particulates, and aerosol direct radiative forcing in the
67 ! vicinity of Houston using a fully-coupled meteorology-chemistry-
68 ! aerosol model, J. Geophys. Res., 111, D21305,
69 ! doi:10.1029/2005JD006721.
70 ! * Barnard, J.C., J.D. Fast, G. Paredes-Miranda, W.P. Arnott, and
71 ! A. Laskin (2010), Technical note: evaluation of the WRF-Chem
72 ! "aerosol chemical to aerosol optical properties" module using data
73 ! from the MILAGRO campaign, Atmos. Chem. Phys., 10, 7325-7340,
74 ! doi:10.5194/acp-10-7325-2010.
76 ! References for implementation of the aerosol-cloud interactions and
77 ! indirect effects in WRF-Chem:
78 ! * Gustafson, W. I., E. G. Chapman, S. J. Ghan, R. C. Easter, and J. D.
79 ! Fast (2007), Impact on modeled cloud characteristics due to
80 ! simplified treatment of uniform cloud condensation nuclei during
81 ! NEAQS 2004, Geophys. Res. Lett., 34, L19809, L19809,
82 ! doi:10.1029/2007GL0300321.
83 ! * Chapman, E.G., W. I. Gustafson Jr., R. C. Easter, J. C. Barnard,
84 ! S. J. Ghan, M. S. Pekour, and J. D. Fast (2009): Coupling aerosol-
85 ! cloud-radiative processes in the WRF-Chem model: Investigating the
86 ! radiative impact of elevated point sources, Atmos. Chem. Phys., 9,
87 ! 945-964, www.atmos-chem-phys.net/9/945/2009/.
89 ! Contact Jerome Fast for updates on the status of manuscripts under
92 ! Additional information:
93 ! * www.pnl.gov/atmospheric/research/wrf-chem
96 ! Funding for developing and evaluating MOSAIC was provided by the U.S.
97 ! Department of Energy under the auspices of Atmospheric Science Program
98 ! of the Office of Biological and Environmental Research, the NASA Earth
99 ! Sciences Enterprise under grant NAGW 3367, and PNNL Laboratory Directed
100 ! Research and Development program.
101 !************************************************************************
102 module module_mosaic_sumpm
106 ! *** NOTE - when the cw species are NOT in the registry, then
107 ! then the p_xxx_cwnn variables are not in module_state_description,
108 ! and the following cpp directive should be commented out
110 #define cw_species_are_in_registry
116 !-----------------------------------------------------------------------
117 subroutine sum_pm_mosaic ( &
119 pm2_5_dry, pm2_5_water, pm2_5_dry_ec, pm10, &
120 ids,ide, jds,jde, kds,kde, &
121 ims,ime, jms,jme, kms,kme, &
122 its,ite, jts,jte, kts,kte )
124 USE module_state_description, only: num_chem
125 USE module_data_mosaic_asect
128 INTEGER, INTENT(IN ) :: &
129 ids,ide, jds,jde, kds,kde, &
130 ims,ime, jms,jme, kms,kme, &
131 its,ite, jts,jte, kts,kte
133 REAL, DIMENSION( ims:ime, kms:kme, jms:jme ), &
136 REAL, DIMENSION( ims:ime, kms:kme, jms:jme, num_chem ), &
139 REAL, DIMENSION( ims:ime, kms:kme, jms:jme ), &
140 INTENT(OUT) :: pm2_5_dry,pm2_5_water,pm2_5_dry_ec,pm10
144 INTEGER :: i,imax,j,jmax,k,kmax,n,itype,iphase
146 imax = min(ite,ide-1)
147 jmax = min(jte,jde-1)
150 ! Sum over bins with center diameter < 2.5e-4 cm for pm2_5_dry,
151 ! pm2_5_dry_ec, and pm2_5_water. All bins go into pm10
153 pm2_5_dry(its:imax,kts:kmax,jts:jmax) = 0.
154 pm2_5_dry_ec(its:imax,kts:kmax,jts:jmax) = 0.
155 pm2_5_water(its:imax,kts:kmax,jts:jmax) = 0.
156 pm10(its:imax,kts:kmax,jts:jmax) = 0.
158 do iphase=1,nphase_aer
160 do n = 1, nsize_aer(itype)
161 if (dcen_sect(n,itype) .le. 2.5e-4) then
165 mass = chem(i,k,j,lptr_so4_aer(n,itype,iphase)) &
166 + chem(i,k,j,lptr_no3_aer(n,itype,iphase)) &
167 + chem(i,k,j,lptr_cl_aer(n,itype,iphase)) &
168 + chem(i,k,j,lptr_nh4_aer(n,itype,iphase)) &
169 + chem(i,k,j,lptr_na_aer(n,itype,iphase)) &
170 + chem(i,k,j,lptr_oin_aer(n,itype,iphase)) &
171 + chem(i,k,j,lptr_oc_aer(n,itype,iphase)) &
172 + chem(i,k,j,lptr_bc_aer(n,itype,iphase)) &
173 + chem(i,k,j,lptr_pcg1_b_c_aer(n,itype,iphase)) &
174 + chem(i,k,j,lptr_pcg2_b_c_aer(n,itype,iphase)) &
175 + chem(i,k,j,lptr_pcg3_b_c_aer(n,itype,iphase)) &
176 + chem(i,k,j,lptr_pcg4_b_c_aer(n,itype,iphase)) &
177 + chem(i,k,j,lptr_pcg5_b_c_aer(n,itype,iphase)) &
178 + chem(i,k,j,lptr_pcg6_b_c_aer(n,itype,iphase)) &
179 + chem(i,k,j,lptr_pcg7_b_c_aer(n,itype,iphase)) &
180 + chem(i,k,j,lptr_pcg1_b_o_aer(n,itype,iphase)) &
181 + chem(i,k,j,lptr_pcg2_b_o_aer(n,itype,iphase)) &
182 + chem(i,k,j,lptr_pcg3_b_o_aer(n,itype,iphase)) &
183 + chem(i,k,j,lptr_pcg4_b_o_aer(n,itype,iphase)) &
184 + chem(i,k,j,lptr_pcg5_b_o_aer(n,itype,iphase)) &
185 + chem(i,k,j,lptr_pcg6_b_o_aer(n,itype,iphase)) &
186 + chem(i,k,j,lptr_pcg7_b_o_aer(n,itype,iphase)) &
187 + chem(i,k,j,lptr_opcg1_b_c_aer(n,itype,iphase)) &
188 + chem(i,k,j,lptr_opcg2_b_c_aer(n,itype,iphase)) &
189 + chem(i,k,j,lptr_opcg3_b_c_aer(n,itype,iphase)) &
190 + chem(i,k,j,lptr_opcg4_b_c_aer(n,itype,iphase)) &
191 + chem(i,k,j,lptr_opcg5_b_c_aer(n,itype,iphase)) &
192 + chem(i,k,j,lptr_opcg6_b_c_aer(n,itype,iphase)) &
193 + chem(i,k,j,lptr_opcg7_b_c_aer(n,itype,iphase)) &
194 + chem(i,k,j,lptr_opcg1_b_o_aer(n,itype,iphase)) &
195 + chem(i,k,j,lptr_opcg2_b_o_aer(n,itype,iphase)) &
196 + chem(i,k,j,lptr_opcg3_b_o_aer(n,itype,iphase)) &
197 + chem(i,k,j,lptr_opcg4_b_o_aer(n,itype,iphase)) &
198 + chem(i,k,j,lptr_opcg5_b_o_aer(n,itype,iphase)) &
199 + chem(i,k,j,lptr_opcg6_b_o_aer(n,itype,iphase)) &
200 + chem(i,k,j,lptr_opcg7_b_o_aer(n,itype,iphase)) &
201 + chem(i,k,j,lptr_pcg1_f_c_aer(n,itype,iphase)) &
202 + chem(i,k,j,lptr_pcg2_f_c_aer(n,itype,iphase)) &
203 + chem(i,k,j,lptr_pcg3_f_c_aer(n,itype,iphase)) &
204 + chem(i,k,j,lptr_pcg4_f_c_aer(n,itype,iphase)) &
205 + chem(i,k,j,lptr_pcg5_f_c_aer(n,itype,iphase)) &
206 + chem(i,k,j,lptr_pcg6_f_c_aer(n,itype,iphase)) &
207 + chem(i,k,j,lptr_pcg7_f_c_aer(n,itype,iphase)) &
208 + chem(i,k,j,lptr_pcg1_f_o_aer(n,itype,iphase)) &
209 + chem(i,k,j,lptr_pcg2_f_o_aer(n,itype,iphase)) &
210 + chem(i,k,j,lptr_pcg3_f_o_aer(n,itype,iphase)) &
211 + chem(i,k,j,lptr_pcg4_f_o_aer(n,itype,iphase)) &
212 + chem(i,k,j,lptr_pcg5_f_o_aer(n,itype,iphase)) &
213 + chem(i,k,j,lptr_pcg6_f_o_aer(n,itype,iphase)) &
214 + chem(i,k,j,lptr_pcg7_f_o_aer(n,itype,iphase)) &
215 + chem(i,k,j,lptr_opcg1_f_c_aer(n,itype,iphase)) &
216 + chem(i,k,j,lptr_opcg2_f_c_aer(n,itype,iphase)) &
217 + chem(i,k,j,lptr_opcg3_f_c_aer(n,itype,iphase)) &
218 + chem(i,k,j,lptr_opcg4_f_c_aer(n,itype,iphase)) &
219 + chem(i,k,j,lptr_opcg5_f_c_aer(n,itype,iphase)) &
220 + chem(i,k,j,lptr_opcg6_f_c_aer(n,itype,iphase)) &
221 + chem(i,k,j,lptr_opcg7_f_c_aer(n,itype,iphase)) &
222 + chem(i,k,j,lptr_opcg1_f_o_aer(n,itype,iphase)) &
223 + chem(i,k,j,lptr_opcg2_f_o_aer(n,itype,iphase)) &
224 + chem(i,k,j,lptr_opcg3_f_o_aer(n,itype,iphase)) &
225 + chem(i,k,j,lptr_opcg4_f_o_aer(n,itype,iphase)) &
226 + chem(i,k,j,lptr_opcg5_f_o_aer(n,itype,iphase)) &
227 + chem(i,k,j,lptr_opcg6_f_o_aer(n,itype,iphase)) &
228 + chem(i,k,j,lptr_opcg7_f_o_aer(n,itype,iphase)) &
229 + chem(i,k,j,lptr_ant1_c_aer(n,itype,iphase)) &
230 + chem(i,k,j,lptr_ant2_c_aer(n,itype,iphase)) &
231 + chem(i,k,j,lptr_ant3_c_aer(n,itype,iphase)) &
232 + chem(i,k,j,lptr_ant4_c_aer(n,itype,iphase)) &
233 + chem(i,k,j,lptr_ant1_o_aer(n,itype,iphase)) &
234 + chem(i,k,j,lptr_ant2_o_aer(n,itype,iphase)) &
235 + chem(i,k,j,lptr_ant3_o_aer(n,itype,iphase)) &
236 + chem(i,k,j,lptr_ant4_o_aer(n,itype,iphase)) &
237 + chem(i,k,j,lptr_biog1_c_aer(n,itype,iphase)) &
238 + chem(i,k,j,lptr_biog2_c_aer(n,itype,iphase)) &
239 + chem(i,k,j,lptr_biog3_c_aer(n,itype,iphase)) &
240 + chem(i,k,j,lptr_biog4_c_aer(n,itype,iphase)) &
241 + chem(i,k,j,lptr_biog1_o_aer(n,itype,iphase)) &
242 + chem(i,k,j,lptr_biog2_o_aer(n,itype,iphase)) &
243 + chem(i,k,j,lptr_biog3_o_aer(n,itype,iphase)) &
244 + chem(i,k,j,lptr_biog4_o_aer(n,itype,iphase))
252 pm2_5_dry(i,k,j) = pm2_5_dry(i,k,j) + mass
254 pm2_5_dry_ec(i,k,j) = pm2_5_dry_ec(i,k,j) &
255 + chem(i,k,j,lptr_bc_aer(n,itype,iphase))
257 pm2_5_water(i,k,j) = pm2_5_water(i,k,j) &
258 + chem(i,k,j,waterptr_aer(n,itype))
260 pm10(i,k,j) = pm10(i,k,j) + mass
268 pm10(i,k,j) = pm10(i,k,j) &
269 + chem(i,k,j,lptr_so4_aer(n,itype,iphase)) &
270 + chem(i,k,j,lptr_no3_aer(n,itype,iphase)) &
271 + chem(i,k,j,lptr_cl_aer(n,itype,iphase)) &
272 + chem(i,k,j,lptr_nh4_aer(n,itype,iphase)) &
273 + chem(i,k,j,lptr_na_aer(n,itype,iphase)) &
274 + chem(i,k,j,lptr_oin_aer(n,itype,iphase)) &
275 + chem(i,k,j,lptr_oc_aer(n,itype,iphase)) &
276 + chem(i,k,j,lptr_bc_aer(n,itype,iphase)) &
277 + chem(i,k,j,lptr_pcg1_b_c_aer(n,itype,iphase)) &
278 + chem(i,k,j,lptr_pcg2_b_c_aer(n,itype,iphase)) &
279 + chem(i,k,j,lptr_pcg3_b_c_aer(n,itype,iphase)) &
280 + chem(i,k,j,lptr_pcg4_b_c_aer(n,itype,iphase)) &
281 + chem(i,k,j,lptr_pcg5_b_c_aer(n,itype,iphase)) &
282 + chem(i,k,j,lptr_pcg6_b_c_aer(n,itype,iphase)) &
283 + chem(i,k,j,lptr_pcg7_b_c_aer(n,itype,iphase)) &
284 + chem(i,k,j,lptr_pcg1_b_o_aer(n,itype,iphase)) &
285 + chem(i,k,j,lptr_pcg2_b_o_aer(n,itype,iphase)) &
286 + chem(i,k,j,lptr_pcg3_b_o_aer(n,itype,iphase)) &
287 + chem(i,k,j,lptr_pcg4_b_o_aer(n,itype,iphase)) &
288 + chem(i,k,j,lptr_pcg5_b_o_aer(n,itype,iphase)) &
289 + chem(i,k,j,lptr_pcg6_b_o_aer(n,itype,iphase)) &
290 + chem(i,k,j,lptr_pcg7_b_o_aer(n,itype,iphase)) &
291 + chem(i,k,j,lptr_opcg1_b_c_aer(n,itype,iphase)) &
292 + chem(i,k,j,lptr_opcg2_b_c_aer(n,itype,iphase)) &
293 + chem(i,k,j,lptr_opcg3_b_c_aer(n,itype,iphase)) &
294 + chem(i,k,j,lptr_opcg4_b_c_aer(n,itype,iphase)) &
295 + chem(i,k,j,lptr_opcg5_b_c_aer(n,itype,iphase)) &
296 + chem(i,k,j,lptr_opcg6_b_c_aer(n,itype,iphase)) &
297 + chem(i,k,j,lptr_opcg7_b_c_aer(n,itype,iphase)) &
298 + chem(i,k,j,lptr_opcg1_b_o_aer(n,itype,iphase)) &
299 + chem(i,k,j,lptr_opcg2_b_o_aer(n,itype,iphase)) &
300 + chem(i,k,j,lptr_opcg3_b_o_aer(n,itype,iphase)) &
301 + chem(i,k,j,lptr_opcg4_b_o_aer(n,itype,iphase)) &
302 + chem(i,k,j,lptr_opcg5_b_o_aer(n,itype,iphase)) &
303 + chem(i,k,j,lptr_opcg6_b_o_aer(n,itype,iphase)) &
304 + chem(i,k,j,lptr_opcg7_b_o_aer(n,itype,iphase)) &
305 + chem(i,k,j,lptr_pcg1_f_c_aer(n,itype,iphase)) &
306 + chem(i,k,j,lptr_pcg2_f_c_aer(n,itype,iphase)) &
307 + chem(i,k,j,lptr_pcg3_f_c_aer(n,itype,iphase)) &
308 + chem(i,k,j,lptr_pcg4_f_c_aer(n,itype,iphase)) &
309 + chem(i,k,j,lptr_pcg5_f_c_aer(n,itype,iphase)) &
310 + chem(i,k,j,lptr_pcg6_f_c_aer(n,itype,iphase)) &
311 + chem(i,k,j,lptr_pcg7_f_c_aer(n,itype,iphase)) &
312 + chem(i,k,j,lptr_pcg1_f_o_aer(n,itype,iphase)) &
313 + chem(i,k,j,lptr_pcg2_f_o_aer(n,itype,iphase)) &
314 + chem(i,k,j,lptr_pcg3_f_o_aer(n,itype,iphase)) &
315 + chem(i,k,j,lptr_pcg4_f_o_aer(n,itype,iphase)) &
316 + chem(i,k,j,lptr_pcg5_f_o_aer(n,itype,iphase)) &
317 + chem(i,k,j,lptr_pcg6_f_o_aer(n,itype,iphase)) &
318 + chem(i,k,j,lptr_pcg7_f_o_aer(n,itype,iphase)) &
319 + chem(i,k,j,lptr_opcg1_f_c_aer(n,itype,iphase)) &
320 + chem(i,k,j,lptr_opcg2_f_c_aer(n,itype,iphase)) &
321 + chem(i,k,j,lptr_opcg3_f_c_aer(n,itype,iphase)) &
322 + chem(i,k,j,lptr_opcg4_f_c_aer(n,itype,iphase)) &
323 + chem(i,k,j,lptr_opcg5_f_c_aer(n,itype,iphase)) &
324 + chem(i,k,j,lptr_opcg6_f_c_aer(n,itype,iphase)) &
325 + chem(i,k,j,lptr_opcg7_f_c_aer(n,itype,iphase)) &
326 + chem(i,k,j,lptr_opcg1_f_o_aer(n,itype,iphase)) &
327 + chem(i,k,j,lptr_opcg2_f_o_aer(n,itype,iphase)) &
328 + chem(i,k,j,lptr_opcg3_f_o_aer(n,itype,iphase)) &
329 + chem(i,k,j,lptr_opcg4_f_o_aer(n,itype,iphase)) &
330 + chem(i,k,j,lptr_opcg5_f_o_aer(n,itype,iphase)) &
331 + chem(i,k,j,lptr_opcg6_f_o_aer(n,itype,iphase)) &
332 + chem(i,k,j,lptr_opcg7_f_o_aer(n,itype,iphase)) &
333 + chem(i,k,j,lptr_ant1_c_aer(n,itype,iphase)) &
334 + chem(i,k,j,lptr_ant2_c_aer(n,itype,iphase)) &
335 + chem(i,k,j,lptr_ant3_c_aer(n,itype,iphase)) &
336 + chem(i,k,j,lptr_ant4_c_aer(n,itype,iphase)) &
337 + chem(i,k,j,lptr_ant1_o_aer(n,itype,iphase)) &
338 + chem(i,k,j,lptr_ant2_o_aer(n,itype,iphase)) &
339 + chem(i,k,j,lptr_ant3_o_aer(n,itype,iphase)) &
340 + chem(i,k,j,lptr_ant4_o_aer(n,itype,iphase)) &
341 + chem(i,k,j,lptr_biog1_c_aer(n,itype,iphase)) &
342 + chem(i,k,j,lptr_biog2_c_aer(n,itype,iphase)) &
343 + chem(i,k,j,lptr_biog3_c_aer(n,itype,iphase)) &
344 + chem(i,k,j,lptr_biog4_c_aer(n,itype,iphase)) &
345 + chem(i,k,j,lptr_biog1_o_aer(n,itype,iphase)) &
346 + chem(i,k,j,lptr_biog2_o_aer(n,itype,iphase)) &
347 + chem(i,k,j,lptr_biog3_o_aer(n,itype,iphase)) &
348 + chem(i,k,j,lptr_biog4_o_aer(n,itype,iphase))
360 !Convert the units from mixing ratio to concentration (ug m^-3)
361 pm2_5_dry(its:imax,kts:kmax,jts:jmax) = pm2_5_dry(its:imax,kts:kmax,jts:jmax) &
362 / alt(its:imax,kts:kmax,jts:jmax)
363 pm2_5_dry_ec(its:imax,kts:kmax,jts:jmax) = pm2_5_dry_ec(its:imax,kts:kmax,jts:jmax) &
364 / alt(its:imax,kts:kmax,jts:jmax)
365 pm2_5_water(its:imax,kts:kmax,jts:jmax) = pm2_5_water(its:imax,kts:kmax,jts:jmax) &
366 / alt(its:imax,kts:kmax,jts:jmax)
367 pm10(its:imax,kts:kmax,jts:jmax) = pm10(its:imax,kts:kmax,jts:jmax) &
368 / alt(its:imax,kts:kmax,jts:jmax)
370 end subroutine sum_pm_mosaic
373 !-----------------------------------------------------------------------
374 !-----------------------------------------------------------------------
375 subroutine sum_pm_mosaic_vbs2 ( &
377 pm2_5_dry, pm2_5_water, pm2_5_dry_ec, pm10, &
378 ids,ide, jds,jde, kds,kde, &
379 ims,ime, jms,jme, kms,kme, &
380 its,ite, jts,jte, kts,kte )
382 USE module_state_description, only: num_chem
383 USE module_data_mosaic_asect
386 INTEGER, INTENT(IN ) :: &
387 ids,ide, jds,jde, kds,kde, &
388 ims,ime, jms,jme, kms,kme, &
389 its,ite, jts,jte, kts,kte
391 REAL, DIMENSION( ims:ime, kms:kme, jms:jme ), &
394 REAL, DIMENSION( ims:ime, kms:kme, jms:jme, num_chem ), &
397 REAL, DIMENSION( ims:ime, kms:kme, jms:jme ), &
398 INTENT(OUT) :: pm2_5_dry,pm2_5_water,pm2_5_dry_ec,pm10
402 INTEGER :: i,imax,j,jmax,k,kmax,n,itype,iphase
404 imax = min(ite,ide-1)
405 jmax = min(jte,jde-1)
408 ! Sum over bins with center diameter < 2.5e-4 cm for pm2_5_dry,
409 ! pm2_5_dry_ec, and pm2_5_water. All bins go into pm10
411 pm2_5_dry(its:imax,kts:kmax,jts:jmax) = 0.
412 pm2_5_dry_ec(its:imax,kts:kmax,jts:jmax) = 0.
413 pm2_5_water(its:imax,kts:kmax,jts:jmax) = 0.
414 pm10(its:imax,kts:kmax,jts:jmax) = 0.
415 do iphase=1,nphase_aer
417 do n = 1, nsize_aer(itype)
418 if (dcen_sect(n,itype) .le. 2.5e-4) then
422 mass = chem(i,k,j,lptr_so4_aer(n,itype,iphase)) &
423 + chem(i,k,j,lptr_no3_aer(n,itype,iphase)) &
424 + chem(i,k,j,lptr_cl_aer(n,itype,iphase)) &
425 + chem(i,k,j,lptr_nh4_aer(n,itype,iphase)) &
426 + chem(i,k,j,lptr_na_aer(n,itype,iphase)) &
427 + chem(i,k,j,lptr_oin_aer(n,itype,iphase)) &
428 + chem(i,k,j,lptr_oc_aer(n,itype,iphase)) &
429 + chem(i,k,j,lptr_bc_aer(n,itype,iphase)) &
430 + chem(i,k,j,lptr_pcg1_b_c_aer(n,itype,iphase)) &
431 + chem(i,k,j,lptr_pcg2_b_c_aer(n,itype,iphase)) &
432 + chem(i,k,j,lptr_pcg1_b_o_aer(n,itype,iphase)) &
433 + chem(i,k,j,lptr_pcg2_b_o_aer(n,itype,iphase)) &
434 + chem(i,k,j,lptr_opcg1_b_c_aer(n,itype,iphase)) &
435 + chem(i,k,j,lptr_opcg1_b_o_aer(n,itype,iphase)) &
436 + chem(i,k,j,lptr_pcg1_f_c_aer(n,itype,iphase)) &
437 + chem(i,k,j,lptr_pcg2_f_c_aer(n,itype,iphase)) &
438 + chem(i,k,j,lptr_pcg1_f_o_aer(n,itype,iphase)) &
439 + chem(i,k,j,lptr_pcg2_f_o_aer(n,itype,iphase)) &
440 + chem(i,k,j,lptr_opcg1_f_c_aer(n,itype,iphase)) &
441 + chem(i,k,j,lptr_opcg1_f_o_aer(n,itype,iphase)) &
442 + chem(i,k,j,lptr_ant1_c_aer(n,itype,iphase)) &
443 + chem(i,k,j,lptr_ant1_o_aer(n,itype,iphase)) &
444 + chem(i,k,j,lptr_biog1_c_aer(n,itype,iphase)) &
445 + chem(i,k,j,lptr_biog1_o_aer(n,itype,iphase))
448 pm2_5_dry(i,k,j) = pm2_5_dry(i,k,j) + mass
450 pm2_5_dry_ec(i,k,j) = pm2_5_dry_ec(i,k,j) &
451 + chem(i,k,j,lptr_bc_aer(n,itype,iphase))
453 pm2_5_water(i,k,j) = pm2_5_water(i,k,j) &
454 + chem(i,k,j,waterptr_aer(n,itype))
456 pm10(i,k,j) = pm10(i,k,j) + mass
464 pm10(i,k,j) = pm10(i,k,j) &
465 + chem(i,k,j,lptr_so4_aer(n,itype,iphase)) &
466 + chem(i,k,j,lptr_no3_aer(n,itype,iphase)) &
467 + chem(i,k,j,lptr_cl_aer(n,itype,iphase)) &
468 + chem(i,k,j,lptr_nh4_aer(n,itype,iphase)) &
469 + chem(i,k,j,lptr_na_aer(n,itype,iphase)) &
470 + chem(i,k,j,lptr_oin_aer(n,itype,iphase)) &
471 + chem(i,k,j,lptr_oc_aer(n,itype,iphase)) &
472 + chem(i,k,j,lptr_bc_aer(n,itype,iphase)) &
473 + chem(i,k,j,lptr_pcg1_b_c_aer(n,itype,iphase)) &
474 + chem(i,k,j,lptr_pcg2_b_c_aer(n,itype,iphase)) &
475 + chem(i,k,j,lptr_pcg1_b_o_aer(n,itype,iphase)) &
476 + chem(i,k,j,lptr_pcg2_b_o_aer(n,itype,iphase)) &
477 + chem(i,k,j,lptr_opcg1_b_c_aer(n,itype,iphase)) &
478 + chem(i,k,j,lptr_opcg1_b_o_aer(n,itype,iphase)) &
479 + chem(i,k,j,lptr_pcg1_f_c_aer(n,itype,iphase)) &
480 + chem(i,k,j,lptr_pcg2_f_c_aer(n,itype,iphase)) &
481 + chem(i,k,j,lptr_pcg1_f_o_aer(n,itype,iphase)) &
482 + chem(i,k,j,lptr_pcg2_f_o_aer(n,itype,iphase)) &
483 + chem(i,k,j,lptr_opcg1_f_c_aer(n,itype,iphase)) &
484 + chem(i,k,j,lptr_opcg1_f_o_aer(n,itype,iphase)) &
485 + chem(i,k,j,lptr_ant1_c_aer(n,itype,iphase)) &
486 + chem(i,k,j,lptr_ant1_o_aer(n,itype,iphase)) &
487 + chem(i,k,j,lptr_biog1_c_aer(n,itype,iphase)) &
488 + chem(i,k,j,lptr_biog1_o_aer(n,itype,iphase))
500 !Convert the units from mixing ratio to concentration (ug m^-3)
501 pm2_5_dry(its:imax,kts:kmax,jts:jmax) = pm2_5_dry(its:imax,kts:kmax,jts:jmax) &
502 / alt(its:imax,kts:kmax,jts:jmax)
503 pm2_5_dry_ec(its:imax,kts:kmax,jts:jmax) = pm2_5_dry_ec(its:imax,kts:kmax,jts:jmax) &
504 / alt(its:imax,kts:kmax,jts:jmax)
505 pm2_5_water(its:imax,kts:kmax,jts:jmax) = pm2_5_water(its:imax,kts:kmax,jts:jmax) &
506 / alt(its:imax,kts:kmax,jts:jmax)
507 pm10(its:imax,kts:kmax,jts:jmax) = pm10(its:imax,kts:kmax,jts:jmax) &
508 / alt(its:imax,kts:kmax,jts:jmax)
510 end subroutine sum_pm_mosaic_vbs2
513 !-----------------------------------------------------------------------
514 !-----------------------------------------------------------------------
515 subroutine sum_pm_mosaic_vbs0 ( &
517 pm2_5_dry, pm2_5_water, pm2_5_dry_ec, pm10, &
518 ids,ide, jds,jde, kds,kde, &
519 ims,ime, jms,jme, kms,kme, &
520 its,ite, jts,jte, kts,kte )
522 USE module_state_description, only: num_chem
523 USE module_data_mosaic_asect
526 INTEGER, INTENT(IN ) :: &
527 ids,ide, jds,jde, kds,kde, &
528 ims,ime, jms,jme, kms,kme, &
529 its,ite, jts,jte, kts,kte
531 REAL, DIMENSION( ims:ime, kms:kme, jms:jme ), &
534 REAL, DIMENSION( ims:ime, kms:kme, jms:jme, num_chem ), &
537 REAL, DIMENSION( ims:ime, kms:kme, jms:jme ), &
538 INTENT(OUT) :: pm2_5_dry,pm2_5_water,pm2_5_dry_ec,pm10
542 INTEGER :: i,imax,j,jmax,k,kmax,n,itype,iphase
544 imax = min(ite,ide-1)
545 jmax = min(jte,jde-1)
549 ! Sum over bins with center diameter < 2.5e-4 cm for pm2_5_dry,
550 ! pm2_5_dry_ec, and pm2_5_water. All bins go into pm10
552 pm2_5_dry(its:imax,kts:kmax,jts:jmax) = 0.
553 pm2_5_dry_ec(its:imax,kts:kmax,jts:jmax) = 0.
554 pm2_5_water(its:imax,kts:kmax,jts:jmax) = 0.
555 pm10(its:imax,kts:kmax,jts:jmax) = 0.
556 do iphase=1,nphase_aer
558 do n = 1, nsize_aer(itype)
559 if (dcen_sect(n,itype) .le. 2.5e-4) then
563 mass = chem(i,k,j,lptr_so4_aer(n,itype,iphase)) &
564 + chem(i,k,j,lptr_no3_aer(n,itype,iphase)) &
565 + chem(i,k,j,lptr_cl_aer(n,itype,iphase)) &
566 + chem(i,k,j,lptr_nh4_aer(n,itype,iphase)) &
567 + chem(i,k,j,lptr_na_aer(n,itype,iphase)) &
568 + chem(i,k,j,lptr_oin_aer(n,itype,iphase)) &
569 + chem(i,k,j,lptr_oc_aer(n,itype,iphase)) &
570 + chem(i,k,j,lptr_bc_aer(n,itype,iphase)) &
571 + chem(i,k,j,lptr_glysoa_sfc_aer(n,itype,iphase)) &
572 + chem(i,k,j,lptr_smpa_aer(n,itype,iphase)) &
573 + chem(i,k,j,lptr_smpbb_aer(n,itype,iphase)) &
574 + chem(i,k,j,lptr_biog1_c_aer(n,itype,iphase)) &
575 + chem(i,k,j,lptr_biog1_o_aer(n,itype,iphase))
577 ! SMPA and SMPBB do not participate to pm2.5 mass
579 pm2_5_dry(i,k,j) = pm2_5_dry(i,k,j) + mass
581 pm2_5_dry_ec(i,k,j) = pm2_5_dry_ec(i,k,j) &
582 + chem(i,k,j,lptr_bc_aer(n,itype,iphase))
584 pm2_5_water(i,k,j) = pm2_5_water(i,k,j) &
585 + chem(i,k,j,waterptr_aer(n,itype))
587 pm10(i,k,j) = pm10(i,k,j) + mass
595 pm10(i,k,j) = pm10(i,k,j) &
596 + chem(i,k,j,lptr_so4_aer(n,itype,iphase)) &
597 + chem(i,k,j,lptr_no3_aer(n,itype,iphase)) &
598 + chem(i,k,j,lptr_cl_aer(n,itype,iphase)) &
599 + chem(i,k,j,lptr_nh4_aer(n,itype,iphase)) &
600 + chem(i,k,j,lptr_na_aer(n,itype,iphase)) &
601 + chem(i,k,j,lptr_oin_aer(n,itype,iphase)) &
602 + chem(i,k,j,lptr_oc_aer(n,itype,iphase)) &
603 + chem(i,k,j,lptr_bc_aer(n,itype,iphase)) &
604 + chem(i,k,j,lptr_glysoa_sfc_aer(n,itype,iphase)) &
605 + chem(i,k,j,lptr_smpa_aer(n,itype,iphase)) &
606 + chem(i,k,j,lptr_smpbb_aer(n,itype,iphase)) &
607 + chem(i,k,j,lptr_biog1_c_aer(n,itype,iphase)) &
608 + chem(i,k,j,lptr_biog1_o_aer(n,itype,iphase))
610 ! SMPA and SMPBB do not participate to pm10 mass
620 !Convert the units from mixing ratio to concentration (ug m^-3)
621 pm2_5_dry(its:imax,kts:kmax,jts:jmax) = pm2_5_dry(its:imax,kts:kmax,jts:jmax) &
622 / alt(its:imax,kts:kmax,jts:jmax)
623 pm2_5_dry_ec(its:imax,kts:kmax,jts:jmax) = pm2_5_dry_ec(its:imax,kts:kmax,jts:jmax) &
624 / alt(its:imax,kts:kmax,jts:jmax)
625 pm2_5_water(its:imax,kts:kmax,jts:jmax) = pm2_5_water(its:imax,kts:kmax,jts:jmax) &
626 / alt(its:imax,kts:kmax,jts:jmax)
627 pm10(its:imax,kts:kmax,jts:jmax) = pm10(its:imax,kts:kmax,jts:jmax) &
628 / alt(its:imax,kts:kmax,jts:jmax)
630 end subroutine sum_pm_mosaic_vbs0
634 !-----------------------------------------------------------------------
635 !-----------------------------------------------------------------------
636 subroutine sum_pm_mosaic_vbs4 ( &
638 pm2_5_dry, pm2_5_water, pm2_5_dry_ec, pm10, &
639 ids,ide, jds,jde, kds,kde, &
640 ims,ime, jms,jme, kms,kme, &
641 its,ite, jts,jte, kts,kte )
643 USE module_state_description, only: num_chem
644 USE module_data_mosaic_asect
647 INTEGER, INTENT(IN ) :: &
648 ids,ide, jds,jde, kds,kde, &
649 ims,ime, jms,jme, kms,kme, &
650 its,ite, jts,jte, kts,kte
652 REAL, DIMENSION( ims:ime, kms:kme, jms:jme ), &
655 REAL, DIMENSION( ims:ime, kms:kme, jms:jme, num_chem ), &
658 REAL, DIMENSION( ims:ime, kms:kme, jms:jme ), &
659 INTENT(OUT) :: pm2_5_dry,pm2_5_water,pm2_5_dry_ec,pm10
663 INTEGER :: i,imax,j,jmax,k,kmax,n,itype,iphase
665 imax = min(ite,ide-1)
666 jmax = min(jte,jde-1)
670 ! Sum over bins with center diameter < 2.5e-4 cm for pm2_5_dry,
671 ! pm2_5_dry_ec, and pm2_5_water. All bins go into pm10
673 pm2_5_dry(its:imax,kts:kmax,jts:jmax) = 0.
674 pm2_5_dry_ec(its:imax,kts:kmax,jts:jmax) = 0.
675 pm2_5_water(its:imax,kts:kmax,jts:jmax) = 0.
676 pm10(its:imax,kts:kmax,jts:jmax) = 0.
677 do iphase=1,nphase_aer
679 do n = 1, nsize_aer(itype)
680 if (dcen_sect(n,itype) .le. 2.5e-4) then
684 mass = chem(i,k,j,lptr_so4_aer(n,itype,iphase)) &
685 + chem(i,k,j,lptr_no3_aer(n,itype,iphase)) &
686 + chem(i,k,j,lptr_cl_aer(n,itype,iphase)) &
687 + chem(i,k,j,lptr_nh4_aer(n,itype,iphase)) &
688 + chem(i,k,j,lptr_na_aer(n,itype,iphase)) &
689 + chem(i,k,j,lptr_oin_aer(n,itype,iphase)) &
690 + chem(i,k,j,lptr_oc_aer(n,itype,iphase)) &
691 + chem(i,k,j,lptr_bc_aer(n,itype,iphase)) &
692 + chem(i,k,j,lptr_glysoa_r1_aer(n,itype,iphase)) &
693 + chem(i,k,j,lptr_glysoa_r2_aer(n,itype,iphase)) &
694 + chem(i,k,j,lptr_glysoa_oh_aer(n,itype,iphase)) &
695 + chem(i,k,j,lptr_glysoa_sfc_aer(n,itype,iphase)) &
696 + chem(i,k,j,lptr_glysoa_nh4_aer(n,itype,iphase)) &
697 + chem(i,k,j,lptr_asoaX_aer(n,itype,iphase)) &
698 + chem(i,k,j,lptr_asoa1_aer(n,itype,iphase)) &
699 + chem(i,k,j,lptr_asoa2_aer(n,itype,iphase)) &
700 + chem(i,k,j,lptr_asoa3_aer(n,itype,iphase)) &
701 + chem(i,k,j,lptr_asoa4_aer(n,itype,iphase)) &
702 + chem(i,k,j,lptr_bsoaX_aer(n,itype,iphase)) &
703 + chem(i,k,j,lptr_bsoa1_aer(n,itype,iphase)) &
704 + chem(i,k,j,lptr_bsoa2_aer(n,itype,iphase)) &
705 + chem(i,k,j,lptr_bsoa3_aer(n,itype,iphase)) &
706 + chem(i,k,j,lptr_bsoa4_aer(n,itype,iphase))
708 ! SMPA and SMPBB do not participate to pm2.5 mass
710 pm2_5_dry(i,k,j) = pm2_5_dry(i,k,j) + mass
712 pm2_5_dry_ec(i,k,j) = pm2_5_dry_ec(i,k,j) &
713 + chem(i,k,j,lptr_bc_aer(n,itype,iphase))
715 pm2_5_water(i,k,j) = pm2_5_water(i,k,j) &
716 + chem(i,k,j,waterptr_aer(n,itype))
718 pm10(i,k,j) = pm10(i,k,j) + mass
726 pm10(i,k,j) = pm10(i,k,j) &
727 + chem(i,k,j,lptr_so4_aer(n,itype,iphase)) &
728 + chem(i,k,j,lptr_no3_aer(n,itype,iphase)) &
729 + chem(i,k,j,lptr_cl_aer(n,itype,iphase)) &
730 + chem(i,k,j,lptr_nh4_aer(n,itype,iphase)) &
731 + chem(i,k,j,lptr_na_aer(n,itype,iphase)) &
732 + chem(i,k,j,lptr_oin_aer(n,itype,iphase)) &
733 + chem(i,k,j,lptr_oc_aer(n,itype,iphase)) &
734 + chem(i,k,j,lptr_bc_aer(n,itype,iphase)) &
735 + chem(i,k,j,lptr_glysoa_r1_aer(n,itype,iphase)) &
736 + chem(i,k,j,lptr_glysoa_r2_aer(n,itype,iphase)) &
737 + chem(i,k,j,lptr_glysoa_sfc_aer(n,itype,iphase)) &
738 + chem(i,k,j,lptr_glysoa_oh_aer(n,itype,iphase)) &
739 + chem(i,k,j,lptr_glysoa_nh4_aer(n,itype,iphase)) &
740 + chem(i,k,j,lptr_asoaX_aer(n,itype,iphase)) &
741 + chem(i,k,j,lptr_asoa1_aer(n,itype,iphase)) &
742 + chem(i,k,j,lptr_asoa2_aer(n,itype,iphase)) &
743 + chem(i,k,j,lptr_asoa3_aer(n,itype,iphase)) &
744 + chem(i,k,j,lptr_asoa4_aer(n,itype,iphase)) &
745 + chem(i,k,j,lptr_bsoaX_aer(n,itype,iphase)) &
746 + chem(i,k,j,lptr_bsoa1_aer(n,itype,iphase)) &
747 + chem(i,k,j,lptr_bsoa2_aer(n,itype,iphase)) &
748 + chem(i,k,j,lptr_bsoa3_aer(n,itype,iphase)) &
749 + chem(i,k,j,lptr_bsoa4_aer(n,itype,iphase))
751 ! SMPA and SMPBB do not participate to pm10 mass
761 !Convert the units from mixing ratio to concentration (ug m^-3)
762 pm2_5_dry(its:imax,kts:kmax,jts:jmax) = pm2_5_dry(its:imax,kts:kmax,jts:jmax) &
763 / alt(its:imax,kts:kmax,jts:jmax)
764 pm2_5_dry_ec(its:imax,kts:kmax,jts:jmax) = pm2_5_dry_ec(its:imax,kts:kmax,jts:jmax) &
765 / alt(its:imax,kts:kmax,jts:jmax)
766 pm2_5_water(its:imax,kts:kmax,jts:jmax) = pm2_5_water(its:imax,kts:kmax,jts:jmax) &
767 / alt(its:imax,kts:kmax,jts:jmax)
768 pm10(its:imax,kts:kmax,jts:jmax) = pm10(its:imax,kts:kmax,jts:jmax) &
769 / alt(its:imax,kts:kmax,jts:jmax)
771 end subroutine sum_pm_mosaic_vbs4
774 !-----------------------------------------------------------------------
777 subroutine sum_vbs0 ( aero_diag_opt, &
779 hoa_a01,hoa_a02,hoa_a03,hoa_a04, &
780 bboa_a01,bboa_a02,bboa_a03,bboa_a04, &
781 soa_a01,soa_a02,soa_a03,soa_a04, &
782 bbsoa_a01,bbsoa_a02,bbsoa_a03,bbsoa_a04, &
783 biog_a01,biog_a02,biog_a03,biog_a04, &
784 asmpsoa_a01,asmpsoa_a02,asmpsoa_a03,asmpsoa_a04, &
785 arosoa_a01,arosoa_a02,arosoa_a03,arosoa_a04, &
786 totoa_a01,totoa_a02,totoa_a03,totoa_a04, &
787 biog_v1,biog_v2,biog_v3,biog_v4, &
788 ant_v1,ant_v2,ant_v3,ant_v4, &
790 ids,ide, jds,jde, kds,kde, &
791 ims,ime, jms,jme, kms,kme, &
792 its,ite, jts,jte, kts,kte )
794 USE module_state_description, only: num_chem
795 USE module_data_mosaic_asect
798 INTEGER, INTENT(IN ) :: aero_diag_opt
799 INTEGER, INTENT(IN ) :: &
800 ids,ide, jds,jde, kds,kde, &
801 ims,ime, jms,jme, kms,kme, &
802 its,ite, jts,jte, kts,kte
804 REAL, DIMENSION( ims:ime, kms:kme, jms:jme ), &
807 REAL, DIMENSION( ims:ime, kms:kme, jms:jme, num_chem ), &
809 REAL, DIMENSION( ims:ime, kms:kme, jms:jme ), &
810 INTENT(OUT) :: hoa_a01,hoa_a02,hoa_a03,hoa_a04, &
811 bboa_a01,bboa_a02,bboa_a03,bboa_a04, &
812 soa_a01,soa_a02,soa_a03,soa_a04, &
813 bbsoa_a01,bbsoa_a02,bbsoa_a03,bbsoa_a04, &
814 biog_a01,biog_a02,biog_a03,biog_a04, &
815 asmpsoa_a01,asmpsoa_a02,asmpsoa_a03,asmpsoa_a04, &
816 arosoa_a01,arosoa_a02,arosoa_a03,arosoa_a04, &
817 totoa_a01,totoa_a02,totoa_a03,totoa_a04, &
818 biog_v1,biog_v2,biog_v3,biog_v4, &
819 ant_v1,ant_v2,ant_v3,ant_v4,smpa_v1,smpbb_v1
823 INTEGER :: i,imax,j,jmax,k,kmax,n,itype,iphase
825 imax = min(ite,ide-1)
826 jmax = min(jte,jde-1)
829 totoa_a01(its:imax,kts:kmax,jts:jmax) = 0.
830 totoa_a02(its:imax,kts:kmax,jts:jmax) = 0.
831 totoa_a03(its:imax,kts:kmax,jts:jmax) = 0.
832 totoa_a04(its:imax,kts:kmax,jts:jmax) = 0.
834 if( aero_diag_opt > 0 ) then
835 hoa_a01(its:imax,kts:kmax,jts:jmax) = 0.
836 soa_a01(its:imax,kts:kmax,jts:jmax) = 0.
837 bboa_a01(its:imax,kts:kmax,jts:jmax) = 0.
838 bbsoa_a01(its:imax,kts:kmax,jts:jmax) = 0.
839 biog_a01(its:imax,kts:kmax,jts:jmax) = 0.
840 asmpsoa_a01(its:imax,kts:kmax,jts:jmax) = 0.
841 arosoa_a01(its:imax,kts:kmax,jts:jmax) = 0.
843 hoa_a02(its:imax,kts:kmax,jts:jmax) = 0.
844 soa_a02(its:imax,kts:kmax,jts:jmax) = 0.
845 bboa_a02(its:imax,kts:kmax,jts:jmax) = 0.
846 bbsoa_a02(its:imax,kts:kmax,jts:jmax) = 0.
847 asmpsoa_a02(its:imax,kts:kmax,jts:jmax) = 0.
848 arosoa_a02(its:imax,kts:kmax,jts:jmax) = 0.
849 biog_a02(its:imax,kts:kmax,jts:jmax) = 0.
851 hoa_a03(its:imax,kts:kmax,jts:jmax) = 0.
852 soa_a03(its:imax,kts:kmax,jts:jmax) = 0.
853 bboa_a03(its:imax,kts:kmax,jts:jmax) = 0.
854 bbsoa_a03(its:imax,kts:kmax,jts:jmax) = 0.
855 asmpsoa_a03(its:imax,kts:kmax,jts:jmax) = 0.
856 arosoa_a03(its:imax,kts:kmax,jts:jmax) = 0.
857 biog_a03(its:imax,kts:kmax,jts:jmax) = 0.
859 hoa_a04(its:imax,kts:kmax,jts:jmax) = 0.
860 soa_a04(its:imax,kts:kmax,jts:jmax) = 0.
861 bboa_a04(its:imax,kts:kmax,jts:jmax) = 0.
862 bbsoa_a04(its:imax,kts:kmax,jts:jmax) = 0.
863 asmpsoa_a04(its:imax,kts:kmax,jts:jmax) = 0.
864 arosoa_a04(its:imax,kts:kmax,jts:jmax) = 0.
865 biog_a04(its:imax,kts:kmax,jts:jmax) = 0.
867 ! Species to calculate O:C ratios
868 biog_v1(its:imax,kts:kmax,jts:jmax) = 0.
869 biog_v2(its:imax,kts:kmax,jts:jmax) = 0.
870 biog_v3(its:imax,kts:kmax,jts:jmax) = 0.
871 biog_v4(its:imax,kts:kmax,jts:jmax) = 0.
872 smpa_v1(its:imax,kts:kmax,jts:jmax) = 0.
873 smpbb_v1(its:imax,kts:kmax,jts:jmax) = 0.
874 ant_v1(its:imax,kts:kmax,jts:jmax) = 0.
875 ant_v2(its:imax,kts:kmax,jts:jmax) = 0.
876 ant_v3(its:imax,kts:kmax,jts:jmax) = 0.
877 ant_v4(its:imax,kts:kmax,jts:jmax) = 0.
882 do iphase=1,nphase_aer
887 totoa_a01(i,k,j)= totoa_a01(i,k,j) &
888 + chem(i,k,j,lptr_smpa_aer(1,itype,iphase)) &
889 + chem(i,k,j,lptr_smpbb_aer(1,itype,iphase)) &
890 + chem(i,k,j,lptr_biog1_c_aer(1,itype,iphase)) &
891 + chem(i,k,j,lptr_biog1_o_aer(1,itype,iphase)) &
892 + chem(i,k,j,lptr_glysoa_sfc_aer(1,itype,iphase)) &
893 + chem(i,k,j,lptr_oc_aer(1,itype,iphase))
894 totoa_a02(i,k,j)= totoa_a02(i,k,j) &
895 + chem(i,k,j,lptr_oc_aer(2,itype,iphase)) &
896 + chem(i,k,j,lptr_glysoa_sfc_aer(2,itype,iphase)) &
897 + chem(i,k,j,lptr_smpa_aer(2,itype,iphase)) &
898 + chem(i,k,j,lptr_smpbb_aer(2,itype,iphase)) &
899 + chem(i,k,j,lptr_biog1_c_aer(2,itype,iphase)) &
900 + chem(i,k,j,lptr_biog1_o_aer(2,itype,iphase))
901 totoa_a03(i,k,j)= totoa_a03(i,k,j) &
902 + chem(i,k,j,lptr_smpa_aer(3,itype,iphase)) &
903 + chem(i,k,j,lptr_smpbb_aer(3,itype,iphase)) &
904 + chem(i,k,j,lptr_glysoa_sfc_aer(3,itype,iphase)) &
905 + chem(i,k,j,lptr_biog1_c_aer(3,itype,iphase)) &
906 + chem(i,k,j,lptr_biog1_o_aer(3,itype,iphase)) &
907 + chem(i,k,j,lptr_oc_aer(3,itype,iphase))
908 totoa_a04(i,k,j)= totoa_a04(i,k,j) &
909 + chem(i,k,j,lptr_smpa_aer(4,itype,iphase)) &
910 + chem(i,k,j,lptr_smpbb_aer(4,itype,iphase)) &
911 + chem(i,k,j,lptr_glysoa_sfc_aer(4,itype,iphase)) &
912 + chem(i,k,j,lptr_biog1_c_aer(4,itype,iphase)) &
913 + chem(i,k,j,lptr_biog1_o_aer(4,itype,iphase)) &
914 + chem(i,k,j,lptr_oc_aer(4,itype,iphase))
921 if( aero_diag_opt > 0 ) then
922 do iphase=1,nphase_aer
924 do n = 1, nsize_aer(itype) !The 4th bin is 2.5-10um and outside the AMS measurements
929 biog_v1(i,k,j)= biog_v1(i,k,j) &
930 + chem(i,k,j,lptr_biog1_c_aer(n,itype,iphase)) &
931 + chem(i,k,j,lptr_biog1_o_aer(n,itype,iphase))
933 ant_v1(i,k,j)= ant_v1(i,k,j) &
934 + chem(i,k,j,lptr_ant1_c_aer(n,itype,iphase)) &
935 + chem(i,k,j,lptr_ant1_o_aer(n,itype,iphase))
937 smpa_v1(i,k,j)= smpa_v1(i,k,j) &
938 + chem(i,k,j,lptr_smpa_aer(n,itype,iphase))
939 smpbb_v1(i,k,j)= smpbb_v1(i,k,j) &
940 + chem(i,k,j,lptr_smpbb_aer(n,itype,iphase))
949 biog_v1(its:imax,kts:kmax,jts:jmax) = biog_v1(its:imax,kts:kmax,jts:jmax) &
950 / alt(its:imax,kts:kmax,jts:jmax)
951 ant_v1(its:imax,kts:kmax,jts:jmax) = ant_v1(its:imax,kts:kmax,jts:jmax) &
952 / alt(its:imax,kts:kmax,jts:jmax)
953 smpa_v1(its:imax,kts:kmax,jts:jmax) = smpa_v1(its:imax,kts:kmax,jts:jmax) &
954 / alt(its:imax,kts:kmax,jts:jmax)
955 smpbb_v1(its:imax,kts:kmax,jts:jmax) = smpbb_v1(its:imax,kts:kmax,jts:jmax) &
956 / alt(its:imax,kts:kmax,jts:jmax)
959 do iphase=1,nphase_aer
964 ! missing summation! (hoa = hoa + x ...)
965 ! hoa_a01(i,k,j)= chem(i,k,j,lptr_oc_aer(1,itype,iphase))
968 ! soa_a01(i,k,j)= (chem(i,k,j,lptr_smpa_aer(1,itype,iphase)) &
969 ! + chem(i,k,j,lptr_smpbb_aer(1,itype,iphase)) &
970 ! + chem(i,k,j,lptr_biog1_c_aer(1,itype,iphase)) &
971 ! + chem(i,k,j,lptr_biog1_o_aer(1,itype,iphase)))
974 ! bbsoa_a01(i,k,j)= chem(i,k,j,lptr_smpbb_aer(1,itype,iphase))
977 ! biog_a01(i,k,j)= (chem(i,k,j,lptr_biog1_c_aer(1,itype,iphase)) &
978 ! + chem(i,k,j,lptr_biog1_o_aer(1,itype,iphase)))
980 ! asmpsoa_a01(i,k,j)= chem(i,k,j,lptr_smpa_aer(1,itype,iphase))
982 ! totoa_a01(i,k,j)= ( &
983 ! + chem(i,k,j,lptr_smpa_aer(1,itype,iphase)) &
984 ! + chem(i,k,j,lptr_smpbb_aer(1,itype,iphase)) &
985 ! + chem(i,k,j,lptr_biog1_c_aer(1,itype,iphase)) &
986 ! + chem(i,k,j,lptr_biog1_o_aer(1,itype,iphase)) &
987 ! + chem(i,k,j,lptr_oc_aer(1,itype,iphase)))
989 hoa_a01(i,k,j)= hoa_a01(i,k,j) &
990 + chem(i,k,j,lptr_oc_aer(1,itype,iphase))
993 soa_a01(i,k,j)= soa_a01(i,k,j) &
994 + chem(i,k,j,lptr_smpa_aer(1,itype,iphase)) &
995 + chem(i,k,j,lptr_smpbb_aer(1,itype,iphase)) &
996 + chem(i,k,j,lptr_glysoa_sfc_aer(1,itype,iphase)) &
997 + chem(i,k,j,lptr_biog1_c_aer(1,itype,iphase)) &
998 + chem(i,k,j,lptr_biog1_o_aer(1,itype,iphase))
1001 bbsoa_a01(i,k,j)= bbsoa_a01(i,k,j) &
1002 + chem(i,k,j,lptr_smpbb_aer(1,itype,iphase))
1005 biog_a01(i,k,j)= biog_a01(i,k,j) &
1006 + chem(i,k,j,lptr_biog1_c_aer(1,itype,iphase)) &
1007 + chem(i,k,j,lptr_biog1_o_aer(1,itype,iphase))
1009 asmpsoa_a01(i,k,j)= asmpsoa_a01(i,k,j) &
1010 + chem(i,k,j,lptr_smpa_aer(1,itype,iphase))
1018 do iphase=1,nphase_aer
1019 do itype=1,ntype_aer
1023 ! missing summation! (hoa = hoa + x ...)
1024 ! hoa_a02(i,k,j)= (chem(i,k,j,lptr_oc_aer(2,itype,iphase)))
1027 ! soa_a02(i,k,j)= (chem(i,k,j,lptr_smpa_aer(2,itype,iphase)) &
1028 ! + chem(i,k,j,lptr_smpbb_aer(2,itype,iphase)) &
1029 ! + chem(i,k,j,lptr_biog1_c_aer(2,itype,iphase)) &
1030 ! + chem(i,k,j,lptr_biog1_o_aer(2,itype,iphase)))
1033 ! bbsoa_a02(i,k,j)= (chem(i,k,j,lptr_smpbb_aer(2,itype,iphase)))
1036 ! biog_a02(i,k,j)= (chem(i,k,j,lptr_biog1_c_aer(2,itype,iphase)) &
1037 ! + chem(i,k,j,lptr_biog1_o_aer(2,itype,iphase)))
1040 ! asmpsoa_a02(i,k,j)= chem(i,k,j,lptr_smpa_aer(2,itype,iphase))
1042 ! totoa_a02(i,k,j)= ( chem(i,k,j,lptr_oc_aer(2,itype,iphase)) &
1043 ! + chem(i,k,j,lptr_smpa_aer(2,itype,iphase)) &
1044 ! + chem(i,k,j,lptr_smpbb_aer(2,itype,iphase)) &
1045 ! + chem(i,k,j,lptr_biog1_c_aer(2,itype,iphase)) &
1046 ! + chem(i,k,j,lptr_biog1_o_aer(2,itype,iphase)))
1047 hoa_a02(i,k,j)= hoa_a02(i,k,j) &
1048 + chem(i,k,j,lptr_oc_aer(2,itype,iphase))
1051 soa_a02(i,k,j)= soa_a02(i,k,j) &
1052 + chem(i,k,j,lptr_smpa_aer(2,itype,iphase)) &
1053 + chem(i,k,j,lptr_smpbb_aer(2,itype,iphase)) &
1054 + chem(i,k,j,lptr_glysoa_sfc_aer(2,itype,iphase)) &
1055 + chem(i,k,j,lptr_biog1_c_aer(2,itype,iphase)) &
1056 + chem(i,k,j,lptr_biog1_o_aer(2,itype,iphase))
1059 bbsoa_a02(i,k,j)= bbsoa_a02(i,k,j) &
1060 + chem(i,k,j,lptr_smpbb_aer(2,itype,iphase))
1063 biog_a02(i,k,j)= biog_a02(i,k,j) &
1064 + chem(i,k,j,lptr_biog1_c_aer(2,itype,iphase)) &
1065 + chem(i,k,j,lptr_biog1_o_aer(2,itype,iphase))
1068 asmpsoa_a02(i,k,j)= asmpsoa_a02(i,k,j) &
1069 + chem(i,k,j,lptr_smpa_aer(2,itype,iphase))
1077 do iphase=1,nphase_aer
1078 do itype=1,ntype_aer
1082 ! missing summation! (hoa = hoa + x ...)
1083 ! hoa_a03(i,k,j)= (chem(i,k,j,lptr_oc_aer(3,itype,iphase)))
1085 ! soa_a03(i,k,j)= (chem(i,k,j,lptr_smpa_aer(3,itype,iphase)) &
1086 ! + chem(i,k,j,lptr_smpbb_aer(3,itype,iphase)) &
1087 ! + chem(i,k,j,lptr_biog1_c_aer(3,itype,iphase)) &
1088 ! + chem(i,k,j,lptr_biog1_o_aer(3,itype,iphase)))
1091 ! bbsoa_a03(i,k,j)= (chem(i,k,j,lptr_smpbb_aer(3,itype,iphase)))
1093 ! biog_a03(i,k,j)= (chem(i,k,j,lptr_biog1_c_aer(3,itype,iphase)) &
1094 ! + chem(i,k,j,lptr_biog1_o_aer(3,itype,iphase)))
1096 ! asmpsoa_a03(i,k,j)= chem(i,k,j,lptr_smpa_aer(3,itype,iphase))
1099 ! totoa_a03(i,k,j)= ( &
1100 ! + chem(i,k,j,lptr_smpa_aer(3,itype,iphase)) &
1101 ! + chem(i,k,j,lptr_smpbb_aer(3,itype,iphase)) &
1102 ! + chem(i,k,j,lptr_biog1_c_aer(3,itype,iphase)) &
1103 ! + chem(i,k,j,lptr_biog1_o_aer(3,itype,iphase)) &
1104 ! + chem(i,k,j,lptr_oc_aer(3,itype,iphase)))
1105 hoa_a03(i,k,j)= hoa_a03(i,k,j) &
1106 + (chem(i,k,j,lptr_oc_aer(3,itype,iphase)))
1108 soa_a03(i,k,j)= soa_a03(i,k,j) &
1109 + chem(i,k,j,lptr_smpa_aer(3,itype,iphase)) &
1110 + chem(i,k,j,lptr_smpbb_aer(3,itype,iphase)) &
1111 + chem(i,k,j,lptr_glysoa_sfc_aer(3,itype,iphase)) &
1112 + chem(i,k,j,lptr_biog1_c_aer(3,itype,iphase)) &
1113 + chem(i,k,j,lptr_biog1_o_aer(3,itype,iphase))
1116 bbsoa_a03(i,k,j)= bbsoa_a03(i,k,j) &
1117 + chem(i,k,j,lptr_smpbb_aer(3,itype,iphase))
1119 biog_a03(i,k,j)= biog_a03(i,k,j) &
1120 + chem(i,k,j,lptr_biog1_c_aer(3,itype,iphase)) &
1121 + chem(i,k,j,lptr_biog1_o_aer(3,itype,iphase))
1123 asmpsoa_a03(i,k,j)= asmpsoa_a03(i,k,j) &
1124 + chem(i,k,j,lptr_smpa_aer(3,itype,iphase))
1132 do iphase=1,nphase_aer
1133 do itype=1,ntype_aer
1137 ! missing summation! (hoa = hoa + x ...)
1138 ! hoa_a04(i,k,j)= (chem(i,k,j,lptr_oc_aer(4,itype,iphase)))
1141 ! soa_a04(i,k,j)= (chem(i,k,j,lptr_smpa_aer(4,itype,iphase)) &
1142 ! + chem(i,k,j,lptr_smpbb_aer(4,itype,iphase)) &
1143 ! + chem(i,k,j,lptr_biog1_c_aer(4,itype,iphase)) &
1144 ! + chem(i,k,j,lptr_biog1_o_aer(4,itype,iphase)))
1147 ! bbsoa_a04(i,k,j)= (chem(i,k,j,lptr_smpbb_aer(4,itype,iphase)))
1150 ! biog_a04(i,k,j)= (chem(i,k,j,lptr_biog1_c_aer(4,itype,iphase)) &
1151 ! + chem(i,k,j,lptr_biog1_o_aer(4,itype,iphase)))
1153 ! asmpsoa_a04(i,k,j)= chem(i,k,j,lptr_smpa_aer(4,itype,iphase))
1157 ! totoa_a04(i,k,j)= ( &
1158 ! + chem(i,k,j,lptr_smpa_aer(4,itype,iphase)) &
1159 ! + chem(i,k,j,lptr_smpbb_aer(4,itype,iphase)) &
1160 ! + chem(i,k,j,lptr_biog1_c_aer(4,itype,iphase)) &
1161 ! + chem(i,k,j,lptr_biog1_o_aer(4,itype,iphase)) &
1162 ! + chem(i,k,j,lptr_oc_aer(4,itype,iphase)))
1163 hoa_a04(i,k,j)= hoa_a04(i,k,j) &
1164 + chem(i,k,j,lptr_oc_aer(4,itype,iphase))
1167 soa_a04(i,k,j)= soa_a04(i,k,j) &
1168 + chem(i,k,j,lptr_smpa_aer(4,itype,iphase)) &
1169 + chem(i,k,j,lptr_smpbb_aer(4,itype,iphase)) &
1170 + chem(i,k,j,lptr_glysoa_sfc_aer(4,itype,iphase)) &
1171 + chem(i,k,j,lptr_biog1_c_aer(4,itype,iphase)) &
1172 + chem(i,k,j,lptr_biog1_o_aer(4,itype,iphase))
1175 bbsoa_a04(i,k,j)= bbsoa_a04(i,k,j) &
1176 + chem(i,k,j,lptr_smpbb_aer(4,itype,iphase))
1179 biog_a04(i,k,j)= biog_a04(i,k,j) &
1180 + chem(i,k,j,lptr_biog1_c_aer(4,itype,iphase)) &
1181 + chem(i,k,j,lptr_biog1_o_aer(4,itype,iphase))
1183 asmpsoa_a04(i,k,j)= asmpsoa_a04(i,k,j) &
1184 + chem(i,k,j,lptr_smpa_aer(4,itype,iphase))
1193 !Factor of 1.4 used below to convert OC to OA
1194 totoa_a01(its:imax,kts:kmax,jts:jmax) =totoa_a01(its:imax,kts:kmax,jts:jmax) &
1195 / alt(its:imax,kts:kmax,jts:jmax)
1196 totoa_a02(its:imax,kts:kmax,jts:jmax) =totoa_a02(its:imax,kts:kmax,jts:jmax) &
1197 / alt(its:imax,kts:kmax,jts:jmax)
1198 totoa_a03(its:imax,kts:kmax,jts:jmax) =totoa_a03(its:imax,kts:kmax,jts:jmax) &
1199 / alt(its:imax,kts:kmax,jts:jmax)
1200 totoa_a04(its:imax,kts:kmax,jts:jmax) =totoa_a04(its:imax,kts:kmax,jts:jmax) &
1201 / alt(its:imax,kts:kmax,jts:jmax)
1203 if( aero_diag_opt > 0 ) then
1204 hoa_a01(its:imax,kts:kmax,jts:jmax) =hoa_a01(its:imax,kts:kmax,jts:jmax) &
1205 / alt(its:imax,kts:kmax,jts:jmax)
1206 soa_a01(its:imax,kts:kmax,jts:jmax) =soa_a01(its:imax,kts:kmax,jts:jmax) &
1207 / alt(its:imax,kts:kmax,jts:jmax)
1208 bboa_a01(its:imax,kts:kmax,jts:jmax) =bboa_a01(its:imax,kts:kmax,jts:jmax) &
1209 / alt(its:imax,kts:kmax,jts:jmax)
1210 bbsoa_a01(its:imax,kts:kmax,jts:jmax) =bbsoa_a01(its:imax,kts:kmax,jts:jmax) &
1211 / alt(its:imax,kts:kmax,jts:jmax)
1214 biog_a01(its:imax,kts:kmax,jts:jmax) =biog_a01(its:imax,kts:kmax,jts:jmax) &
1215 / alt(its:imax,kts:kmax,jts:jmax)
1217 asmpsoa_a01(its:imax,kts:kmax,jts:jmax) =asmpsoa_a01(its:imax,kts:kmax,jts:jmax) &
1218 / alt(its:imax,kts:kmax,jts:jmax)
1222 hoa_a02(its:imax,kts:kmax,jts:jmax) =hoa_a02(its:imax,kts:kmax,jts:jmax) &
1223 / alt(its:imax,kts:kmax,jts:jmax)
1224 soa_a02(its:imax,kts:kmax,jts:jmax) =soa_a02(its:imax,kts:kmax,jts:jmax) &
1225 / alt(its:imax,kts:kmax,jts:jmax)
1226 bboa_a02(its:imax,kts:kmax,jts:jmax) =bboa_a02(its:imax,kts:kmax,jts:jmax) &
1227 / alt(its:imax,kts:kmax,jts:jmax)
1228 bbsoa_a02(its:imax,kts:kmax,jts:jmax) =bbsoa_a02(its:imax,kts:kmax,jts:jmax) &
1229 / alt(its:imax,kts:kmax,jts:jmax)
1231 biog_a02(its:imax,kts:kmax,jts:jmax) =biog_a02(its:imax,kts:kmax,jts:jmax) &
1232 / alt(its:imax,kts:kmax,jts:jmax)
1234 asmpsoa_a02(its:imax,kts:kmax,jts:jmax) =asmpsoa_a02(its:imax,kts:kmax,jts:jmax) &
1235 / alt(its:imax,kts:kmax,jts:jmax)
1238 hoa_a03(its:imax,kts:kmax,jts:jmax) =hoa_a03(its:imax,kts:kmax,jts:jmax) &
1239 / alt(its:imax,kts:kmax,jts:jmax)
1240 soa_a03(its:imax,kts:kmax,jts:jmax) =soa_a03(its:imax,kts:kmax,jts:jmax) &
1241 / alt(its:imax,kts:kmax,jts:jmax)
1242 bboa_a03(its:imax,kts:kmax,jts:jmax) =bboa_a03(its:imax,kts:kmax,jts:jmax) &
1243 / alt(its:imax,kts:kmax,jts:jmax)
1244 bbsoa_a03(its:imax,kts:kmax,jts:jmax) =bbsoa_a03(its:imax,kts:kmax,jts:jmax) &
1245 / alt(its:imax,kts:kmax,jts:jmax)
1247 biog_a03(its:imax,kts:kmax,jts:jmax) =biog_a03(its:imax,kts:kmax,jts:jmax) &
1248 / alt(its:imax,kts:kmax,jts:jmax)
1249 asmpsoa_a03(its:imax,kts:kmax,jts:jmax) =asmpsoa_a03(its:imax,kts:kmax,jts:jmax) &
1250 / alt(its:imax,kts:kmax,jts:jmax)
1253 hoa_a04(its:imax,kts:kmax,jts:jmax) =hoa_a04(its:imax,kts:kmax,jts:jmax) &
1254 / alt(its:imax,kts:kmax,jts:jmax)
1255 soa_a04(its:imax,kts:kmax,jts:jmax) =soa_a04(its:imax,kts:kmax,jts:jmax) &
1256 / alt(its:imax,kts:kmax,jts:jmax)
1257 bboa_a04(its:imax,kts:kmax,jts:jmax) =bboa_a04(its:imax,kts:kmax,jts:jmax) &
1258 / alt(its:imax,kts:kmax,jts:jmax)
1259 bbsoa_a04(its:imax,kts:kmax,jts:jmax) =bbsoa_a04(its:imax,kts:kmax,jts:jmax) &
1260 / alt(its:imax,kts:kmax,jts:jmax)
1262 biog_a04(its:imax,kts:kmax,jts:jmax) =biog_a04(its:imax,kts:kmax,jts:jmax) &
1263 / alt(its:imax,kts:kmax,jts:jmax)
1264 asmpsoa_a04(its:imax,kts:kmax,jts:jmax) =asmpsoa_a04(its:imax,kts:kmax,jts:jmax) &
1265 / alt(its:imax,kts:kmax,jts:jmax)
1269 end subroutine sum_vbs0
1272 !-----------------------------------------------------------------------
1274 subroutine sum_vbs2 ( aero_diag_opt, &
1276 hoa_a01,hoa_a02,hoa_a03,hoa_a04, &
1277 hoa_a05,hoa_a06,hoa_a07,hoa_a08, & !BSINGH(12/04/2013): Added 4 more bins(5 to 8) for all apecies
1278 bboa_a01,bboa_a02,bboa_a03,bboa_a04, &
1279 bboa_a05,bboa_a06,bboa_a07,bboa_a08, &
1280 soa_a01,soa_a02,soa_a03,soa_a04, &
1281 soa_a05,soa_a06,soa_a07,soa_a08, &
1282 bbsoa_a01,bbsoa_a02,bbsoa_a03,bbsoa_a04, &
1283 bbsoa_a05,bbsoa_a06,bbsoa_a07,bbsoa_a08, &
1284 hsoa_a01,hsoa_a02,hsoa_a03,hsoa_a04, &
1285 hsoa_a05,hsoa_a06,hsoa_a07,hsoa_a08, &
1286 biog_a01,biog_a02,biog_a03,biog_a04, &
1287 biog_a05,biog_a06,biog_a07,biog_a08, &
1288 arosoa_a01,arosoa_a02,arosoa_a03,arosoa_a04, &
1289 arosoa_a05,arosoa_a06,arosoa_a07,arosoa_a08, &
1290 totoa_a01,totoa_a02,totoa_a03,totoa_a04, &
1291 totoa_a05,totoa_a06,totoa_a07,totoa_a08, &
1292 hsoa_c,hsoa_o,bbsoa_c,bbsoa_o, &
1293 biog_v1,biog_v2,biog_v3,biog_v4, &
1294 ant_v1,ant_v2,ant_v3,ant_v4, &
1295 ids,ide, jds,jde, kds,kde, &
1296 ims,ime, jms,jme, kms,kme, &
1297 its,ite, jts,jte, kts,kte )
1299 USE module_state_description, only: num_chem
1300 USE module_data_mosaic_asect
1303 INTEGER, INTENT(IN ) :: aero_diag_opt
1304 INTEGER, INTENT(IN ) :: &
1305 ids,ide, jds,jde, kds,kde, &
1306 ims,ime, jms,jme, kms,kme, &
1307 its,ite, jts,jte, kts,kte
1309 REAL, DIMENSION( ims:ime, kms:kme, jms:jme ), &
1312 REAL, DIMENSION( ims:ime, kms:kme, jms:jme, num_chem ), &
1314 REAL, DIMENSION( ims:ime, kms:kme, jms:jme ), &
1315 INTENT(OUT) :: hoa_a01,hoa_a02,hoa_a03,hoa_a04, &
1316 hoa_a05,hoa_a06,hoa_a07,hoa_a08, &
1317 bboa_a01,bboa_a02,bboa_a03,bboa_a04, &
1318 bboa_a05,bboa_a06,bboa_a07,bboa_a08, &
1319 soa_a01,soa_a02,soa_a03,soa_a04, &
1320 soa_a05,soa_a06,soa_a07,soa_a08, &
1321 bbsoa_a01,bbsoa_a02,bbsoa_a03,bbsoa_a04, &
1322 bbsoa_a05,bbsoa_a06,bbsoa_a07,bbsoa_a08, &
1323 biog_a01,biog_a02,biog_a03,biog_a04, &
1324 biog_a05,biog_a06,biog_a07,biog_a08, &
1325 hsoa_a01,hsoa_a02,hsoa_a03,hsoa_a04, &
1326 hsoa_a05,hsoa_a06,hsoa_a07,hsoa_a08, &
1327 arosoa_a01,arosoa_a02,arosoa_a03,arosoa_a04, &
1328 arosoa_a05,arosoa_a06,arosoa_a07,arosoa_a08, &
1329 totoa_a01,totoa_a02,totoa_a03,totoa_a04, &
1330 totoa_a05,totoa_a06,totoa_a07,totoa_a08, &
1331 hsoa_c,hsoa_o,bbsoa_c,bbsoa_o, &
1332 biog_v1,biog_v2,biog_v3,biog_v4, &
1333 ant_v1,ant_v2,ant_v3,ant_v4
1337 INTEGER :: i,imax,j,jmax,k,kmax,n,itype,iphase
1339 imax = min(ite,ide-1)
1340 jmax = min(jte,jde-1)
1343 totoa_a01(its:imax,kts:kmax,jts:jmax) = 0.
1344 totoa_a02(its:imax,kts:kmax,jts:jmax) = 0.
1345 totoa_a03(its:imax,kts:kmax,jts:jmax) = 0.
1346 totoa_a04(its:imax,kts:kmax,jts:jmax) = 0.
1347 totoa_a05(its:imax,kts:kmax,jts:jmax) = 0.
1348 totoa_a06(its:imax,kts:kmax,jts:jmax) = 0.
1349 totoa_a07(its:imax,kts:kmax,jts:jmax) = 0.
1350 totoa_a08(its:imax,kts:kmax,jts:jmax) = 0.
1352 if( aero_diag_opt > 0 ) then
1353 hoa_a01(its:imax,kts:kmax,jts:jmax) = 0.
1354 soa_a01(its:imax,kts:kmax,jts:jmax) = 0.
1355 bboa_a01(its:imax,kts:kmax,jts:jmax) = 0.
1356 bbsoa_a01(its:imax,kts:kmax,jts:jmax) = 0.
1357 hsoa_a01(its:imax,kts:kmax,jts:jmax) = 0.
1358 biog_a01(its:imax,kts:kmax,jts:jmax) = 0.
1359 arosoa_a01(its:imax,kts:kmax,jts:jmax) = 0.
1361 hoa_a02(its:imax,kts:kmax,jts:jmax) = 0.
1362 soa_a02(its:imax,kts:kmax,jts:jmax) = 0.
1363 bboa_a02(its:imax,kts:kmax,jts:jmax) = 0.
1364 bbsoa_a02(its:imax,kts:kmax,jts:jmax) = 0.
1365 hsoa_a02(its:imax,kts:kmax,jts:jmax) = 0.
1366 arosoa_a02(its:imax,kts:kmax,jts:jmax) = 0.
1367 biog_a02(its:imax,kts:kmax,jts:jmax) = 0.
1369 hoa_a03(its:imax,kts:kmax,jts:jmax) = 0.
1370 soa_a03(its:imax,kts:kmax,jts:jmax) = 0.
1371 bboa_a03(its:imax,kts:kmax,jts:jmax) = 0.
1372 bbsoa_a03(its:imax,kts:kmax,jts:jmax) = 0.
1373 hsoa_a03(its:imax,kts:kmax,jts:jmax) = 0.
1374 arosoa_a03(its:imax,kts:kmax,jts:jmax) = 0.
1375 biog_a03(its:imax,kts:kmax,jts:jmax) = 0.
1377 hoa_a04(its:imax,kts:kmax,jts:jmax) = 0.
1378 soa_a04(its:imax,kts:kmax,jts:jmax) = 0.
1379 bboa_a04(its:imax,kts:kmax,jts:jmax) = 0.
1380 bbsoa_a04(its:imax,kts:kmax,jts:jmax) = 0.
1381 hsoa_a04(its:imax,kts:kmax,jts:jmax) = 0.
1382 arosoa_a04(its:imax,kts:kmax,jts:jmax) = 0.
1383 biog_a04(its:imax,kts:kmax,jts:jmax) = 0.
1386 hoa_a05(its:imax,kts:kmax,jts:jmax) = 0.
1387 soa_a05(its:imax,kts:kmax,jts:jmax) = 0.
1388 bboa_a05(its:imax,kts:kmax,jts:jmax) = 0.
1389 bbsoa_a05(its:imax,kts:kmax,jts:jmax) = 0.
1390 hsoa_a05(its:imax,kts:kmax,jts:jmax) = 0.
1391 arosoa_a05(its:imax,kts:kmax,jts:jmax) = 0.
1392 biog_a05(its:imax,kts:kmax,jts:jmax) = 0.
1394 hoa_a06(its:imax,kts:kmax,jts:jmax) = 0.
1395 soa_a06(its:imax,kts:kmax,jts:jmax) = 0.
1396 bboa_a06(its:imax,kts:kmax,jts:jmax) = 0.
1397 bbsoa_a06(its:imax,kts:kmax,jts:jmax) = 0.
1398 hsoa_a06(its:imax,kts:kmax,jts:jmax) = 0.
1399 arosoa_a06(its:imax,kts:kmax,jts:jmax) = 0.
1400 biog_a06(its:imax,kts:kmax,jts:jmax) = 0.
1402 hoa_a07(its:imax,kts:kmax,jts:jmax) = 0.
1403 soa_a07(its:imax,kts:kmax,jts:jmax) = 0.
1404 bboa_a07(its:imax,kts:kmax,jts:jmax) = 0.
1405 bbsoa_a07(its:imax,kts:kmax,jts:jmax) = 0.
1406 hsoa_a07(its:imax,kts:kmax,jts:jmax) = 0.
1407 arosoa_a07(its:imax,kts:kmax,jts:jmax) = 0.
1408 biog_a07(its:imax,kts:kmax,jts:jmax) = 0.
1410 hoa_a08(its:imax,kts:kmax,jts:jmax) = 0.
1411 soa_a08(its:imax,kts:kmax,jts:jmax) = 0.
1412 bboa_a08(its:imax,kts:kmax,jts:jmax) = 0.
1413 bbsoa_a08(its:imax,kts:kmax,jts:jmax) = 0.
1414 hsoa_a08(its:imax,kts:kmax,jts:jmax) = 0.
1415 arosoa_a08(its:imax,kts:kmax,jts:jmax) = 0.
1416 biog_a08(its:imax,kts:kmax,jts:jmax) = 0.
1420 ! Species to calculate O:C ratios
1421 hsoa_c(its:imax,kts:kmax,jts:jmax) = 0.
1422 hsoa_o(its:imax,kts:kmax,jts:jmax) = 0.
1423 bbsoa_c(its:imax,kts:kmax,jts:jmax) = 0.
1424 bbsoa_o(its:imax,kts:kmax,jts:jmax) = 0.
1425 biog_v1(its:imax,kts:kmax,jts:jmax) = 0.
1426 biog_v2(its:imax,kts:kmax,jts:jmax) = 0.
1427 biog_v3(its:imax,kts:kmax,jts:jmax) = 0.
1428 biog_v4(its:imax,kts:kmax,jts:jmax) = 0.
1429 ant_v1(its:imax,kts:kmax,jts:jmax) = 0.
1430 ant_v2(its:imax,kts:kmax,jts:jmax) = 0.
1431 ant_v3(its:imax,kts:kmax,jts:jmax) = 0.
1432 ant_v4(its:imax,kts:kmax,jts:jmax) = 0.
1435 ! NOTE - summation seems to be wrong for code below, but not my code so did not fix...
1437 do itype=1,ntype_aer
1441 totoa_a01(i,k,j) = (chem(i,k,j,lptr_pcg1_b_c_aer(1,itype,iphase)) &
1442 + chem(i,k,j,lptr_pcg2_b_c_aer(1,itype,iphase)) &
1443 + chem(i,k,j,lptr_pcg1_b_o_aer(1,itype,iphase)) &
1444 + chem(i,k,j,lptr_pcg2_b_o_aer(1,itype,iphase)) &
1445 + chem(i,k,j,lptr_opcg1_b_c_aer(1,itype,iphase)) &
1446 + chem(i,k,j,lptr_opcg1_b_o_aer(1,itype,iphase)) &
1447 + chem(i,k,j,lptr_pcg1_f_c_aer(1,itype,iphase)) &
1448 + chem(i,k,j,lptr_pcg2_f_c_aer(1,itype,iphase)) &
1449 + chem(i,k,j,lptr_pcg1_f_o_aer(1,itype,iphase)) &
1450 + chem(i,k,j,lptr_pcg2_f_o_aer(1,itype,iphase)) &
1451 + chem(i,k,j,lptr_opcg1_f_c_aer(1,itype,iphase)) &
1452 + chem(i,k,j,lptr_opcg1_f_o_aer(1,itype,iphase)) &
1453 + chem(i,k,j,lptr_ant1_c_aer(1,itype,iphase)) &
1454 + chem(i,k,j,lptr_ant1_o_aer(1,itype,iphase)) &
1455 + chem(i,k,j,lptr_biog1_c_aer(1,itype,iphase)) &
1456 + chem(i,k,j,lptr_biog1_o_aer(1,itype,iphase)) &
1457 + chem(i,k,j,lptr_oc_aer(1,itype,iphase)))
1458 totoa_a02(i,k,j) = (chem(i,k,j,lptr_pcg1_b_c_aer(2,itype,iphase)) &
1459 + chem(i,k,j,lptr_pcg2_b_c_aer(2,itype,iphase)) &
1460 + chem(i,k,j,lptr_pcg1_b_o_aer(2,itype,iphase)) &
1461 + chem(i,k,j,lptr_pcg2_b_o_aer(2,itype,iphase)) &
1462 + chem(i,k,j,lptr_opcg1_b_c_aer(2,itype,iphase)) &
1463 + chem(i,k,j,lptr_opcg1_b_o_aer(2,itype,iphase)) &
1464 + chem(i,k,j,lptr_pcg1_f_c_aer(2,itype,iphase)) &
1465 + chem(i,k,j,lptr_pcg2_f_c_aer(2,itype,iphase)) &
1466 + chem(i,k,j,lptr_pcg1_f_o_aer(2,itype,iphase)) &
1467 + chem(i,k,j,lptr_pcg2_f_o_aer(2,itype,iphase)) &
1468 + chem(i,k,j,lptr_opcg1_f_c_aer(2,itype,iphase)) &
1469 + chem(i,k,j,lptr_opcg1_f_o_aer(2,itype,iphase)) &
1470 + chem(i,k,j,lptr_ant1_c_aer(2,itype,iphase)) &
1471 + chem(i,k,j,lptr_ant1_o_aer(2,itype,iphase)) &
1472 + chem(i,k,j,lptr_biog1_c_aer(2,itype,iphase)) &
1473 + chem(i,k,j,lptr_biog1_o_aer(2,itype,iphase)) &
1474 + chem(i,k,j,lptr_oc_aer(2,itype,iphase)))
1475 totoa_a03(i,k,j) = (chem(i,k,j,lptr_pcg1_b_c_aer(3,itype,iphase)) &
1476 + chem(i,k,j,lptr_pcg2_b_c_aer(3,itype,iphase)) &
1477 + chem(i,k,j,lptr_pcg1_b_o_aer(3,itype,iphase)) &
1478 + chem(i,k,j,lptr_pcg2_b_o_aer(3,itype,iphase)) &
1479 + chem(i,k,j,lptr_opcg1_b_c_aer(3,itype,iphase)) &
1480 + chem(i,k,j,lptr_opcg1_b_o_aer(3,itype,iphase)) &
1481 + chem(i,k,j,lptr_pcg1_f_c_aer(3,itype,iphase)) &
1482 + chem(i,k,j,lptr_pcg2_f_c_aer(3,itype,iphase)) &
1483 + chem(i,k,j,lptr_pcg1_f_o_aer(3,itype,iphase)) &
1484 + chem(i,k,j,lptr_pcg2_f_o_aer(3,itype,iphase)) &
1485 + chem(i,k,j,lptr_opcg1_f_c_aer(3,itype,iphase)) &
1486 + chem(i,k,j,lptr_opcg1_f_o_aer(3,itype,iphase)) &
1487 + chem(i,k,j,lptr_ant1_c_aer(3,itype,iphase)) &
1488 + chem(i,k,j,lptr_ant1_o_aer(3,itype,iphase)) &
1489 + chem(i,k,j,lptr_biog1_c_aer(3,itype,iphase)) &
1490 + chem(i,k,j,lptr_biog1_o_aer(3,itype,iphase)) &
1491 + chem(i,k,j,lptr_oc_aer(3,itype,iphase)))
1492 totoa_a04(i,k,j) = (chem(i,k,j,lptr_pcg1_b_c_aer(4,itype,iphase)) &
1493 + chem(i,k,j,lptr_pcg2_b_c_aer(4,itype,iphase)) &
1494 + chem(i,k,j,lptr_pcg1_b_o_aer(4,itype,iphase)) &
1495 + chem(i,k,j,lptr_pcg2_b_o_aer(4,itype,iphase)) &
1496 + chem(i,k,j,lptr_opcg1_b_c_aer(4,itype,iphase)) &
1497 + chem(i,k,j,lptr_opcg1_b_o_aer(4,itype,iphase)) &
1498 + chem(i,k,j,lptr_pcg1_f_c_aer(4,itype,iphase)) &
1499 + chem(i,k,j,lptr_pcg2_f_c_aer(4,itype,iphase)) &
1500 + chem(i,k,j,lptr_pcg1_f_o_aer(4,itype,iphase)) &
1501 + chem(i,k,j,lptr_pcg2_f_o_aer(4,itype,iphase)) &
1502 + chem(i,k,j,lptr_opcg1_f_c_aer(4,itype,iphase)) &
1503 + chem(i,k,j,lptr_opcg1_f_o_aer(4,itype,iphase)) &
1504 + chem(i,k,j,lptr_ant1_c_aer(4,itype,iphase)) &
1505 + chem(i,k,j,lptr_ant1_o_aer(4,itype,iphase)) &
1506 + chem(i,k,j,lptr_biog1_c_aer(4,itype,iphase)) &
1507 + chem(i,k,j,lptr_biog1_o_aer(4,itype,iphase)) &
1508 + chem(i,k,j,lptr_oc_aer(4,itype,iphase)))
1509 totoa_a05(i,k,j) = (chem(i,k,j,lptr_pcg1_b_c_aer(5,itype,iphase)) &
1510 + chem(i,k,j,lptr_pcg2_b_c_aer(5,itype,iphase)) &
1511 + chem(i,k,j,lptr_pcg1_b_o_aer(5,itype,iphase)) &
1512 + chem(i,k,j,lptr_pcg2_b_o_aer(5,itype,iphase)) &
1513 + chem(i,k,j,lptr_opcg1_b_c_aer(5,itype,iphase)) &
1514 + chem(i,k,j,lptr_opcg1_b_o_aer(5,itype,iphase)) &
1515 + chem(i,k,j,lptr_pcg1_f_c_aer(5,itype,iphase)) &
1516 + chem(i,k,j,lptr_pcg2_f_c_aer(5,itype,iphase)) &
1517 + chem(i,k,j,lptr_pcg1_f_o_aer(5,itype,iphase)) &
1518 + chem(i,k,j,lptr_pcg2_f_o_aer(5,itype,iphase)) &
1519 + chem(i,k,j,lptr_opcg1_f_c_aer(5,itype,iphase)) &
1520 + chem(i,k,j,lptr_opcg1_f_o_aer(5,itype,iphase)) &
1521 + chem(i,k,j,lptr_ant1_c_aer(5,itype,iphase)) &
1522 + chem(i,k,j,lptr_ant1_o_aer(5,itype,iphase)) &
1523 + chem(i,k,j,lptr_biog1_c_aer(5,itype,iphase)) &
1524 + chem(i,k,j,lptr_biog1_o_aer(5,itype,iphase)) &
1525 + chem(i,k,j,lptr_oc_aer(5,itype,iphase)))
1526 totoa_a06(i,k,j) = (chem(i,k,j,lptr_pcg1_b_c_aer(6,itype,iphase)) &
1527 + chem(i,k,j,lptr_pcg2_b_c_aer(6,itype,iphase)) &
1528 + chem(i,k,j,lptr_pcg1_b_o_aer(6,itype,iphase)) &
1529 + chem(i,k,j,lptr_pcg2_b_o_aer(6,itype,iphase)) &
1530 + chem(i,k,j,lptr_opcg1_b_c_aer(6,itype,iphase)) &
1531 + chem(i,k,j,lptr_opcg1_b_o_aer(6,itype,iphase)) &
1532 + chem(i,k,j,lptr_pcg1_f_c_aer(6,itype,iphase)) &
1533 + chem(i,k,j,lptr_pcg2_f_c_aer(6,itype,iphase)) &
1534 + chem(i,k,j,lptr_pcg1_f_o_aer(6,itype,iphase)) &
1535 + chem(i,k,j,lptr_pcg2_f_o_aer(6,itype,iphase)) &
1536 + chem(i,k,j,lptr_opcg1_f_c_aer(6,itype,iphase)) &
1537 + chem(i,k,j,lptr_opcg1_f_o_aer(6,itype,iphase)) &
1538 + chem(i,k,j,lptr_ant1_c_aer(6,itype,iphase)) &
1539 + chem(i,k,j,lptr_ant1_o_aer(6,itype,iphase)) &
1540 + chem(i,k,j,lptr_biog1_c_aer(6,itype,iphase)) &
1541 + chem(i,k,j,lptr_biog1_o_aer(6,itype,iphase)) &
1542 + chem(i,k,j,lptr_oc_aer(6,itype,iphase)))
1543 totoa_a07(i,k,j) = (chem(i,k,j,lptr_pcg1_b_c_aer(7,itype,iphase)) &
1544 + chem(i,k,j,lptr_pcg2_b_c_aer(7,itype,iphase)) &
1545 + chem(i,k,j,lptr_pcg1_b_o_aer(7,itype,iphase)) &
1546 + chem(i,k,j,lptr_pcg2_b_o_aer(7,itype,iphase)) &
1547 + chem(i,k,j,lptr_opcg1_b_c_aer(7,itype,iphase)) &
1548 + chem(i,k,j,lptr_opcg1_b_o_aer(7,itype,iphase)) &
1549 + chem(i,k,j,lptr_pcg1_f_c_aer(7,itype,iphase)) &
1550 + chem(i,k,j,lptr_pcg2_f_c_aer(7,itype,iphase)) &
1551 + chem(i,k,j,lptr_pcg1_f_o_aer(7,itype,iphase)) &
1552 + chem(i,k,j,lptr_pcg2_f_o_aer(7,itype,iphase)) &
1553 + chem(i,k,j,lptr_opcg1_f_c_aer(7,itype,iphase)) &
1554 + chem(i,k,j,lptr_opcg1_f_o_aer(7,itype,iphase)) &
1555 + chem(i,k,j,lptr_ant1_c_aer(7,itype,iphase)) &
1556 + chem(i,k,j,lptr_ant1_o_aer(7,itype,iphase)) &
1557 + chem(i,k,j,lptr_biog1_c_aer(7,itype,iphase)) &
1558 + chem(i,k,j,lptr_biog1_o_aer(7,itype,iphase)) &
1559 + chem(i,k,j,lptr_oc_aer(7,itype,iphase)))
1560 totoa_a08(i,k,j) = (chem(i,k,j,lptr_pcg1_b_c_aer(8,itype,iphase)) &
1561 + chem(i,k,j,lptr_pcg2_b_c_aer(8,itype,iphase)) &
1562 + chem(i,k,j,lptr_pcg1_b_o_aer(8,itype,iphase)) &
1563 + chem(i,k,j,lptr_pcg2_b_o_aer(8,itype,iphase)) &
1564 + chem(i,k,j,lptr_opcg1_b_c_aer(8,itype,iphase)) &
1565 + chem(i,k,j,lptr_opcg1_b_o_aer(8,itype,iphase)) &
1566 + chem(i,k,j,lptr_pcg1_f_c_aer(8,itype,iphase)) &
1567 + chem(i,k,j,lptr_pcg2_f_c_aer(8,itype,iphase)) &
1568 + chem(i,k,j,lptr_pcg1_f_o_aer(8,itype,iphase)) &
1569 + chem(i,k,j,lptr_pcg2_f_o_aer(8,itype,iphase)) &
1570 + chem(i,k,j,lptr_opcg1_f_c_aer(8,itype,iphase)) &
1571 + chem(i,k,j,lptr_opcg1_f_o_aer(8,itype,iphase)) &
1572 + chem(i,k,j,lptr_ant1_c_aer(8,itype,iphase)) &
1573 + chem(i,k,j,lptr_ant1_o_aer(8,itype,iphase)) &
1574 + chem(i,k,j,lptr_biog1_c_aer(8,itype,iphase)) &
1575 + chem(i,k,j,lptr_biog1_o_aer(8,itype,iphase)) &
1576 + chem(i,k,j,lptr_oc_aer(8,itype,iphase)))
1582 if( aero_diag_opt > 0 ) then
1583 !do iphase=1,nphase_aer!BSINGH - Commented out as we need to add only phase 1 (interstitial) values species
1585 do itype=1,ntype_aer
1586 do n = 1, nsize_aer(itype) !The 4th bin is 2.5-10um and outside the AMS measurements
1591 hsoa_c(i,k,j)=hsoa_c(i,k,j) &
1592 + (chem(i,k,j,lptr_pcg1_f_c_aer(n,itype,iphase)) &
1593 + chem(i,k,j,lptr_pcg2_f_c_aer(n,itype,iphase)) &
1594 + chem(i,k,j,lptr_opcg1_f_c_aer(n,itype,iphase)))*180/211
1596 hsoa_o(i,k,j)= hsoa_o(i,k,j) &
1597 + (chem(i,k,j,lptr_pcg1_f_o_aer(n,itype,iphase)) &
1598 + chem(i,k,j,lptr_pcg2_f_o_aer(n,itype,iphase)) &
1599 + chem(i,k,j,lptr_opcg1_f_o_aer(n,itype,iphase)))
1601 bbsoa_c(i,k,j)= bbsoa_c(i,k,j) &
1602 + (chem(i,k,j,lptr_pcg1_b_c_aer(n,itype,iphase)) &
1603 + chem(i,k,j,lptr_pcg2_b_c_aer(n,itype,iphase)) &
1604 + chem(i,k,j,lptr_opcg1_b_c_aer(n,itype,iphase)))*180/211
1606 bbsoa_o(i,k,j)=bbsoa_o(i,k,j) &
1607 +(chem(i,k,j,lptr_pcg1_b_o_aer(n,itype,iphase)) &
1608 + chem(i,k,j,lptr_pcg2_b_o_aer(n,itype,iphase)) &
1609 + chem(i,k,j,lptr_opcg1_b_o_aer(n,itype,iphase)))
1611 biog_v1(i,k,j)= biog_v1(i,k,j) &
1612 + chem(i,k,j,lptr_biog1_c_aer(n,itype,iphase)) &
1613 + chem(i,k,j,lptr_biog1_o_aer(n,itype,iphase))
1615 ant_v1(i,k,j)= ant_v1(i,k,j) &
1616 + chem(i,k,j,lptr_ant1_c_aer(n,itype,iphase)) &
1617 + chem(i,k,j,lptr_ant1_o_aer(n,itype,iphase))
1626 ! NOTE - summation also wrong for code below, but not my code so did not fix...
1628 !do iphase=1,nphase_aer !BSINGH - Commented out as we need to add only phase 1 (interstitial) values species
1631 do itype=1,ntype_aer
1635 hoa_a01(i,k,j)= (chem(i,k,j,lptr_pcg1_f_c_aer(1,itype,iphase)) &
1636 + chem(i,k,j,lptr_pcg2_f_c_aer(1,itype,iphase)) &
1637 + chem(i,k,j,lptr_pcg1_f_o_aer(1,itype,iphase)) &
1638 + chem(i,k,j,lptr_pcg2_f_o_aer(1,itype,iphase)))
1640 bboa_a01(i,k,j)= (chem(i,k,j,lptr_pcg1_b_c_aer(1,itype,iphase)) &
1641 + chem(i,k,j,lptr_pcg2_b_c_aer(1,itype,iphase)) &
1642 + chem(i,k,j,lptr_pcg1_b_o_aer(1,itype,iphase)) &
1643 + chem(i,k,j,lptr_pcg2_b_o_aer(1,itype,iphase)))
1645 soa_a01(i,k,j)= (chem(i,k,j,lptr_opcg1_b_c_aer(1,itype,iphase)) &
1646 + chem(i,k,j,lptr_opcg1_b_o_aer(1,itype,iphase)) &
1647 + chem(i,k,j,lptr_opcg1_f_c_aer(1,itype,iphase)) &
1648 + chem(i,k,j,lptr_opcg1_f_o_aer(1,itype,iphase)) &
1649 + chem(i,k,j,lptr_ant1_c_aer(1,itype,iphase)) &
1650 + chem(i,k,j,lptr_ant1_o_aer(1,itype,iphase)) &
1651 + chem(i,k,j,lptr_biog1_c_aer(1,itype,iphase)) &
1652 + chem(i,k,j,lptr_biog1_o_aer(1,itype,iphase)))
1654 arosoa_a01(i,k,j)= chem(i,k,j,lptr_ant1_o_aer(1,itype,iphase)) &
1655 + chem(i,k,j,lptr_ant1_c_aer(1,itype,iphase))
1658 bbsoa_a01(i,k,j)= (chem(i,k,j,lptr_opcg1_b_c_aer(1,itype,iphase)) &
1659 + chem(i,k,j,lptr_opcg1_b_o_aer(1,itype,iphase)))
1661 hsoa_a01(i,k,j)= ( chem(i,k,j,lptr_opcg1_f_c_aer(1,itype,iphase)) &
1662 + chem(i,k,j,lptr_opcg1_f_o_aer(1,itype,iphase)))
1664 biog_a01(i,k,j)= (chem(i,k,j,lptr_biog1_c_aer(1,itype,iphase)) &
1665 + chem(i,k,j,lptr_biog1_o_aer(1,itype,iphase)))
1676 !do iphase=1,nphase_aer!BSINGH - Commented out as we need to add only phase 1 (interstitial) values species
1678 do itype=1,ntype_aer
1682 hoa_a02(i,k,j)= (chem(i,k,j,lptr_pcg1_f_c_aer(2,itype,iphase)) &
1683 + chem(i,k,j,lptr_pcg2_f_c_aer(2,itype,iphase)) &
1684 + chem(i,k,j,lptr_pcg1_f_o_aer(2,itype,iphase)) &
1685 + chem(i,k,j,lptr_pcg2_f_o_aer(2,itype,iphase)))
1687 bboa_a02(i,k,j)= (chem(i,k,j,lptr_pcg1_b_c_aer(2,itype,iphase)) &
1688 + chem(i,k,j,lptr_pcg2_b_c_aer(2,itype,iphase)) &
1689 + chem(i,k,j,lptr_pcg1_b_o_aer(2,itype,iphase)) &
1690 + chem(i,k,j,lptr_pcg2_b_o_aer(2,itype,iphase)))
1692 soa_a02(i,k,j)= (chem(i,k,j,lptr_opcg1_b_c_aer(2,itype,iphase)) &
1693 + chem(i,k,j,lptr_opcg1_b_o_aer(2,itype,iphase)) &
1694 + chem(i,k,j,lptr_opcg1_f_c_aer(2,itype,iphase)) &
1695 + chem(i,k,j,lptr_opcg1_f_o_aer(2,itype,iphase)) &
1696 + chem(i,k,j,lptr_ant1_c_aer(2,itype,iphase)) &
1697 + chem(i,k,j,lptr_ant1_o_aer(2,itype,iphase)) &
1698 + chem(i,k,j,lptr_biog1_c_aer(2,itype,iphase)) &
1699 + chem(i,k,j,lptr_biog1_o_aer(2,itype,iphase)))
1701 arosoa_a02(i,k,j)= chem(i,k,j,lptr_ant1_o_aer(2,itype,iphase)) &
1702 + chem(i,k,j,lptr_ant1_c_aer(2,itype,iphase))
1705 bbsoa_a02(i,k,j)= (chem(i,k,j,lptr_opcg1_b_c_aer(2,itype,iphase)) &
1706 + chem(i,k,j,lptr_opcg1_b_o_aer(2,itype,iphase)))
1708 hsoa_a02(i,k,j)= ( chem(i,k,j,lptr_opcg1_f_c_aer(2,itype,iphase)) &
1709 + chem(i,k,j,lptr_opcg1_f_o_aer(2,itype,iphase)))
1711 biog_a02(i,k,j)= (chem(i,k,j,lptr_biog1_c_aer(2,itype,iphase)) &
1712 + chem(i,k,j,lptr_biog1_o_aer(2,itype,iphase)))
1720 !do iphase=1,nphase_aer!BSINGH - Commented out as we need to add only phase 1 (interstitial) values species
1722 do itype=1,ntype_aer
1726 hoa_a03(i,k,j)= (chem(i,k,j,lptr_pcg1_f_c_aer(3,itype,iphase)) &
1727 + chem(i,k,j,lptr_pcg2_f_c_aer(3,itype,iphase)) &
1728 + chem(i,k,j,lptr_pcg1_f_o_aer(3,itype,iphase)) &
1729 + chem(i,k,j,lptr_pcg2_f_o_aer(3,itype,iphase)))
1731 bboa_a03(i,k,j)= (chem(i,k,j,lptr_pcg1_b_c_aer(3,itype,iphase)) &
1732 + chem(i,k,j,lptr_pcg2_b_c_aer(3,itype,iphase)) &
1733 + chem(i,k,j,lptr_pcg1_b_o_aer(3,itype,iphase)) &
1734 + chem(i,k,j,lptr_pcg2_b_o_aer(3,itype,iphase)))
1736 soa_a03(i,k,j)= (chem(i,k,j,lptr_opcg1_b_c_aer(3,itype,iphase)) &
1737 + chem(i,k,j,lptr_opcg1_b_o_aer(3,itype,iphase)) &
1738 + chem(i,k,j,lptr_opcg1_f_c_aer(3,itype,iphase)) &
1739 + chem(i,k,j,lptr_opcg1_f_o_aer(3,itype,iphase)) &
1740 + chem(i,k,j,lptr_ant1_c_aer(3,itype,iphase)) &
1741 + chem(i,k,j,lptr_ant1_o_aer(3,itype,iphase)) &
1742 + chem(i,k,j,lptr_biog1_c_aer(3,itype,iphase)) &
1743 + chem(i,k,j,lptr_biog1_o_aer(3,itype,iphase)))
1745 arosoa_a03(i,k,j)= chem(i,k,j,lptr_ant1_o_aer(3,itype,iphase)) &
1746 + chem(i,k,j,lptr_ant1_c_aer(3,itype,iphase))
1749 bbsoa_a03(i,k,j)= (chem(i,k,j,lptr_opcg1_b_c_aer(3,itype,iphase)) &
1750 + chem(i,k,j,lptr_opcg1_b_o_aer(3,itype,iphase)))
1752 hsoa_a03(i,k,j)= ( chem(i,k,j,lptr_opcg1_f_c_aer(3,itype,iphase)) &
1753 + chem(i,k,j,lptr_opcg1_f_o_aer(3,itype,iphase)))
1755 biog_a03(i,k,j)= (chem(i,k,j,lptr_biog1_c_aer(3,itype,iphase)) &
1756 + chem(i,k,j,lptr_biog1_o_aer(3,itype,iphase)))
1764 !do iphase=1,nphase_aer!BSINGH - Commented out as we need to add only phase 1 (interstitial) values species
1766 do itype=1,ntype_aer
1770 hoa_a04(i,k,j)= (chem(i,k,j,lptr_pcg1_f_c_aer(4,itype,iphase)) &
1771 + chem(i,k,j,lptr_pcg2_f_c_aer(4,itype,iphase)) &
1772 + chem(i,k,j,lptr_pcg1_f_o_aer(4,itype,iphase)) &
1773 + chem(i,k,j,lptr_pcg2_f_o_aer(4,itype,iphase)))
1775 bboa_a04(i,k,j)= (chem(i,k,j,lptr_pcg1_b_c_aer(4,itype,iphase)) &
1776 + chem(i,k,j,lptr_pcg2_b_c_aer(4,itype,iphase)) &
1777 + chem(i,k,j,lptr_pcg1_b_o_aer(4,itype,iphase)) &
1778 + chem(i,k,j,lptr_pcg2_b_o_aer(4,itype,iphase)))
1780 soa_a04(i,k,j)= (chem(i,k,j,lptr_opcg1_b_c_aer(4,itype,iphase)) &
1781 + chem(i,k,j,lptr_opcg1_b_o_aer(4,itype,iphase)) &
1782 + chem(i,k,j,lptr_opcg1_f_c_aer(4,itype,iphase)) &
1783 + chem(i,k,j,lptr_opcg1_f_o_aer(4,itype,iphase)) &
1784 + chem(i,k,j,lptr_ant1_c_aer(4,itype,iphase)) &
1785 + chem(i,k,j,lptr_ant1_o_aer(4,itype,iphase)) &
1786 + chem(i,k,j,lptr_biog1_c_aer(4,itype,iphase)) &
1787 + chem(i,k,j,lptr_biog1_o_aer(4,itype,iphase)))
1789 arosoa_a04(i,k,j)= chem(i,k,j,lptr_ant1_o_aer(4,itype,iphase)) &
1790 + chem(i,k,j,lptr_ant1_c_aer(4,itype,iphase))
1793 bbsoa_a04(i,k,j)= (chem(i,k,j,lptr_opcg1_b_c_aer(4,itype,iphase)) &
1794 + chem(i,k,j,lptr_opcg1_b_o_aer(4,itype,iphase)))
1796 hsoa_a04(i,k,j)= ( chem(i,k,j,lptr_opcg1_f_c_aer(4,itype,iphase)) &
1797 + chem(i,k,j,lptr_opcg1_f_o_aer(4,itype,iphase)))
1799 biog_a04(i,k,j)= (chem(i,k,j,lptr_biog1_c_aer(4,itype,iphase)) &
1800 + chem(i,k,j,lptr_biog1_o_aer(4,itype,iphase)))
1807 do itype=1,ntype_aer
1811 hoa_a05(i,k,j)= (chem(i,k,j,lptr_pcg1_f_c_aer(5,itype,iphase)) &
1812 + chem(i,k,j,lptr_pcg2_f_c_aer(5,itype,iphase)) &
1813 + chem(i,k,j,lptr_pcg1_f_o_aer(5,itype,iphase)) &
1814 + chem(i,k,j,lptr_pcg2_f_o_aer(5,itype,iphase)))
1816 bboa_a05(i,k,j)= (chem(i,k,j,lptr_pcg1_b_c_aer(5,itype,iphase)) &
1817 + chem(i,k,j,lptr_pcg2_b_c_aer(5,itype,iphase)) &
1818 + chem(i,k,j,lptr_pcg1_b_o_aer(5,itype,iphase)) &
1819 + chem(i,k,j,lptr_pcg2_b_o_aer(5,itype,iphase)))
1821 soa_a05(i,k,j)= (chem(i,k,j,lptr_opcg1_b_c_aer(5,itype,iphase)) &
1822 + chem(i,k,j,lptr_opcg1_b_o_aer(5,itype,iphase)) &
1823 + chem(i,k,j,lptr_opcg1_f_c_aer(5,itype,iphase)) &
1824 + chem(i,k,j,lptr_opcg1_f_o_aer(5,itype,iphase)) &
1825 + chem(i,k,j,lptr_ant1_c_aer(5,itype,iphase)) &
1826 + chem(i,k,j,lptr_ant1_o_aer(5,itype,iphase)) &
1827 + chem(i,k,j,lptr_biog1_c_aer(5,itype,iphase)) &
1828 + chem(i,k,j,lptr_biog1_o_aer(5,itype,iphase)))
1830 arosoa_a05(i,k,j)= chem(i,k,j,lptr_ant1_o_aer(5,itype,iphase)) &
1831 + chem(i,k,j,lptr_ant1_c_aer(5,itype,iphase))
1834 bbsoa_a05(i,k,j)= (chem(i,k,j,lptr_opcg1_b_c_aer(5,itype,iphase)) &
1835 + chem(i,k,j,lptr_opcg1_b_o_aer(5,itype,iphase)))
1837 hsoa_a05(i,k,j)= ( chem(i,k,j,lptr_opcg1_f_c_aer(5,itype,iphase)) &
1838 + chem(i,k,j,lptr_opcg1_f_o_aer(5,itype,iphase)))
1840 biog_a05(i,k,j)= (chem(i,k,j,lptr_biog1_c_aer(5,itype,iphase)) &
1841 + chem(i,k,j,lptr_biog1_o_aer(5,itype,iphase)))
1850 do itype=1,ntype_aer
1854 hoa_a06(i,k,j)= (chem(i,k,j,lptr_pcg1_f_c_aer(6,itype,iphase)) &
1855 + chem(i,k,j,lptr_pcg2_f_c_aer(6,itype,iphase)) &
1856 + chem(i,k,j,lptr_pcg1_f_o_aer(6,itype,iphase)) &
1857 + chem(i,k,j,lptr_pcg2_f_o_aer(6,itype,iphase)))
1859 bboa_a06(i,k,j)= (chem(i,k,j,lptr_pcg1_b_c_aer(6,itype,iphase)) &
1860 + chem(i,k,j,lptr_pcg2_b_c_aer(6,itype,iphase)) &
1861 + chem(i,k,j,lptr_pcg1_b_o_aer(6,itype,iphase)) &
1862 + chem(i,k,j,lptr_pcg2_b_o_aer(6,itype,iphase)))
1864 soa_a06(i,k,j)= (chem(i,k,j,lptr_opcg1_b_c_aer(6,itype,iphase)) &
1865 + chem(i,k,j,lptr_opcg1_b_o_aer(6,itype,iphase)) &
1866 + chem(i,k,j,lptr_opcg1_f_c_aer(6,itype,iphase)) &
1867 + chem(i,k,j,lptr_opcg1_f_o_aer(6,itype,iphase)) &
1868 + chem(i,k,j,lptr_ant1_c_aer(6,itype,iphase)) &
1869 + chem(i,k,j,lptr_ant1_o_aer(6,itype,iphase)) &
1870 + chem(i,k,j,lptr_biog1_c_aer(6,itype,iphase)) &
1871 + chem(i,k,j,lptr_biog1_o_aer(6,itype,iphase)))
1873 arosoa_a06(i,k,j)= chem(i,k,j,lptr_ant1_o_aer(6,itype,iphase)) &
1874 + chem(i,k,j,lptr_ant1_c_aer(6,itype,iphase))
1877 bbsoa_a06(i,k,j)= (chem(i,k,j,lptr_opcg1_b_c_aer(6,itype,iphase)) &
1878 + chem(i,k,j,lptr_opcg1_b_o_aer(6,itype,iphase)))
1880 hsoa_a06(i,k,j)= ( chem(i,k,j,lptr_opcg1_f_c_aer(6,itype,iphase)) &
1881 + chem(i,k,j,lptr_opcg1_f_o_aer(6,itype,iphase)))
1883 biog_a06(i,k,j)= (chem(i,k,j,lptr_biog1_c_aer(6,itype,iphase)) &
1884 + chem(i,k,j,lptr_biog1_o_aer(6,itype,iphase)))
1893 do itype=1,ntype_aer
1897 hoa_a07(i,k,j)= (chem(i,k,j,lptr_pcg1_f_c_aer(7,itype,iphase)) &
1898 + chem(i,k,j,lptr_pcg2_f_c_aer(7,itype,iphase)) &
1899 + chem(i,k,j,lptr_pcg1_f_o_aer(7,itype,iphase)) &
1900 + chem(i,k,j,lptr_pcg2_f_o_aer(7,itype,iphase)))
1902 bboa_a07(i,k,j)= (chem(i,k,j,lptr_pcg1_b_c_aer(7,itype,iphase)) &
1903 + chem(i,k,j,lptr_pcg2_b_c_aer(7,itype,iphase)) &
1904 + chem(i,k,j,lptr_pcg1_b_o_aer(7,itype,iphase)) &
1905 + chem(i,k,j,lptr_pcg2_b_o_aer(7,itype,iphase)))
1907 soa_a07(i,k,j)= (chem(i,k,j,lptr_opcg1_b_c_aer(7,itype,iphase)) &
1908 + chem(i,k,j,lptr_opcg1_b_o_aer(7,itype,iphase)) &
1909 + chem(i,k,j,lptr_opcg1_f_c_aer(7,itype,iphase)) &
1910 + chem(i,k,j,lptr_opcg1_f_o_aer(7,itype,iphase)) &
1911 + chem(i,k,j,lptr_ant1_c_aer(7,itype,iphase)) &
1912 + chem(i,k,j,lptr_ant1_o_aer(7,itype,iphase)) &
1913 + chem(i,k,j,lptr_biog1_c_aer(7,itype,iphase)) &
1914 + chem(i,k,j,lptr_biog1_o_aer(7,itype,iphase)))
1916 arosoa_a07(i,k,j)= chem(i,k,j,lptr_ant1_o_aer(7,itype,iphase)) &
1917 + chem(i,k,j,lptr_ant1_c_aer(7,itype,iphase))
1920 bbsoa_a07(i,k,j)= (chem(i,k,j,lptr_opcg1_b_c_aer(7,itype,iphase)) &
1921 + chem(i,k,j,lptr_opcg1_b_o_aer(7,itype,iphase)))
1923 hsoa_a07(i,k,j)= ( chem(i,k,j,lptr_opcg1_f_c_aer(7,itype,iphase)) &
1924 + chem(i,k,j,lptr_opcg1_f_o_aer(7,itype,iphase)))
1926 biog_a07(i,k,j)= (chem(i,k,j,lptr_biog1_c_aer(7,itype,iphase)) &
1927 + chem(i,k,j,lptr_biog1_o_aer(7,itype,iphase)))
1936 do itype=1,ntype_aer
1940 hoa_a08(i,k,j)= (chem(i,k,j,lptr_pcg1_f_c_aer(8,itype,iphase)) &
1941 + chem(i,k,j,lptr_pcg2_f_c_aer(8,itype,iphase)) &
1942 + chem(i,k,j,lptr_pcg1_f_o_aer(8,itype,iphase)) &
1943 + chem(i,k,j,lptr_pcg2_f_o_aer(8,itype,iphase)))
1945 bboa_a08(i,k,j)= (chem(i,k,j,lptr_pcg1_b_c_aer(8,itype,iphase)) &
1946 + chem(i,k,j,lptr_pcg2_b_c_aer(8,itype,iphase)) &
1947 + chem(i,k,j,lptr_pcg1_b_o_aer(8,itype,iphase)) &
1948 + chem(i,k,j,lptr_pcg2_b_o_aer(8,itype,iphase)))
1950 soa_a08(i,k,j)= (chem(i,k,j,lptr_opcg1_b_c_aer(8,itype,iphase)) &
1951 + chem(i,k,j,lptr_opcg1_b_o_aer(8,itype,iphase)) &
1952 + chem(i,k,j,lptr_opcg1_f_c_aer(8,itype,iphase)) &
1953 + chem(i,k,j,lptr_opcg1_f_o_aer(8,itype,iphase)) &
1954 + chem(i,k,j,lptr_ant1_c_aer(8,itype,iphase)) &
1955 + chem(i,k,j,lptr_ant1_o_aer(8,itype,iphase)) &
1956 + chem(i,k,j,lptr_biog1_c_aer(8,itype,iphase)) &
1957 + chem(i,k,j,lptr_biog1_o_aer(8,itype,iphase)))
1959 arosoa_a08(i,k,j)= chem(i,k,j,lptr_ant1_o_aer(8,itype,iphase)) &
1960 + chem(i,k,j,lptr_ant1_c_aer(8,itype,iphase))
1963 bbsoa_a08(i,k,j)= (chem(i,k,j,lptr_opcg1_b_c_aer(8,itype,iphase)) &
1964 + chem(i,k,j,lptr_opcg1_b_o_aer(8,itype,iphase)))
1966 hsoa_a08(i,k,j)= ( chem(i,k,j,lptr_opcg1_f_c_aer(8,itype,iphase)) &
1967 + chem(i,k,j,lptr_opcg1_f_o_aer(8,itype,iphase)))
1969 biog_a08(i,k,j)= (chem(i,k,j,lptr_biog1_c_aer(8,itype,iphase)) &
1970 + chem(i,k,j,lptr_biog1_o_aer(8,itype,iphase)))
1979 end subroutine sum_vbs2
1982 !BSINGH(12/12/2013): Added following function for SAPRC 8 bin
1983 !----------------------------------------------------------------------
1986 subroutine sum_aq_vbs2 ( &
1988 hoa_cw01,hoa_cw02,hoa_cw03,hoa_cw04,hoa_cw05,hoa_cw06,hoa_cw07,hoa_cw08, &
1989 bboa_cw01,bboa_cw02,bboa_cw03,bboa_cw04,bboa_cw05,bboa_cw06,bboa_cw07,bboa_cw08, &
1990 soa_cw01,soa_cw02,soa_cw03,soa_cw04,soa_cw05,soa_cw06,soa_cw07,soa_cw08, &
1991 bbsoa_cw01,bbsoa_cw02,bbsoa_cw03,bbsoa_cw04,bbsoa_cw05,bbsoa_cw06,bbsoa_cw07,bbsoa_cw08, &
1992 hsoa_cw01,hsoa_cw02,hsoa_cw03,hsoa_cw04,hsoa_cw05,hsoa_cw06,hsoa_cw07,hsoa_cw08, &
1993 biog_cw01,biog_cw02,biog_cw03,biog_cw04,biog_cw05,biog_cw06,biog_cw07,biog_cw08, &
1994 arosoa_cw01,arosoa_cw02,arosoa_cw03,arosoa_cw04,arosoa_cw05,arosoa_cw06,arosoa_cw07,arosoa_cw08, &
1995 totoa_cw01,totoa_cw02,totoa_cw03,totoa_cw04,totoa_cw05,totoa_cw06,totoa_cw07,totoa_cw08, &
1996 hsoa_cw_c,hsoa_cw_o,bbsoa_cw_c,bbsoa_cw_o, &
1999 ids,ide, jds,jde, kds,kde, &
2000 ims,ime, jms,jme, kms,kme, &
2001 its,ite, jts,jte, kts,kte )
2003 USE module_state_description, only: num_chem
2004 USE module_data_mosaic_asect
2007 INTEGER, INTENT(IN ) :: &
2008 ids,ide, jds,jde, kds,kde, &
2009 ims,ime, jms,jme, kms,kme, &
2010 its,ite, jts,jte, kts,kte
2012 REAL, DIMENSION( ims:ime, kms:kme, jms:jme ), &
2014 REAL, DIMENSION( ims:ime, kms:kme, jms:jme, num_chem ), &
2016 REAL, DIMENSION( ims:ime, kms:kme, jms:jme ), &
2017 INTENT(OUT) :: hoa_cw01,hoa_cw02,hoa_cw03,hoa_cw04, &
2018 hoa_cw05,hoa_cw06,hoa_cw07,hoa_cw08, &
2019 bboa_cw01,bboa_cw02,bboa_cw03,bboa_cw04, &
2020 bboa_cw05,bboa_cw06,bboa_cw07,bboa_cw08, &
2021 soa_cw01,soa_cw02,soa_cw03,soa_cw04, &
2022 soa_cw05,soa_cw06,soa_cw07,soa_cw08, &
2023 bbsoa_cw01,bbsoa_cw02,bbsoa_cw03,bbsoa_cw04, &
2024 bbsoa_cw05,bbsoa_cw06,bbsoa_cw07,bbsoa_cw08, &
2025 biog_cw01,biog_cw02,biog_cw03,biog_cw04, &
2026 biog_cw05,biog_cw06,biog_cw07,biog_cw08, &
2027 hsoa_cw01,hsoa_cw02,hsoa_cw03,hsoa_cw04, &
2028 hsoa_cw05,hsoa_cw06,hsoa_cw07,hsoa_cw08, &
2029 arosoa_cw01,arosoa_cw02,arosoa_cw03,arosoa_cw04, &
2030 arosoa_cw05,arosoa_cw06,arosoa_cw07,arosoa_cw08, &
2031 totoa_cw01,totoa_cw02,totoa_cw03,totoa_cw04, &
2032 totoa_cw05,totoa_cw06,totoa_cw07,totoa_cw08, &
2033 hsoa_cw_c,hsoa_cw_o,bbsoa_cw_c,bbsoa_cw_o, &
2039 INTEGER :: i,imax,j,jmax,k,kmax,n,itype,iphase
2041 imax = min(ite,ide-1)
2042 jmax = min(jte,jde-1)
2045 hoa_cw01(its:imax,kts:kmax,jts:jmax) = 0.
2046 soa_cw01(its:imax,kts:kmax,jts:jmax) = 0.
2047 bboa_cw01(its:imax,kts:kmax,jts:jmax) = 0.
2048 bbsoa_cw01(its:imax,kts:kmax,jts:jmax) = 0.
2049 hsoa_cw01(its:imax,kts:kmax,jts:jmax) = 0.
2050 biog_cw01(its:imax,kts:kmax,jts:jmax) = 0.
2051 arosoa_cw01(its:imax,kts:kmax,jts:jmax) = 0.
2052 totoa_cw01(its:imax,kts:kmax,jts:jmax) = 0.
2054 hoa_cw02(its:imax,kts:kmax,jts:jmax) = 0.
2055 soa_cw02(its:imax,kts:kmax,jts:jmax) = 0.
2056 bboa_cw02(its:imax,kts:kmax,jts:jmax) = 0.
2057 bbsoa_cw02(its:imax,kts:kmax,jts:jmax) = 0.
2058 hsoa_cw02(its:imax,kts:kmax,jts:jmax) = 0.
2059 arosoa_cw02(its:imax,kts:kmax,jts:jmax) = 0.
2060 biog_cw02(its:imax,kts:kmax,jts:jmax) = 0.
2061 totoa_cw02(its:imax,kts:kmax,jts:jmax) = 0.
2063 hoa_cw03(its:imax,kts:kmax,jts:jmax) = 0.
2064 soa_cw03(its:imax,kts:kmax,jts:jmax) = 0.
2065 bboa_cw03(its:imax,kts:kmax,jts:jmax) = 0.
2066 bbsoa_cw03(its:imax,kts:kmax,jts:jmax) = 0.
2067 hsoa_cw03(its:imax,kts:kmax,jts:jmax) = 0.
2068 arosoa_cw03(its:imax,kts:kmax,jts:jmax) = 0.
2069 biog_cw03(its:imax,kts:kmax,jts:jmax) = 0.
2070 totoa_cw03(its:imax,kts:kmax,jts:jmax) = 0.
2071 hoa_cw04(its:imax,kts:kmax,jts:jmax) = 0.
2072 soa_cw04(its:imax,kts:kmax,jts:jmax) = 0.
2073 bboa_cw04(its:imax,kts:kmax,jts:jmax) = 0.
2074 bbsoa_cw04(its:imax,kts:kmax,jts:jmax) = 0.
2075 hsoa_cw04(its:imax,kts:kmax,jts:jmax) = 0.
2076 arosoa_cw04(its:imax,kts:kmax,jts:jmax) = 0.
2077 biog_cw04(its:imax,kts:kmax,jts:jmax) = 0.
2078 totoa_cw04(its:imax,kts:kmax,jts:jmax) = 0.
2080 hoa_cw05(its:imax,kts:kmax,jts:jmax) = 0.
2081 soa_cw05(its:imax,kts:kmax,jts:jmax) = 0.
2082 bboa_cw05(its:imax,kts:kmax,jts:jmax) = 0.
2083 bbsoa_cw05(its:imax,kts:kmax,jts:jmax) = 0.
2084 hsoa_cw05(its:imax,kts:kmax,jts:jmax) = 0.
2085 arosoa_cw05(its:imax,kts:kmax,jts:jmax) = 0.
2086 biog_cw05(its:imax,kts:kmax,jts:jmax) = 0.
2087 totoa_cw05(its:imax,kts:kmax,jts:jmax) = 0.
2089 hoa_cw06(its:imax,kts:kmax,jts:jmax) = 0.
2090 soa_cw06(its:imax,kts:kmax,jts:jmax) = 0.
2091 bboa_cw06(its:imax,kts:kmax,jts:jmax) = 0.
2092 bbsoa_cw06(its:imax,kts:kmax,jts:jmax) = 0.
2093 hsoa_cw06(its:imax,kts:kmax,jts:jmax) = 0.
2094 arosoa_cw06(its:imax,kts:kmax,jts:jmax) = 0.
2095 biog_cw06(its:imax,kts:kmax,jts:jmax) = 0.
2096 totoa_cw06(its:imax,kts:kmax,jts:jmax) = 0.
2098 hoa_cw07(its:imax,kts:kmax,jts:jmax) = 0.
2099 soa_cw07(its:imax,kts:kmax,jts:jmax) = 0.
2100 bboa_cw07(its:imax,kts:kmax,jts:jmax) = 0.
2101 bbsoa_cw07(its:imax,kts:kmax,jts:jmax) = 0.
2102 hsoa_cw07(its:imax,kts:kmax,jts:jmax) = 0.
2103 arosoa_cw07(its:imax,kts:kmax,jts:jmax) = 0.
2104 biog_cw07(its:imax,kts:kmax,jts:jmax) = 0.
2105 totoa_cw07(its:imax,kts:kmax,jts:jmax) = 0.
2107 hoa_cw08(its:imax,kts:kmax,jts:jmax) = 0.
2108 soa_cw08(its:imax,kts:kmax,jts:jmax) = 0.
2109 bboa_cw08(its:imax,kts:kmax,jts:jmax) = 0.
2110 bbsoa_cw08(its:imax,kts:kmax,jts:jmax) = 0.
2111 hsoa_cw08(its:imax,kts:kmax,jts:jmax) = 0.
2112 arosoa_cw08(its:imax,kts:kmax,jts:jmax) = 0.
2113 biog_cw08(its:imax,kts:kmax,jts:jmax) = 0.
2114 totoa_cw08(its:imax,kts:kmax,jts:jmax) = 0.
2118 ! Species to calculate O:C ratios
2119 hsoa_cw_c(its:imax,kts:kmax,jts:jmax) = 0.
2120 hsoa_cw_o(its:imax,kts:kmax,jts:jmax) = 0.
2121 bbsoa_cw_c(its:imax,kts:kmax,jts:jmax) = 0.
2122 bbsoa_cw_o(its:imax,kts:kmax,jts:jmax) = 0.
2123 biog_cw_v1(its:imax,kts:kmax,jts:jmax) = 0.
2124 ant_cw_v1(its:imax,kts:kmax,jts:jmax) = 0.
2127 !do iphase=2,2 !set nphase_aer=2 for cloud-borne aerosols !BSINGH - Commented out
2129 do itype=1,ntype_aer
2130 do n = 1, nsize_aer(itype) !The 4th bin is 2.5-10um and outside the AMS measurements
2135 hsoa_cw_c(i,k,j)=hsoa_cw_c(i,k,j) &
2136 + (chem(i,k,j,lptr_pcg1_f_c_aer(n,itype,iphase)) &
2137 + chem(i,k,j,lptr_opcg1_f_c_aer(n,itype,iphase)))*180/211
2139 hsoa_cw_o(i,k,j)= hsoa_cw_o(i,k,j) &
2140 + (chem(i,k,j,lptr_pcg1_f_o_aer(n,itype,iphase)) &
2141 + chem(i,k,j,lptr_opcg1_f_o_aer(n,itype,iphase)))
2143 bbsoa_cw_c(i,k,j)= bbsoa_cw_c(i,k,j) &
2144 + (chem(i,k,j,lptr_pcg1_b_c_aer(n,itype,iphase)) &
2145 + chem(i,k,j,lptr_opcg1_b_c_aer(n,itype,iphase)))*180/211
2147 bbsoa_cw_o(i,k,j)=bbsoa_cw_o(i,k,j) &
2148 +(chem(i,k,j,lptr_pcg1_b_o_aer(n,itype,iphase)) &
2149 + chem(i,k,j,lptr_opcg1_b_o_aer(n,itype,iphase)))
2151 biog_cw_v1(i,k,j)= biog_cw_v1(i,k,j) &
2152 + chem(i,k,j,lptr_biog1_c_aer(n,itype,iphase))
2154 ant_cw_v1(i,k,j)= ant_cw_v1(i,k,j) &
2155 + chem(i,k,j,lptr_ant1_c_aer(n,itype,iphase))
2167 !do iphase=2,2 !set nphase_aer=2 for cloud-borne aerosols !BSINGH - Commented out
2169 do itype=1,ntype_aer
2173 hoa_cw01(i,k,j)= chem(i,k,j,lptr_pcg1_f_c_aer(1,itype,iphase)) &
2174 + chem(i,k,j,lptr_pcg1_f_o_aer(1,itype,iphase))
2176 bboa_cw01(i,k,j)= chem(i,k,j,lptr_pcg1_b_c_aer(1,itype,iphase)) &
2177 + chem(i,k,j,lptr_pcg1_b_o_aer(1,itype,iphase))
2179 soa_cw01(i,k,j)= chem(i,k,j,lptr_opcg1_b_c_aer(1,itype,iphase)) &
2180 + chem(i,k,j,lptr_opcg1_b_o_aer(1,itype,iphase)) &
2181 + chem(i,k,j,lptr_opcg1_f_c_aer(1,itype,iphase)) &
2182 + chem(i,k,j,lptr_opcg1_f_o_aer(1,itype,iphase)) &
2183 + chem(i,k,j,lptr_ant1_c_aer(1,itype,iphase)) &
2184 + chem(i,k,j,lptr_biog1_c_aer(1,itype,iphase))
2186 arosoa_cw01(i,k,j)= chem(i,k,j,lptr_ant1_c_aer(1,itype,iphase))
2189 bbsoa_cw01(i,k,j)= (chem(i,k,j,lptr_opcg1_b_c_aer(1,itype,iphase)) &
2190 + chem(i,k,j,lptr_opcg1_b_o_aer(1,itype,iphase)))
2192 hsoa_cw01(i,k,j)= ( chem(i,k,j,lptr_opcg1_f_c_aer(1,itype,iphase)) &
2193 + chem(i,k,j,lptr_opcg1_f_o_aer(1,itype,iphase)))
2195 biog_cw01(i,k,j)= chem(i,k,j,lptr_biog1_c_aer(1,itype,iphase))
2199 totoa_cw01(i,k,j)= ( chem(i,k,j,lptr_pcg1_b_c_aer(1,itype,iphase)) &
2200 + chem(i,k,j,lptr_pcg1_b_o_aer(1,itype,iphase)) &
2201 + chem(i,k,j,lptr_opcg1_b_c_aer(1,itype,iphase)) &
2202 + chem(i,k,j,lptr_opcg1_b_o_aer(1,itype,iphase)) &
2203 + chem(i,k,j,lptr_pcg1_f_c_aer(1,itype,iphase)) &
2204 + chem(i,k,j,lptr_pcg1_f_o_aer(1,itype,iphase)) &
2205 + chem(i,k,j,lptr_opcg1_f_c_aer(1,itype,iphase)) &
2206 + chem(i,k,j,lptr_opcg1_f_o_aer(1,itype,iphase)) &
2207 + chem(i,k,j,lptr_ant1_c_aer(1,itype,iphase)) &
2208 + chem(i,k,j,lptr_biog1_c_aer(1,itype,iphase)) &
2209 + chem(i,k,j,lptr_oc_aer(1,itype,iphase)))
2219 !do iphase=2,2 !set nphase_aer=2 for cloud-borne aerosols!BSINGH - Commented out
2221 do itype=1,ntype_aer
2225 hoa_cw02(i,k,j)= chem(i,k,j,lptr_pcg1_f_c_aer(2,itype,iphase)) &
2226 + chem(i,k,j,lptr_pcg1_f_o_aer(2,itype,iphase))
2228 bboa_cw02(i,k,j)= chem(i,k,j,lptr_pcg1_b_c_aer(2,itype,iphase)) &
2229 + chem(i,k,j,lptr_pcg1_b_o_aer(2,itype,iphase))
2231 soa_cw02(i,k,j)= chem(i,k,j,lptr_opcg1_b_c_aer(2,itype,iphase)) &
2232 + chem(i,k,j,lptr_opcg1_b_o_aer(2,itype,iphase)) &
2233 + chem(i,k,j,lptr_opcg1_f_c_aer(2,itype,iphase)) &
2234 + chem(i,k,j,lptr_opcg1_f_o_aer(2,itype,iphase)) &
2235 + chem(i,k,j,lptr_ant1_c_aer(2,itype,iphase)) &
2236 + chem(i,k,j,lptr_biog1_c_aer(2,itype,iphase))
2238 arosoa_cw02(i,k,j)= chem(i,k,j,lptr_ant1_c_aer(2,itype,iphase))
2241 bbsoa_cw02(i,k,j)= (chem(i,k,j,lptr_opcg1_b_c_aer(2,itype,iphase)) &
2242 + chem(i,k,j,lptr_opcg1_b_o_aer(2,itype,iphase)))
2244 hsoa_cw02(i,k,j)= ( chem(i,k,j,lptr_opcg1_f_c_aer(2,itype,iphase)) &
2245 + chem(i,k,j,lptr_opcg1_f_o_aer(2,itype,iphase)))
2247 biog_cw02(i,k,j)= chem(i,k,j,lptr_biog1_c_aer(2,itype,iphase))
2251 totoa_cw02(i,k,j)= ( chem(i,k,j,lptr_pcg1_b_c_aer(2,itype,iphase)) &
2252 + chem(i,k,j,lptr_pcg1_b_o_aer(2,itype,iphase)) &
2253 + chem(i,k,j,lptr_opcg1_b_c_aer(2,itype,iphase)) &
2254 + chem(i,k,j,lptr_opcg1_b_o_aer(2,itype,iphase)) &
2255 + chem(i,k,j,lptr_pcg1_f_c_aer(2,itype,iphase)) &
2256 + chem(i,k,j,lptr_pcg1_f_o_aer(2,itype,iphase)) &
2257 + chem(i,k,j,lptr_opcg1_f_c_aer(2,itype,iphase)) &
2258 + chem(i,k,j,lptr_opcg1_f_o_aer(2,itype,iphase)) &
2259 + chem(i,k,j,lptr_ant1_c_aer(2,itype,iphase)) &
2260 + chem(i,k,j,lptr_biog1_c_aer(2,itype,iphase)) &
2261 + chem(i,k,j,lptr_oc_aer(2,itype,iphase)))
2271 !do iphase=2,2 !set nphase_aer=2 for cloud-borne aerosols!BSINGH - Commented out
2273 do itype=1,ntype_aer
2277 hoa_cw03(i,k,j)= chem(i,k,j,lptr_pcg1_f_c_aer(3,itype,iphase)) &
2278 + chem(i,k,j,lptr_pcg1_f_o_aer(3,itype,iphase))
2280 bboa_cw03(i,k,j)= chem(i,k,j,lptr_pcg1_b_c_aer(3,itype,iphase)) &
2281 + chem(i,k,j,lptr_pcg1_b_o_aer(3,itype,iphase))
2283 soa_cw03(i,k,j)= chem(i,k,j,lptr_opcg1_b_c_aer(3,itype,iphase)) &
2284 + chem(i,k,j,lptr_opcg1_b_o_aer(3,itype,iphase)) &
2285 + chem(i,k,j,lptr_opcg1_f_c_aer(3,itype,iphase)) &
2286 + chem(i,k,j,lptr_opcg1_f_o_aer(3,itype,iphase)) &
2287 + chem(i,k,j,lptr_ant1_c_aer(3,itype,iphase)) &
2288 + chem(i,k,j,lptr_biog1_c_aer(3,itype,iphase))
2290 arosoa_cw03(i,k,j)= chem(i,k,j,lptr_ant1_c_aer(3,itype,iphase))
2293 bbsoa_cw03(i,k,j)= (chem(i,k,j,lptr_opcg1_b_c_aer(3,itype,iphase)) &
2294 + chem(i,k,j,lptr_opcg1_b_o_aer(3,itype,iphase)))
2296 hsoa_cw03(i,k,j)= ( chem(i,k,j,lptr_opcg1_f_c_aer(3,itype,iphase)) &
2297 + chem(i,k,j,lptr_opcg1_f_o_aer(3,itype,iphase)))
2299 biog_cw03(i,k,j)= chem(i,k,j,lptr_biog1_c_aer(3,itype,iphase))
2303 totoa_cw03(i,k,j)= ( chem(i,k,j,lptr_pcg1_b_c_aer(3,itype,iphase)) &
2304 + chem(i,k,j,lptr_pcg1_b_o_aer(3,itype,iphase)) &
2305 + chem(i,k,j,lptr_opcg1_b_c_aer(3,itype,iphase)) &
2306 + chem(i,k,j,lptr_opcg1_b_o_aer(3,itype,iphase)) &
2307 + chem(i,k,j,lptr_pcg1_f_c_aer(3,itype,iphase)) &
2308 + chem(i,k,j,lptr_pcg1_f_o_aer(3,itype,iphase)) &
2309 + chem(i,k,j,lptr_opcg1_f_c_aer(3,itype,iphase)) &
2310 + chem(i,k,j,lptr_opcg1_f_o_aer(3,itype,iphase)) &
2311 + chem(i,k,j,lptr_ant1_c_aer(3,itype,iphase)) &
2312 + chem(i,k,j,lptr_biog1_c_aer(3,itype,iphase)) &
2313 + chem(i,k,j,lptr_oc_aer(3,itype,iphase)))
2323 !do iphase=2,2 !set nphase_aer=2 for cloud-borne aerosols!BSINGH - Commented out
2325 do itype=1,ntype_aer
2329 hoa_cw04(i,k,j)= chem(i,k,j,lptr_pcg1_f_c_aer(4,itype,iphase)) &
2330 + chem(i,k,j,lptr_pcg1_f_o_aer(4,itype,iphase))
2332 bboa_cw04(i,k,j)= chem(i,k,j,lptr_pcg1_b_c_aer(4,itype,iphase)) &
2333 + chem(i,k,j,lptr_pcg1_b_o_aer(4,itype,iphase))
2335 soa_cw04(i,k,j)= chem(i,k,j,lptr_opcg1_b_c_aer(4,itype,iphase)) &
2336 + chem(i,k,j,lptr_opcg1_b_o_aer(4,itype,iphase)) &
2337 + chem(i,k,j,lptr_opcg1_f_c_aer(4,itype,iphase)) &
2338 + chem(i,k,j,lptr_opcg1_f_o_aer(4,itype,iphase)) &
2339 + chem(i,k,j,lptr_ant1_c_aer(4,itype,iphase)) &
2340 + chem(i,k,j,lptr_biog1_c_aer(4,itype,iphase))
2342 arosoa_cw04(i,k,j)= chem(i,k,j,lptr_ant1_c_aer(4,itype,iphase))
2345 bbsoa_cw04(i,k,j)= (chem(i,k,j,lptr_opcg1_b_c_aer(4,itype,iphase)) &
2346 + chem(i,k,j,lptr_opcg1_b_o_aer(4,itype,iphase)))
2348 hsoa_cw04(i,k,j)= ( chem(i,k,j,lptr_opcg1_f_c_aer(4,itype,iphase)) &
2349 + chem(i,k,j,lptr_opcg1_f_o_aer(4,itype,iphase)))
2351 biog_cw04(i,k,j)= chem(i,k,j,lptr_biog1_c_aer(4,itype,iphase))
2355 totoa_cw04(i,k,j)= ( chem(i,k,j,lptr_pcg1_b_c_aer(4,itype,iphase)) &
2356 + chem(i,k,j,lptr_pcg1_b_o_aer(4,itype,iphase)) &
2357 + chem(i,k,j,lptr_opcg1_b_c_aer(4,itype,iphase)) &
2358 + chem(i,k,j,lptr_opcg1_b_o_aer(4,itype,iphase)) &
2359 + chem(i,k,j,lptr_pcg1_f_c_aer(4,itype,iphase)) &
2360 + chem(i,k,j,lptr_pcg1_f_o_aer(4,itype,iphase)) &
2361 + chem(i,k,j,lptr_opcg1_f_c_aer(4,itype,iphase)) &
2362 + chem(i,k,j,lptr_opcg1_f_o_aer(4,itype,iphase)) &
2363 + chem(i,k,j,lptr_ant1_c_aer(4,itype,iphase)) &
2364 + chem(i,k,j,lptr_biog1_c_aer(4,itype,iphase)) &
2365 + chem(i,k,j,lptr_oc_aer(4,itype,iphase)))
2374 !do iphase=2,2 !set nphase_aer=1 for interstitial aerosols!BSINGH - Commented out
2376 do itype=1,ntype_aer
2377 if(nsize_aer(itype).ge.5) then
2381 hoa_cw05(i,k,j)= chem(i,k,j,lptr_pcg1_f_c_aer(5,itype,iphase)) &
2382 + chem(i,k,j,lptr_pcg1_f_o_aer(5,itype,iphase))
2384 bboa_cw05(i,k,j)= chem(i,k,j,lptr_pcg1_b_c_aer(5,itype,iphase)) &
2385 + chem(i,k,j,lptr_pcg1_b_o_aer(5,itype,iphase))
2387 soa_cw05(i,k,j)= chem(i,k,j,lptr_opcg1_b_c_aer(5,itype,iphase)) &
2388 + chem(i,k,j,lptr_opcg1_b_o_aer(5,itype,iphase)) &
2389 + chem(i,k,j,lptr_opcg1_f_c_aer(5,itype,iphase)) &
2390 + chem(i,k,j,lptr_opcg1_f_o_aer(5,itype,iphase)) &
2391 + chem(i,k,j,lptr_ant1_c_aer(5,itype,iphase)) &
2392 + chem(i,k,j,lptr_biog1_c_aer(5,itype,iphase))
2394 arosoa_cw05(i,k,j)= chem(i,k,j,lptr_ant1_c_aer(5,itype,iphase))
2397 bbsoa_cw05(i,k,j)= (chem(i,k,j,lptr_opcg1_b_c_aer(5,itype,iphase)) &
2398 + chem(i,k,j,lptr_opcg1_b_o_aer(5,itype,iphase)))
2400 hsoa_cw05(i,k,j)= ( chem(i,k,j,lptr_opcg1_f_c_aer(5,itype,iphase)) &
2401 + chem(i,k,j,lptr_opcg1_f_o_aer(5,itype,iphase)))
2403 biog_cw05(i,k,j)= chem(i,k,j,lptr_biog1_c_aer(5,itype,iphase))
2407 totoa_cw05(i,k,j)= ( chem(i,k,j,lptr_pcg1_b_c_aer(5,itype,iphase)) &
2408 + chem(i,k,j,lptr_pcg1_b_o_aer(5,itype,iphase)) &
2409 + chem(i,k,j,lptr_opcg1_b_c_aer(5,itype,iphase)) &
2410 + chem(i,k,j,lptr_opcg1_b_o_aer(5,itype,iphase)) &
2411 + chem(i,k,j,lptr_pcg1_f_c_aer(5,itype,iphase)) &
2412 + chem(i,k,j,lptr_pcg1_f_o_aer(5,itype,iphase)) &
2413 + chem(i,k,j,lptr_opcg1_f_c_aer(5,itype,iphase)) &
2414 + chem(i,k,j,lptr_opcg1_f_o_aer(5,itype,iphase)) &
2415 + chem(i,k,j,lptr_ant1_c_aer(5,itype,iphase)) &
2416 + chem(i,k,j,lptr_biog1_c_aer(5,itype,iphase)) &
2417 + chem(i,k,j,lptr_oc_aer(5,itype,iphase)))
2423 endif ! check for number of size bins
2428 !do iphase=2,2 !set nphase_aer=1 for interstitial aerosols!BSINGH - Commented out
2430 do itype=1,ntype_aer
2431 if(nsize_aer(itype).ge.6) then
2435 hoa_cw06(i,k,j)= chem(i,k,j,lptr_pcg1_f_c_aer(6,itype,iphase)) &
2436 + chem(i,k,j,lptr_pcg1_f_o_aer(6,itype,iphase))
2438 bboa_cw06(i,k,j)= chem(i,k,j,lptr_pcg1_b_c_aer(6,itype,iphase)) &
2439 + chem(i,k,j,lptr_pcg1_b_o_aer(6,itype,iphase))
2441 soa_cw06(i,k,j)= chem(i,k,j,lptr_opcg1_b_c_aer(6,itype,iphase)) &
2442 + chem(i,k,j,lptr_opcg1_b_o_aer(6,itype,iphase)) &
2443 + chem(i,k,j,lptr_opcg1_f_c_aer(6,itype,iphase)) &
2444 + chem(i,k,j,lptr_opcg1_f_o_aer(6,itype,iphase)) &
2445 + chem(i,k,j,lptr_ant1_c_aer(6,itype,iphase)) &
2446 + chem(i,k,j,lptr_biog1_c_aer(6,itype,iphase))
2448 arosoa_cw06(i,k,j)= chem(i,k,j,lptr_ant1_c_aer(6,itype,iphase))
2451 bbsoa_cw06(i,k,j)= (chem(i,k,j,lptr_opcg1_b_c_aer(6,itype,iphase)) &
2452 + chem(i,k,j,lptr_opcg1_b_o_aer(6,itype,iphase)))
2454 hsoa_cw06(i,k,j)= ( chem(i,k,j,lptr_opcg1_f_c_aer(6,itype,iphase)) &
2455 + chem(i,k,j,lptr_opcg1_f_o_aer(6,itype,iphase)))
2457 biog_cw06(i,k,j)= chem(i,k,j,lptr_biog1_c_aer(6,itype,iphase))
2461 totoa_cw06(i,k,j)= ( chem(i,k,j,lptr_pcg1_b_c_aer(6,itype,iphase)) &
2462 + chem(i,k,j,lptr_pcg1_b_o_aer(6,itype,iphase)) &
2463 + chem(i,k,j,lptr_opcg1_b_c_aer(6,itype,iphase)) &
2464 + chem(i,k,j,lptr_opcg1_b_o_aer(6,itype,iphase)) &
2465 + chem(i,k,j,lptr_pcg1_f_c_aer(6,itype,iphase)) &
2466 + chem(i,k,j,lptr_pcg1_f_o_aer(6,itype,iphase)) &
2467 + chem(i,k,j,lptr_opcg1_f_c_aer(6,itype,iphase)) &
2468 + chem(i,k,j,lptr_opcg1_f_o_aer(6,itype,iphase)) &
2469 + chem(i,k,j,lptr_ant1_c_aer(6,itype,iphase)) &
2470 + chem(i,k,j,lptr_biog1_c_aer(6,itype,iphase)) &
2471 + chem(i,k,j,lptr_oc_aer(6,itype,iphase)))
2481 !do iphase=2,2 !set nphase_aer=1 for interstitial aerosols!BSINGH - Commented out
2483 do itype=1,ntype_aer
2484 if(nsize_aer(itype).ge.7) then
2488 hoa_cw07(i,k,j)= chem(i,k,j,lptr_pcg1_f_c_aer(7,itype,iphase)) &
2489 + chem(i,k,j,lptr_pcg1_f_o_aer(7,itype,iphase))
2491 bboa_cw07(i,k,j)= chem(i,k,j,lptr_pcg1_b_c_aer(7,itype,iphase)) &
2492 + chem(i,k,j,lptr_pcg1_b_o_aer(7,itype,iphase))
2494 soa_cw07(i,k,j)= chem(i,k,j,lptr_opcg1_b_c_aer(7,itype,iphase)) &
2495 + chem(i,k,j,lptr_opcg1_b_o_aer(7,itype,iphase)) &
2496 + chem(i,k,j,lptr_opcg1_f_c_aer(7,itype,iphase)) &
2497 + chem(i,k,j,lptr_opcg1_f_o_aer(7,itype,iphase)) &
2498 + chem(i,k,j,lptr_ant1_c_aer(7,itype,iphase)) &
2499 + chem(i,k,j,lptr_biog1_c_aer(7,itype,iphase))
2501 arosoa_cw07(i,k,j)= chem(i,k,j,lptr_ant1_c_aer(7,itype,iphase))
2504 bbsoa_cw07(i,k,j)= (chem(i,k,j,lptr_opcg1_b_c_aer(7,itype,iphase)) &
2505 + chem(i,k,j,lptr_opcg1_b_o_aer(7,itype,iphase)))
2507 hsoa_cw07(i,k,j)= ( chem(i,k,j,lptr_opcg1_f_c_aer(7,itype,iphase)) &
2508 + chem(i,k,j,lptr_opcg1_f_o_aer(7,itype,iphase)))
2510 biog_cw07(i,k,j)= chem(i,k,j,lptr_biog1_c_aer(7,itype,iphase))
2514 totoa_cw07(i,k,j)= ( chem(i,k,j,lptr_pcg1_b_c_aer(7,itype,iphase)) &
2515 + chem(i,k,j,lptr_pcg1_b_o_aer(7,itype,iphase)) &
2516 + chem(i,k,j,lptr_opcg1_b_c_aer(7,itype,iphase)) &
2517 + chem(i,k,j,lptr_opcg1_b_o_aer(7,itype,iphase)) &
2518 + chem(i,k,j,lptr_pcg1_f_c_aer(7,itype,iphase)) &
2519 + chem(i,k,j,lptr_pcg1_f_o_aer(7,itype,iphase)) &
2520 + chem(i,k,j,lptr_opcg1_f_c_aer(7,itype,iphase)) &
2521 + chem(i,k,j,lptr_opcg1_f_o_aer(7,itype,iphase)) &
2522 + chem(i,k,j,lptr_ant1_c_aer(7,itype,iphase)) &
2523 + chem(i,k,j,lptr_biog1_c_aer(7,itype,iphase)) &
2524 + chem(i,k,j,lptr_oc_aer(7,itype,iphase)))
2534 !do iphase=2,2 !set nphase_aer=1 for interstitial aerosols!BSINGH - Commented out
2536 do itype=1,ntype_aer
2537 if(nsize_aer(itype).ge.8) then
2541 hoa_cw08(i,k,j)= chem(i,k,j,lptr_pcg1_f_c_aer(8,itype,iphase)) &
2542 + chem(i,k,j,lptr_pcg1_f_o_aer(8,itype,iphase))
2544 bboa_cw08(i,k,j)= chem(i,k,j,lptr_pcg1_b_c_aer(8,itype,iphase)) &
2545 + chem(i,k,j,lptr_pcg1_b_o_aer(8,itype,iphase))
2547 soa_cw08(i,k,j)= chem(i,k,j,lptr_opcg1_b_c_aer(8,itype,iphase)) &
2548 + chem(i,k,j,lptr_opcg1_b_o_aer(8,itype,iphase)) &
2549 + chem(i,k,j,lptr_opcg1_f_c_aer(8,itype,iphase)) &
2550 + chem(i,k,j,lptr_opcg1_f_o_aer(8,itype,iphase)) &
2551 + chem(i,k,j,lptr_ant1_c_aer(8,itype,iphase)) &
2552 + chem(i,k,j,lptr_biog1_c_aer(8,itype,iphase))
2554 arosoa_cw08(i,k,j)= chem(i,k,j,lptr_ant1_c_aer(8,itype,iphase))
2557 bbsoa_cw08(i,k,j)= (chem(i,k,j,lptr_opcg1_b_c_aer(8,itype,iphase)) &
2558 + chem(i,k,j,lptr_opcg1_b_o_aer(8,itype,iphase)))
2560 hsoa_cw08(i,k,j)= ( chem(i,k,j,lptr_opcg1_f_c_aer(8,itype,iphase)) &
2561 + chem(i,k,j,lptr_opcg1_f_o_aer(8,itype,iphase)))
2563 biog_cw08(i,k,j)= chem(i,k,j,lptr_biog1_c_aer(8,itype,iphase))
2567 totoa_cw08(i,k,j)= ( chem(i,k,j,lptr_pcg1_b_c_aer(8,itype,iphase)) &
2568 + chem(i,k,j,lptr_pcg1_b_o_aer(8,itype,iphase)) &
2569 + chem(i,k,j,lptr_opcg1_b_c_aer(8,itype,iphase)) &
2570 + chem(i,k,j,lptr_opcg1_b_o_aer(8,itype,iphase)) &
2571 + chem(i,k,j,lptr_pcg1_f_c_aer(8,itype,iphase)) &
2572 + chem(i,k,j,lptr_pcg1_f_o_aer(8,itype,iphase)) &
2573 + chem(i,k,j,lptr_opcg1_f_c_aer(8,itype,iphase)) &
2574 + chem(i,k,j,lptr_opcg1_f_o_aer(8,itype,iphase)) &
2575 + chem(i,k,j,lptr_ant1_c_aer(8,itype,iphase)) &
2576 + chem(i,k,j,lptr_biog1_c_aer(8,itype,iphase)) &
2577 + chem(i,k,j,lptr_oc_aer(8,itype,iphase)))
2591 end subroutine sum_aq_vbs2
2595 !----------------------------------------------------------------------
2597 !-----------------------------------------------------------------------
2600 subroutine sum_vbs4 ( aero_diag_opt, &
2602 hoa_a01,hoa_a02,hoa_a03,hoa_a04, &
2603 soa_a01,soa_a02,soa_a03,soa_a04, &
2604 biog_a01,biog_a02,biog_a03,biog_a04, &
2605 totoa_a01,totoa_a02,totoa_a03,totoa_a04, &
2606 biog_v1,biog_v2,biog_v3,biog_v4, &
2607 ant_v1,ant_v2,ant_v3,ant_v4, &
2608 ids,ide, jds,jde, kds,kde, &
2609 ims,ime, jms,jme, kms,kme, &
2610 its,ite, jts,jte, kts,kte )
2612 USE module_state_description, only: num_chem
2613 USE module_data_mosaic_asect
2616 INTEGER, INTENT(IN ) :: aero_diag_opt
2617 INTEGER, INTENT(IN ) :: &
2618 ids,ide, jds,jde, kds,kde, &
2619 ims,ime, jms,jme, kms,kme, &
2620 its,ite, jts,jte, kts,kte
2622 REAL, DIMENSION( ims:ime, kms:kme, jms:jme ), &
2625 REAL, DIMENSION( ims:ime, kms:kme, jms:jme, num_chem ), &
2627 REAL, DIMENSION( ims:ime, kms:kme, jms:jme ), &
2628 INTENT(OUT) :: hoa_a01,hoa_a02,hoa_a03,hoa_a04, &
2629 soa_a01,soa_a02,soa_a03,soa_a04, &
2630 biog_a01,biog_a02,biog_a03,biog_a04, &
2631 totoa_a01,totoa_a02,totoa_a03,totoa_a04, &
2632 biog_v1,biog_v2,biog_v3,biog_v4, &
2633 ant_v1,ant_v2,ant_v3,ant_v4
2637 INTEGER :: i,imax,j,jmax,k,kmax,n,itype,iphase
2639 imax = min(ite,ide-1)
2640 jmax = min(jte,jde-1)
2643 totoa_a01(its:imax,kts:kmax,jts:jmax) = 0.
2644 totoa_a02(its:imax,kts:kmax,jts:jmax) = 0.
2645 totoa_a03(its:imax,kts:kmax,jts:jmax) = 0.
2646 totoa_a04(its:imax,kts:kmax,jts:jmax) = 0.
2648 if( aero_diag_opt > 0 ) then
2649 hoa_a01(its:imax,kts:kmax,jts:jmax) = 0.
2650 soa_a01(its:imax,kts:kmax,jts:jmax) = 0.
2651 biog_a01(its:imax,kts:kmax,jts:jmax) = 0.
2653 hoa_a02(its:imax,kts:kmax,jts:jmax) = 0.
2654 soa_a02(its:imax,kts:kmax,jts:jmax) = 0.
2655 biog_a02(its:imax,kts:kmax,jts:jmax) = 0.
2657 hoa_a03(its:imax,kts:kmax,jts:jmax) = 0.
2658 soa_a03(its:imax,kts:kmax,jts:jmax) = 0.
2659 biog_a03(its:imax,kts:kmax,jts:jmax) = 0.
2661 hoa_a04(its:imax,kts:kmax,jts:jmax) = 0.
2662 soa_a04(its:imax,kts:kmax,jts:jmax) = 0.
2663 biog_a04(its:imax,kts:kmax,jts:jmax) = 0.
2665 ! Species to calculate O:C ratios
2666 biog_v1(its:imax,kts:kmax,jts:jmax) = 0.
2667 biog_v2(its:imax,kts:kmax,jts:jmax) = 0.
2668 biog_v3(its:imax,kts:kmax,jts:jmax) = 0.
2669 biog_v4(its:imax,kts:kmax,jts:jmax) = 0.
2670 ant_v1(its:imax,kts:kmax,jts:jmax) = 0.
2671 ant_v2(its:imax,kts:kmax,jts:jmax) = 0.
2672 ant_v3(its:imax,kts:kmax,jts:jmax) = 0.
2673 ant_v4(its:imax,kts:kmax,jts:jmax) = 0.
2676 do iphase=1,nphase_aer
2677 do itype=1,ntype_aer
2681 totoa_a01(i,k,j)= totoa_a01(i,k,j) &
2682 + chem(i,k,j,lptr_asoaX_aer(1,itype,iphase)) &
2683 + chem(i,k,j,lptr_asoa1_aer(1,itype,iphase)) &
2684 + chem(i,k,j,lptr_asoa2_aer(1,itype,iphase)) &
2685 + chem(i,k,j,lptr_asoa3_aer(1,itype,iphase)) &
2686 + chem(i,k,j,lptr_asoa4_aer(1,itype,iphase)) &
2687 + chem(i,k,j,lptr_bsoaX_aer(1,itype,iphase)) &
2688 + chem(i,k,j,lptr_bsoa1_aer(1,itype,iphase)) &
2689 + chem(i,k,j,lptr_bsoa2_aer(1,itype,iphase)) &
2690 + chem(i,k,j,lptr_bsoa3_aer(1,itype,iphase)) &
2691 + chem(i,k,j,lptr_bsoa4_aer(1,itype,iphase)) &
2692 + chem(i,k,j,lptr_glysoa_r1_aer(1,itype,iphase)) &
2693 + chem(i,k,j,lptr_glysoa_r2_aer(1,itype,iphase)) &
2694 + chem(i,k,j,lptr_glysoa_oh_aer(1,itype,iphase)) &
2695 + chem(i,k,j,lptr_glysoa_sfc_aer(1,itype,iphase)) &
2696 + chem(i,k,j,lptr_glysoa_nh4_aer(1,itype,iphase)) &
2697 + chem(i,k,j,lptr_oc_aer(1,itype,iphase))
2698 totoa_a02(i,k,j)= totoa_a02(i,k,j) &
2699 + chem(i,k,j,lptr_asoaX_aer(2,itype,iphase)) &
2700 + chem(i,k,j,lptr_asoa1_aer(2,itype,iphase)) &
2701 + chem(i,k,j,lptr_asoa2_aer(2,itype,iphase)) &
2702 + chem(i,k,j,lptr_asoa3_aer(2,itype,iphase)) &
2703 + chem(i,k,j,lptr_asoa4_aer(2,itype,iphase)) &
2704 + chem(i,k,j,lptr_bsoaX_aer(2,itype,iphase)) &
2705 + chem(i,k,j,lptr_bsoa1_aer(2,itype,iphase)) &
2706 + chem(i,k,j,lptr_bsoa2_aer(2,itype,iphase)) &
2707 + chem(i,k,j,lptr_bsoa3_aer(2,itype,iphase)) &
2708 + chem(i,k,j,lptr_bsoa4_aer(2,itype,iphase)) &
2709 + chem(i,k,j,lptr_glysoa_r1_aer(2,itype,iphase)) &
2710 + chem(i,k,j,lptr_glysoa_r2_aer(2,itype,iphase)) &
2711 + chem(i,k,j,lptr_glysoa_oh_aer(2,itype,iphase)) &
2712 + chem(i,k,j,lptr_glysoa_sfc_aer(2,itype,iphase)) &
2713 + chem(i,k,j,lptr_glysoa_nh4_aer(2,itype,iphase)) &
2714 + chem(i,k,j,lptr_oc_aer(2,itype,iphase))
2715 totoa_a03(i,k,j)= totoa_a03(i,k,j) &
2716 + chem(i,k,j,lptr_asoaX_aer(3,itype,iphase)) &
2717 + chem(i,k,j,lptr_asoa1_aer(3,itype,iphase)) &
2718 + chem(i,k,j,lptr_asoa2_aer(3,itype,iphase)) &
2719 + chem(i,k,j,lptr_asoa3_aer(3,itype,iphase)) &
2720 + chem(i,k,j,lptr_asoa4_aer(3,itype,iphase)) &
2721 + chem(i,k,j,lptr_bsoaX_aer(3,itype,iphase)) &
2722 + chem(i,k,j,lptr_bsoa1_aer(3,itype,iphase)) &
2723 + chem(i,k,j,lptr_bsoa2_aer(3,itype,iphase)) &
2724 + chem(i,k,j,lptr_bsoa3_aer(3,itype,iphase)) &
2725 + chem(i,k,j,lptr_bsoa4_aer(3,itype,iphase)) &
2726 + chem(i,k,j,lptr_glysoa_r1_aer(3,itype,iphase)) &
2727 + chem(i,k,j,lptr_glysoa_r2_aer(3,itype,iphase)) &
2728 + chem(i,k,j,lptr_glysoa_oh_aer(3,itype,iphase)) &
2729 + chem(i,k,j,lptr_glysoa_sfc_aer(3,itype,iphase)) &
2730 + chem(i,k,j,lptr_glysoa_nh4_aer(3,itype,iphase)) &
2731 + chem(i,k,j,lptr_oc_aer(3,itype,iphase))
2732 totoa_a04(i,k,j)= totoa_a04(i,k,j) &
2733 + chem(i,k,j,lptr_asoaX_aer(4,itype,iphase)) &
2734 + chem(i,k,j,lptr_asoa1_aer(4,itype,iphase)) &
2735 + chem(i,k,j,lptr_asoa2_aer(4,itype,iphase)) &
2736 + chem(i,k,j,lptr_asoa3_aer(4,itype,iphase)) &
2737 + chem(i,k,j,lptr_asoa4_aer(4,itype,iphase)) &
2738 + chem(i,k,j,lptr_bsoaX_aer(4,itype,iphase)) &
2739 + chem(i,k,j,lptr_bsoa1_aer(4,itype,iphase)) &
2740 + chem(i,k,j,lptr_bsoa2_aer(4,itype,iphase)) &
2741 + chem(i,k,j,lptr_bsoa3_aer(4,itype,iphase)) &
2742 + chem(i,k,j,lptr_bsoa4_aer(4,itype,iphase)) &
2743 + chem(i,k,j,lptr_glysoa_r1_aer(4,itype,iphase)) &
2744 + chem(i,k,j,lptr_glysoa_r2_aer(4,itype,iphase)) &
2745 + chem(i,k,j,lptr_glysoa_oh_aer(4,itype,iphase)) &
2746 + chem(i,k,j,lptr_glysoa_sfc_aer(4,itype,iphase)) &
2747 + chem(i,k,j,lptr_glysoa_nh4_aer(4,itype,iphase)) &
2748 + chem(i,k,j,lptr_oc_aer(4,itype,iphase))
2755 if( aero_diag_opt > 0 ) then
2756 do iphase=1,nphase_aer
2757 do itype=1,ntype_aer
2758 do n = 1, nsize_aer(itype) !The 4th bin is 2.5-10um and outside the AMS measurements
2763 biog_v1(i,k,j)= biog_v1(i,k,j) &
2764 + chem(i,k,j,lptr_bsoaX_aer(n,itype,iphase)) &
2765 + chem(i,k,j,lptr_bsoa1_aer(n,itype,iphase)) &
2766 + chem(i,k,j,lptr_bsoa2_aer(n,itype,iphase)) &
2767 + chem(i,k,j,lptr_bsoa3_aer(n,itype,iphase)) &
2768 + chem(i,k,j,lptr_bsoa4_aer(n,itype,iphase))
2770 ant_v1(i,k,j)= ant_v1(i,k,j) &
2771 + chem(i,k,j,lptr_asoaX_aer(n,itype,iphase)) &
2772 + chem(i,k,j,lptr_asoa1_aer(n,itype,iphase)) &
2773 + chem(i,k,j,lptr_asoa2_aer(n,itype,iphase)) &
2774 + chem(i,k,j,lptr_asoa3_aer(n,itype,iphase)) &
2775 + chem(i,k,j,lptr_asoa4_aer(n,itype,iphase))
2784 biog_v1(its:imax,kts:kmax,jts:jmax) = biog_v1(its:imax,kts:kmax,jts:jmax) &
2785 / alt(its:imax,kts:kmax,jts:jmax)
2786 ant_v1(its:imax,kts:kmax,jts:jmax) = ant_v1(its:imax,kts:kmax,jts:jmax) &
2787 / alt(its:imax,kts:kmax,jts:jmax)
2789 do iphase=1,nphase_aer
2790 do itype=1,ntype_aer
2794 hoa_a01(i,k,j)= hoa_a01(i,k,j) &
2795 +chem(i,k,j,lptr_oc_aer(1,itype,iphase))
2797 soa_a01(i,k,j)= soa_a01(i,k,j) &
2798 + chem(i,k,j,lptr_asoaX_aer(1,itype,iphase)) &
2799 + chem(i,k,j,lptr_asoa1_aer(1,itype,iphase)) &
2800 + chem(i,k,j,lptr_asoa2_aer(1,itype,iphase)) &
2801 + chem(i,k,j,lptr_asoa3_aer(1,itype,iphase)) &
2802 + chem(i,k,j,lptr_asoa4_aer(1,itype,iphase)) &
2803 + chem(i,k,j,lptr_bsoaX_aer(1,itype,iphase)) &
2804 + chem(i,k,j,lptr_bsoa1_aer(1,itype,iphase)) &
2805 + chem(i,k,j,lptr_bsoa2_aer(1,itype,iphase)) &
2806 + chem(i,k,j,lptr_bsoa3_aer(1,itype,iphase)) &
2807 + chem(i,k,j,lptr_bsoa4_aer(1,itype,iphase)) &
2808 + chem(i,k,j,lptr_glysoa_r1_aer(1,itype,iphase)) &
2809 + chem(i,k,j,lptr_glysoa_r2_aer(1,itype,iphase)) &
2810 + chem(i,k,j,lptr_glysoa_sfc_aer(1,itype,iphase)) &
2811 + chem(i,k,j,lptr_glysoa_oh_aer(1,itype,iphase)) &
2812 + chem(i,k,j,lptr_glysoa_nh4_aer(1,itype,iphase))
2814 biog_a01(i,k,j)= biog_a01(i,k,j) &
2815 + chem(i,k,j,lptr_bsoa1_aer(1,itype,iphase)) &
2816 + chem(i,k,j,lptr_bsoa2_aer(1,itype,iphase)) &
2817 + chem(i,k,j,lptr_bsoa3_aer(1,itype,iphase)) &
2818 + chem(i,k,j,lptr_bsoa4_aer(1,itype,iphase))
2825 do iphase=1,nphase_aer
2826 do itype=1,ntype_aer
2830 hoa_a02(i,k,j)= hoa_a02(i,k,j) &
2831 +chem(i,k,j,lptr_oc_aer(2,itype,iphase))
2833 soa_a02(i,k,j)= soa_a02(i,k,j) &
2834 + chem(i,k,j,lptr_asoaX_aer(2,itype,iphase)) &
2835 + chem(i,k,j,lptr_asoa1_aer(2,itype,iphase)) &
2836 + chem(i,k,j,lptr_asoa2_aer(2,itype,iphase)) &
2837 + chem(i,k,j,lptr_asoa3_aer(2,itype,iphase)) &
2838 + chem(i,k,j,lptr_asoa4_aer(2,itype,iphase)) &
2839 + chem(i,k,j,lptr_bsoaX_aer(2,itype,iphase)) &
2840 + chem(i,k,j,lptr_bsoa1_aer(2,itype,iphase)) &
2841 + chem(i,k,j,lptr_bsoa2_aer(2,itype,iphase)) &
2842 + chem(i,k,j,lptr_bsoa3_aer(2,itype,iphase)) &
2843 + chem(i,k,j,lptr_bsoa4_aer(2,itype,iphase)) &
2844 + chem(i,k,j,lptr_glysoa_r1_aer(2,itype,iphase)) &
2845 + chem(i,k,j,lptr_glysoa_r2_aer(2,itype,iphase)) &
2846 + chem(i,k,j,lptr_glysoa_sfc_aer(2,itype,iphase)) &
2847 + chem(i,k,j,lptr_glysoa_oh_aer(2,itype,iphase)) &
2848 + chem(i,k,j,lptr_glysoa_nh4_aer(2,itype,iphase))
2850 biog_a02(i,k,j)= biog_a02(i,k,j) &
2851 + chem(i,k,j,lptr_bsoa1_aer(2,itype,iphase)) &
2852 + chem(i,k,j,lptr_bsoa2_aer(2,itype,iphase)) &
2853 + chem(i,k,j,lptr_bsoa3_aer(2,itype,iphase)) &
2854 + chem(i,k,j,lptr_bsoa4_aer(2,itype,iphase))
2861 do iphase=1,nphase_aer
2862 do itype=1,ntype_aer
2866 hoa_a03(i,k,j)= hoa_a03(i,k,j) &
2867 + chem(i,k,j,lptr_oc_aer(3,itype,iphase))
2869 soa_a03(i,k,j)= soa_a03(i,k,j) &
2870 + chem(i,k,j,lptr_asoaX_aer(3,itype,iphase)) &
2871 + chem(i,k,j,lptr_asoa1_aer(3,itype,iphase)) &
2872 + chem(i,k,j,lptr_asoa2_aer(3,itype,iphase)) &
2873 + chem(i,k,j,lptr_asoa3_aer(3,itype,iphase)) &
2874 + chem(i,k,j,lptr_asoa4_aer(3,itype,iphase)) &
2875 + chem(i,k,j,lptr_bsoaX_aer(3,itype,iphase)) &
2876 + chem(i,k,j,lptr_bsoa1_aer(3,itype,iphase)) &
2877 + chem(i,k,j,lptr_bsoa2_aer(3,itype,iphase)) &
2878 + chem(i,k,j,lptr_bsoa3_aer(3,itype,iphase)) &
2879 + chem(i,k,j,lptr_bsoa4_aer(3,itype,iphase)) &
2880 + chem(i,k,j,lptr_glysoa_r1_aer(3,itype,iphase)) &
2881 + chem(i,k,j,lptr_glysoa_r2_aer(3,itype,iphase)) &
2882 + chem(i,k,j,lptr_glysoa_sfc_aer(3,itype,iphase)) &
2883 + chem(i,k,j,lptr_glysoa_oh_aer(3,itype,iphase)) &
2884 + chem(i,k,j,lptr_glysoa_nh4_aer(3,itype,iphase))
2886 biog_a03(i,k,j)= biog_a03(i,k,j) &
2887 + chem(i,k,j,lptr_bsoa1_aer(3,itype,iphase)) &
2888 + chem(i,k,j,lptr_bsoa2_aer(3,itype,iphase)) &
2889 + chem(i,k,j,lptr_bsoa3_aer(3,itype,iphase)) &
2890 + chem(i,k,j,lptr_bsoa4_aer(3,itype,iphase))
2897 do iphase=1,nphase_aer
2898 do itype=1,ntype_aer
2902 hoa_a04(i,k,j)= hoa_a04(i,k,j) &
2903 + chem(i,k,j,lptr_oc_aer(4,itype,iphase))
2905 soa_a04(i,k,j)= soa_a04(i,k,j) &
2906 + chem(i,k,j,lptr_asoaX_aer(4,itype,iphase)) &
2907 + chem(i,k,j,lptr_asoa1_aer(4,itype,iphase)) &
2908 + chem(i,k,j,lptr_asoa2_aer(4,itype,iphase)) &
2909 + chem(i,k,j,lptr_asoa3_aer(4,itype,iphase)) &
2910 + chem(i,k,j,lptr_asoa4_aer(4,itype,iphase)) &
2911 + chem(i,k,j,lptr_bsoaX_aer(4,itype,iphase)) &
2912 + chem(i,k,j,lptr_bsoa1_aer(4,itype,iphase)) &
2913 + chem(i,k,j,lptr_bsoa2_aer(4,itype,iphase)) &
2914 + chem(i,k,j,lptr_bsoa3_aer(4,itype,iphase)) &
2915 + chem(i,k,j,lptr_bsoa4_aer(4,itype,iphase)) &
2916 + chem(i,k,j,lptr_glysoa_r1_aer(4,itype,iphase)) &
2917 + chem(i,k,j,lptr_glysoa_r2_aer(4,itype,iphase)) &
2918 + chem(i,k,j,lptr_glysoa_sfc_aer(4,itype,iphase)) &
2919 + chem(i,k,j,lptr_glysoa_oh_aer(4,itype,iphase)) &
2920 + chem(i,k,j,lptr_glysoa_nh4_aer(4,itype,iphase))
2922 biog_a04(i,k,j)= biog_a04(i,k,j) &
2923 + chem(i,k,j,lptr_bsoa1_aer(4,itype,iphase)) &
2924 + chem(i,k,j,lptr_bsoa2_aer(4,itype,iphase)) &
2925 + chem(i,k,j,lptr_bsoa3_aer(4,itype,iphase)) &
2926 + chem(i,k,j,lptr_bsoa4_aer(4,itype,iphase))
2934 !Factor of 1.4 used below to convert OC to OA
2935 totoa_a01(its:imax,kts:kmax,jts:jmax) =totoa_a01(its:imax,kts:kmax,jts:jmax) &
2936 / alt(its:imax,kts:kmax,jts:jmax)
2937 totoa_a02(its:imax,kts:kmax,jts:jmax) =totoa_a02(its:imax,kts:kmax,jts:jmax) &
2938 / alt(its:imax,kts:kmax,jts:jmax)
2939 totoa_a03(its:imax,kts:kmax,jts:jmax) =totoa_a03(its:imax,kts:kmax,jts:jmax) &
2940 / alt(its:imax,kts:kmax,jts:jmax)
2941 totoa_a04(its:imax,kts:kmax,jts:jmax) =totoa_a04(its:imax,kts:kmax,jts:jmax) &
2942 / alt(its:imax,kts:kmax,jts:jmax)
2943 if( aero_diag_opt > 0 ) then
2944 hoa_a01(its:imax,kts:kmax,jts:jmax) =hoa_a01(its:imax,kts:kmax,jts:jmax) &
2945 / alt(its:imax,kts:kmax,jts:jmax)
2946 soa_a01(its:imax,kts:kmax,jts:jmax) =soa_a01(its:imax,kts:kmax,jts:jmax) &
2947 / alt(its:imax,kts:kmax,jts:jmax)
2948 biog_a01(its:imax,kts:kmax,jts:jmax) =biog_a01(its:imax,kts:kmax,jts:jmax) &
2949 / alt(its:imax,kts:kmax,jts:jmax)
2951 hoa_a02(its:imax,kts:kmax,jts:jmax) =hoa_a02(its:imax,kts:kmax,jts:jmax) &
2952 / alt(its:imax,kts:kmax,jts:jmax)
2953 soa_a02(its:imax,kts:kmax,jts:jmax) =soa_a02(its:imax,kts:kmax,jts:jmax) &
2954 / alt(its:imax,kts:kmax,jts:jmax)
2955 biog_a02(its:imax,kts:kmax,jts:jmax) =biog_a02(its:imax,kts:kmax,jts:jmax) &
2956 / alt(its:imax,kts:kmax,jts:jmax)
2959 hoa_a03(its:imax,kts:kmax,jts:jmax) =hoa_a03(its:imax,kts:kmax,jts:jmax) &
2960 / alt(its:imax,kts:kmax,jts:jmax)
2961 soa_a03(its:imax,kts:kmax,jts:jmax) =soa_a03(its:imax,kts:kmax,jts:jmax) &
2962 / alt(its:imax,kts:kmax,jts:jmax)
2963 biog_a03(its:imax,kts:kmax,jts:jmax) =biog_a03(its:imax,kts:kmax,jts:jmax) &
2964 / alt(its:imax,kts:kmax,jts:jmax)
2966 hoa_a04(its:imax,kts:kmax,jts:jmax) =hoa_a04(its:imax,kts:kmax,jts:jmax) &
2967 / alt(its:imax,kts:kmax,jts:jmax)
2968 soa_a04(its:imax,kts:kmax,jts:jmax) =soa_a04(its:imax,kts:kmax,jts:jmax) &
2969 / alt(its:imax,kts:kmax,jts:jmax)
2970 biog_a04(its:imax,kts:kmax,jts:jmax) =biog_a04(its:imax,kts:kmax,jts:jmax) &
2971 / alt(its:imax,kts:kmax,jts:jmax)
2974 end subroutine sum_vbs4
2980 !----------------------------------------------------------------------
2981 subroutine sum_vbs9 ( &
2983 hoa_a01,hoa_a02,hoa_a03,hoa_a04, &
2984 bboa_a01,bboa_a02,bboa_a03,bboa_a04, &
2985 soa_a01,soa_a02,soa_a03,soa_a04, &
2986 bbsoa_a01,bbsoa_a02,bbsoa_a03,bbsoa_a04, &
2987 hsoa_a01,hsoa_a02,hsoa_a03,hsoa_a04, &
2988 biog_a01,biog_a02,biog_a03,biog_a04, &
2989 arosoa_a01,arosoa_a02,arosoa_a03,arosoa_a04, &
2990 totoa_a01,totoa_a02,totoa_a03,totoa_a04, &
2991 hsoa_c,hsoa_o,bbsoa_c,bbsoa_o, &
2992 biog_v1,biog_v2,biog_v3,biog_v4, &
2993 ant_v1,ant_v2,ant_v3,ant_v4, &
2994 ids,ide, jds,jde, kds,kde, &
2995 ims,ime, jms,jme, kms,kme, &
2996 its,ite, jts,jte, kts,kte )
2998 USE module_state_description, only: num_chem
2999 USE module_data_mosaic_asect
3002 INTEGER, INTENT(IN ) :: &
3003 ids,ide, jds,jde, kds,kde, &
3004 ims,ime, jms,jme, kms,kme, &
3005 its,ite, jts,jte, kts,kte
3007 REAL, DIMENSION( ims:ime, kms:kme, jms:jme ), &
3010 REAL, DIMENSION( ims:ime, kms:kme, jms:jme, num_chem ), &
3012 REAL, DIMENSION( ims:ime, kms:kme, jms:jme ), &
3013 INTENT(OUT) :: hoa_a01,hoa_a02,hoa_a03,hoa_a04, &
3014 bboa_a01,bboa_a02,bboa_a03,bboa_a04, &
3015 soa_a01,soa_a02,soa_a03,soa_a04, &
3016 bbsoa_a01,bbsoa_a02,bbsoa_a03,bbsoa_a04, &
3017 biog_a01,biog_a02,biog_a03,biog_a04, &
3018 hsoa_a01,hsoa_a02,hsoa_a03,hsoa_a04, &
3019 arosoa_a01,arosoa_a02,arosoa_a03,arosoa_a04, &
3020 totoa_a01,totoa_a02,totoa_a03,totoa_a04, &
3021 hsoa_c,hsoa_o,bbsoa_c,bbsoa_o, &
3022 biog_v1,biog_v2,biog_v3,biog_v4, &
3023 ant_v1,ant_v2,ant_v3,ant_v4
3027 INTEGER :: i,imax,j,jmax,k,kmax,n,itype,iphase
3029 imax = min(ite,ide-1)
3030 jmax = min(jte,jde-1)
3033 hoa_a01(its:imax,kts:kmax,jts:jmax) = 0.
3034 soa_a01(its:imax,kts:kmax,jts:jmax) = 0.
3035 bboa_a01(its:imax,kts:kmax,jts:jmax) = 0.
3036 bbsoa_a01(its:imax,kts:kmax,jts:jmax) = 0.
3037 hsoa_a01(its:imax,kts:kmax,jts:jmax) = 0.
3038 biog_a01(its:imax,kts:kmax,jts:jmax) = 0.
3039 arosoa_a01(its:imax,kts:kmax,jts:jmax) = 0.
3040 totoa_a01(its:imax,kts:kmax,jts:jmax) = 0.
3042 hoa_a02(its:imax,kts:kmax,jts:jmax) = 0.
3043 soa_a02(its:imax,kts:kmax,jts:jmax) = 0.
3044 bboa_a02(its:imax,kts:kmax,jts:jmax) = 0.
3045 bbsoa_a02(its:imax,kts:kmax,jts:jmax) = 0.
3046 hsoa_a02(its:imax,kts:kmax,jts:jmax) = 0.
3047 arosoa_a02(its:imax,kts:kmax,jts:jmax) = 0.
3048 biog_a02(its:imax,kts:kmax,jts:jmax) = 0.
3049 totoa_a02(its:imax,kts:kmax,jts:jmax) = 0.
3051 hoa_a03(its:imax,kts:kmax,jts:jmax) = 0.
3052 soa_a03(its:imax,kts:kmax,jts:jmax) = 0.
3053 bboa_a03(its:imax,kts:kmax,jts:jmax) = 0.
3054 bbsoa_a03(its:imax,kts:kmax,jts:jmax) = 0.
3055 hsoa_a03(its:imax,kts:kmax,jts:jmax) = 0.
3056 arosoa_a03(its:imax,kts:kmax,jts:jmax) = 0.
3057 biog_a03(its:imax,kts:kmax,jts:jmax) = 0.
3058 totoa_a03(its:imax,kts:kmax,jts:jmax) = 0.
3060 hoa_a04(its:imax,kts:kmax,jts:jmax) = 0.
3061 soa_a04(its:imax,kts:kmax,jts:jmax) = 0.
3062 bboa_a04(its:imax,kts:kmax,jts:jmax) = 0.
3063 bbsoa_a04(its:imax,kts:kmax,jts:jmax) = 0.
3064 hsoa_a04(its:imax,kts:kmax,jts:jmax) = 0.
3065 arosoa_a04(its:imax,kts:kmax,jts:jmax) = 0.
3066 biog_a04(its:imax,kts:kmax,jts:jmax) = 0.
3067 totoa_a04(its:imax,kts:kmax,jts:jmax) = 0.
3069 ! Species to calculate O:C ratios
3070 hsoa_c(its:imax,kts:kmax,jts:jmax) = 0.
3071 hsoa_o(its:imax,kts:kmax,jts:jmax) = 0.
3072 bbsoa_c(its:imax,kts:kmax,jts:jmax) = 0.
3073 bbsoa_o(its:imax,kts:kmax,jts:jmax) = 0.
3074 biog_v1(its:imax,kts:kmax,jts:jmax) = 0.
3075 biog_v2(its:imax,kts:kmax,jts:jmax) = 0.
3076 biog_v3(its:imax,kts:kmax,jts:jmax) = 0.
3077 biog_v4(its:imax,kts:kmax,jts:jmax) = 0.
3078 ant_v1(its:imax,kts:kmax,jts:jmax) = 0.
3079 ant_v2(its:imax,kts:kmax,jts:jmax) = 0.
3080 ant_v3(its:imax,kts:kmax,jts:jmax) = 0.
3081 ant_v4(its:imax,kts:kmax,jts:jmax) = 0.
3084 do iphase=1,nphase_aer
3085 do itype=1,ntype_aer
3086 do n = 1, nsize_aer(itype) !The 4th bin is 2.5-10um and outside the AMS measurements
3091 hsoa_c(i,k,j)=hsoa_c(i,k,j) &
3092 + (chem(i,k,j,lptr_pcg1_f_c_aer(n,itype,iphase)) &
3093 + chem(i,k,j,lptr_pcg2_f_c_aer(n,itype,iphase)) &
3094 + chem(i,k,j,lptr_pcg3_f_c_aer(n,itype,iphase)) &
3095 + chem(i,k,j,lptr_pcg4_f_c_aer(n,itype,iphase)) &
3096 + chem(i,k,j,lptr_pcg5_f_c_aer(n,itype,iphase)) &
3097 + chem(i,k,j,lptr_pcg6_f_c_aer(n,itype,iphase)) &
3098 + chem(i,k,j,lptr_pcg7_f_c_aer(n,itype,iphase)) &
3099 + chem(i,k,j,lptr_opcg1_f_c_aer(n,itype,iphase)) &
3100 + chem(i,k,j,lptr_opcg2_f_c_aer(n,itype,iphase)) &
3101 + chem(i,k,j,lptr_opcg3_f_c_aer(n,itype,iphase)) &
3102 + chem(i,k,j,lptr_opcg4_f_c_aer(n,itype,iphase)) &
3103 + chem(i,k,j,lptr_opcg5_f_c_aer(n,itype,iphase)) &
3104 + chem(i,k,j,lptr_opcg6_f_c_aer(n,itype,iphase)) &
3105 + chem(i,k,j,lptr_opcg7_f_c_aer(n,itype,iphase)))*180/211
3107 hsoa_o(i,k,j)= hsoa_o(i,k,j) &
3108 + chem(i,k,j,lptr_pcg1_f_o_aer(n,itype,iphase)) &
3109 + chem(i,k,j,lptr_pcg2_f_o_aer(n,itype,iphase)) &
3110 + chem(i,k,j,lptr_pcg3_f_o_aer(n,itype,iphase)) &
3111 + chem(i,k,j,lptr_pcg4_f_o_aer(n,itype,iphase)) &
3112 + chem(i,k,j,lptr_pcg5_f_o_aer(n,itype,iphase)) &
3113 + chem(i,k,j,lptr_pcg6_f_o_aer(n,itype,iphase)) &
3114 + chem(i,k,j,lptr_pcg7_f_o_aer(n,itype,iphase)) &
3115 + chem(i,k,j,lptr_opcg1_f_o_aer(n,itype,iphase)) &
3116 + chem(i,k,j,lptr_opcg2_f_o_aer(n,itype,iphase)) &
3117 + chem(i,k,j,lptr_opcg3_f_o_aer(n,itype,iphase)) &
3118 + chem(i,k,j,lptr_opcg4_f_o_aer(n,itype,iphase)) &
3119 + chem(i,k,j,lptr_opcg5_f_o_aer(n,itype,iphase)) &
3120 + chem(i,k,j,lptr_opcg6_f_o_aer(n,itype,iphase)) &
3121 + chem(i,k,j,lptr_opcg7_f_o_aer(n,itype,iphase))
3123 bbsoa_c(i,k,j)= bbsoa_c(i,k,j) &
3124 + (chem(i,k,j,lptr_pcg1_b_c_aer(n,itype,iphase)) &
3125 + chem(i,k,j,lptr_pcg2_b_c_aer(n,itype,iphase)) &
3126 + chem(i,k,j,lptr_pcg3_b_c_aer(n,itype,iphase)) &
3127 + chem(i,k,j,lptr_pcg4_b_c_aer(n,itype,iphase)) &
3128 + chem(i,k,j,lptr_pcg5_b_c_aer(n,itype,iphase)) &
3129 + chem(i,k,j,lptr_pcg6_b_c_aer(n,itype,iphase)) &
3130 + chem(i,k,j,lptr_pcg7_b_c_aer(n,itype,iphase)) &
3131 + chem(i,k,j,lptr_opcg1_b_c_aer(n,itype,iphase)) &
3132 + chem(i,k,j,lptr_opcg2_b_c_aer(n,itype,iphase)) &
3133 + chem(i,k,j,lptr_opcg3_b_c_aer(n,itype,iphase)) &
3134 + chem(i,k,j,lptr_opcg4_b_c_aer(n,itype,iphase)) &
3135 + chem(i,k,j,lptr_opcg5_b_c_aer(n,itype,iphase)) &
3136 + chem(i,k,j,lptr_opcg6_b_c_aer(n,itype,iphase)) &
3137 + chem(i,k,j,lptr_opcg7_b_c_aer(n,itype,iphase)))*180/211
3139 bbsoa_o(i,k,j)=bbsoa_o(i,k,j) &
3140 + chem(i,k,j,lptr_pcg1_b_o_aer(n,itype,iphase)) &
3141 + chem(i,k,j,lptr_pcg2_b_o_aer(n,itype,iphase)) &
3142 + chem(i,k,j,lptr_pcg3_b_o_aer(n,itype,iphase)) &
3143 + chem(i,k,j,lptr_pcg4_b_o_aer(n,itype,iphase)) &
3144 + chem(i,k,j,lptr_pcg5_b_o_aer(n,itype,iphase)) &
3145 + chem(i,k,j,lptr_pcg6_b_o_aer(n,itype,iphase)) &
3146 + chem(i,k,j,lptr_pcg7_b_o_aer(n,itype,iphase)) &
3147 + chem(i,k,j,lptr_opcg1_b_o_aer(n,itype,iphase)) &
3148 + chem(i,k,j,lptr_opcg2_b_o_aer(n,itype,iphase)) &
3149 + chem(i,k,j,lptr_opcg3_b_o_aer(n,itype,iphase)) &
3150 + chem(i,k,j,lptr_opcg4_b_o_aer(n,itype,iphase)) &
3151 + chem(i,k,j,lptr_opcg5_b_o_aer(n,itype,iphase)) &
3152 + chem(i,k,j,lptr_opcg6_b_o_aer(n,itype,iphase)) &
3153 + chem(i,k,j,lptr_opcg7_b_o_aer(n,itype,iphase))
3155 biog_v1(i,k,j)= biog_v1(i,k,j) &
3156 + chem(i,k,j,lptr_biog1_c_aer(n,itype,iphase)) &
3157 + chem(i,k,j,lptr_biog1_o_aer(n,itype,iphase))
3158 biog_v2(i,k,j)= biog_v2(i,k,j) &
3159 + chem(i,k,j,lptr_biog2_c_aer(n,itype,iphase)) &
3160 + chem(i,k,j,lptr_biog2_o_aer(n,itype,iphase))
3161 biog_v3(i,k,j)= biog_v3(i,k,j) &
3162 + chem(i,k,j,lptr_biog3_c_aer(n,itype,iphase)) &
3163 + chem(i,k,j,lptr_biog3_o_aer(n,itype,iphase))
3164 biog_v4(i,k,j)= biog_v4(i,k,j) &
3165 +chem(i,k,j,lptr_biog4_c_aer(n,itype,iphase)) &
3166 + chem(i,k,j,lptr_biog4_o_aer(n,itype,iphase))
3168 ant_v1(i,k,j)= ant_v1(i,k,j) &
3169 + chem(i,k,j,lptr_ant1_c_aer(n,itype,iphase)) &
3170 + chem(i,k,j,lptr_ant1_o_aer(n,itype,iphase))
3171 ant_v2(i,k,j)= ant_v2(i,k,j) &
3172 + chem(i,k,j,lptr_ant2_c_aer(n,itype,iphase)) &
3173 + chem(i,k,j,lptr_ant2_o_aer(n,itype,iphase))
3174 ant_v3(i,k,j)= ant_v3(i,k,j) &
3175 + chem(i,k,j,lptr_ant3_c_aer(n,itype,iphase)) &
3176 + chem(i,k,j,lptr_ant3_o_aer(n,itype,iphase))
3177 ant_v4(i,k,j)= ant_v4(i,k,j) &
3178 + chem(i,k,j,lptr_ant4_c_aer(n,itype,iphase)) &
3179 + chem(i,k,j,lptr_ant4_o_aer(n,itype,iphase))
3188 ! NOTE - summation also wrong for code below, but not my code so did not fix...
3190 do iphase=1,nphase_aer
3191 do itype=1,ntype_aer
3195 hoa_a01(i,k,j)= chem(i,k,j,lptr_pcg1_f_c_aer(1,itype,iphase)) &
3196 + chem(i,k,j,lptr_pcg2_f_c_aer(1,itype,iphase)) &
3197 + chem(i,k,j,lptr_pcg3_f_c_aer(1,itype,iphase)) &
3198 + chem(i,k,j,lptr_pcg4_f_c_aer(1,itype,iphase)) &
3199 + chem(i,k,j,lptr_pcg5_f_c_aer(1,itype,iphase)) &
3200 + chem(i,k,j,lptr_pcg6_f_c_aer(1,itype,iphase)) &
3201 + chem(i,k,j,lptr_pcg7_f_c_aer(1,itype,iphase)) &
3202 + chem(i,k,j,lptr_pcg1_f_o_aer(1,itype,iphase)) &
3203 + chem(i,k,j,lptr_pcg2_f_o_aer(1,itype,iphase)) &
3204 + chem(i,k,j,lptr_pcg3_f_o_aer(1,itype,iphase)) &
3205 + chem(i,k,j,lptr_pcg4_f_o_aer(1,itype,iphase)) &
3206 + chem(i,k,j,lptr_pcg5_f_o_aer(1,itype,iphase)) &
3207 + chem(i,k,j,lptr_pcg6_f_o_aer(1,itype,iphase)) &
3208 + chem(i,k,j,lptr_pcg7_f_o_aer(1,itype,iphase))
3210 bboa_a01(i,k,j)= chem(i,k,j,lptr_pcg1_b_c_aer(1,itype,iphase)) &
3211 + chem(i,k,j,lptr_pcg2_b_c_aer(1,itype,iphase)) &
3212 + chem(i,k,j,lptr_pcg3_b_c_aer(1,itype,iphase)) &
3213 + chem(i,k,j,lptr_pcg4_b_c_aer(1,itype,iphase)) &
3214 + chem(i,k,j,lptr_pcg5_b_c_aer(1,itype,iphase)) &
3215 + chem(i,k,j,lptr_pcg6_b_c_aer(1,itype,iphase)) &
3216 + chem(i,k,j,lptr_pcg7_b_c_aer(1,itype,iphase)) &
3217 + chem(i,k,j,lptr_pcg1_b_o_aer(1,itype,iphase)) &
3218 + chem(i,k,j,lptr_pcg2_b_o_aer(1,itype,iphase)) &
3219 + chem(i,k,j,lptr_pcg3_b_o_aer(1,itype,iphase)) &
3220 + chem(i,k,j,lptr_pcg4_b_o_aer(1,itype,iphase)) &
3221 + chem(i,k,j,lptr_pcg5_b_o_aer(1,itype,iphase)) &
3222 + chem(i,k,j,lptr_pcg6_b_o_aer(1,itype,iphase)) &
3223 + chem(i,k,j,lptr_pcg7_b_o_aer(1,itype,iphase))
3225 soa_a01(i,k,j)= chem(i,k,j,lptr_opcg1_b_c_aer(1,itype,iphase)) &
3226 + chem(i,k,j,lptr_opcg2_b_c_aer(1,itype,iphase)) &
3227 + chem(i,k,j,lptr_opcg3_b_c_aer(1,itype,iphase)) &
3228 + chem(i,k,j,lptr_opcg4_b_c_aer(1,itype,iphase)) &
3229 + chem(i,k,j,lptr_opcg5_b_c_aer(1,itype,iphase)) &
3230 + chem(i,k,j,lptr_opcg6_b_c_aer(1,itype,iphase)) &
3231 + chem(i,k,j,lptr_opcg7_b_c_aer(1,itype,iphase)) &
3232 + chem(i,k,j,lptr_opcg1_b_o_aer(1,itype,iphase)) &
3233 + chem(i,k,j,lptr_opcg2_b_o_aer(1,itype,iphase)) &
3234 + chem(i,k,j,lptr_opcg3_b_o_aer(1,itype,iphase)) &
3235 + chem(i,k,j,lptr_opcg4_b_o_aer(1,itype,iphase)) &
3236 + chem(i,k,j,lptr_opcg5_b_o_aer(1,itype,iphase)) &
3237 + chem(i,k,j,lptr_opcg6_b_o_aer(1,itype,iphase)) &
3238 + chem(i,k,j,lptr_opcg7_b_o_aer(1,itype,iphase)) &
3239 + chem(i,k,j,lptr_opcg1_f_c_aer(1,itype,iphase)) &
3240 + chem(i,k,j,lptr_opcg2_f_c_aer(1,itype,iphase)) &
3241 + chem(i,k,j,lptr_opcg3_f_c_aer(1,itype,iphase)) &
3242 + chem(i,k,j,lptr_opcg4_f_c_aer(1,itype,iphase)) &
3243 + chem(i,k,j,lptr_opcg5_f_c_aer(1,itype,iphase)) &
3244 + chem(i,k,j,lptr_opcg6_f_c_aer(1,itype,iphase)) &
3245 + chem(i,k,j,lptr_opcg7_f_c_aer(1,itype,iphase)) &
3246 + chem(i,k,j,lptr_opcg1_f_o_aer(1,itype,iphase)) &
3247 + chem(i,k,j,lptr_opcg2_f_o_aer(1,itype,iphase)) &
3248 + chem(i,k,j,lptr_opcg3_f_o_aer(1,itype,iphase)) &
3249 + chem(i,k,j,lptr_opcg4_f_o_aer(1,itype,iphase)) &
3250 + chem(i,k,j,lptr_opcg5_f_o_aer(1,itype,iphase)) &
3251 + chem(i,k,j,lptr_opcg6_f_o_aer(1,itype,iphase)) &
3252 + chem(i,k,j,lptr_opcg7_f_o_aer(1,itype,iphase)) &
3253 + (chem(i,k,j,lptr_ant1_c_aer(1,itype,iphase)) &
3254 + chem(i,k,j,lptr_ant2_c_aer(1,itype,iphase)) &
3255 + chem(i,k,j,lptr_ant3_c_aer(1,itype,iphase)) &
3256 + chem(i,k,j,lptr_ant4_c_aer(1,itype,iphase))) &
3257 + chem(i,k,j,lptr_ant1_o_aer(1,itype,iphase)) &
3258 + chem(i,k,j,lptr_ant2_o_aer(1,itype,iphase)) &
3259 + chem(i,k,j,lptr_ant3_o_aer(1,itype,iphase)) &
3260 + chem(i,k,j,lptr_ant4_o_aer(1,itype,iphase)) &
3261 + (chem(i,k,j,lptr_biog1_c_aer(1,itype,iphase)) &
3262 + chem(i,k,j,lptr_biog2_c_aer(1,itype,iphase)) &
3263 + chem(i,k,j,lptr_biog3_c_aer(1,itype,iphase)) &
3264 + chem(i,k,j,lptr_biog4_c_aer(1,itype,iphase))) &
3265 + chem(i,k,j,lptr_biog1_o_aer(1,itype,iphase)) &
3266 + chem(i,k,j,lptr_biog2_o_aer(1,itype,iphase)) &
3267 + chem(i,k,j,lptr_biog3_o_aer(1,itype,iphase)) &
3268 + chem(i,k,j,lptr_biog4_o_aer(1,itype,iphase))
3270 arosoa_a01(i,k,j)= chem(i,k,j,lptr_ant1_o_aer(1,itype,iphase)) &
3271 + chem(i,k,j,lptr_ant2_o_aer(1,itype,iphase)) &
3272 + chem(i,k,j,lptr_ant3_o_aer(1,itype,iphase)) &
3273 + chem(i,k,j,lptr_ant4_o_aer(1,itype,iphase)) &
3274 + chem(i,k,j,lptr_ant1_c_aer(1,itype,iphase)) &
3275 + chem(i,k,j,lptr_ant2_c_aer(1,itype,iphase)) &
3276 + chem(i,k,j,lptr_ant3_c_aer(1,itype,iphase)) &
3277 + chem(i,k,j,lptr_ant4_c_aer(1,itype,iphase))
3281 bbsoa_a01(i,k,j)= chem(i,k,j,lptr_opcg1_b_c_aer(1,itype,iphase)) &
3282 + chem(i,k,j,lptr_opcg2_b_c_aer(1,itype,iphase)) &
3283 + chem(i,k,j,lptr_opcg3_b_c_aer(1,itype,iphase)) &
3284 + chem(i,k,j,lptr_opcg4_b_c_aer(1,itype,iphase)) &
3285 + chem(i,k,j,lptr_opcg5_b_c_aer(1,itype,iphase)) &
3286 + chem(i,k,j,lptr_opcg6_b_c_aer(1,itype,iphase)) &
3287 + chem(i,k,j,lptr_opcg7_b_c_aer(1,itype,iphase)) &
3288 + chem(i,k,j,lptr_opcg1_b_o_aer(1,itype,iphase)) &
3289 + chem(i,k,j,lptr_opcg2_b_o_aer(1,itype,iphase)) &
3290 + chem(i,k,j,lptr_opcg3_b_o_aer(1,itype,iphase)) &
3291 + chem(i,k,j,lptr_opcg4_b_o_aer(1,itype,iphase)) &
3292 + chem(i,k,j,lptr_opcg5_b_o_aer(1,itype,iphase)) &
3293 + chem(i,k,j,lptr_opcg6_b_o_aer(1,itype,iphase)) &
3294 + chem(i,k,j,lptr_opcg7_b_o_aer(1,itype,iphase))
3296 hsoa_a01(i,k,j)= chem(i,k,j,lptr_opcg1_f_c_aer(1,itype,iphase)) &
3297 + chem(i,k,j,lptr_opcg2_f_c_aer(1,itype,iphase)) &
3298 + chem(i,k,j,lptr_opcg3_f_c_aer(1,itype,iphase)) &
3299 + chem(i,k,j,lptr_opcg4_f_c_aer(1,itype,iphase)) &
3300 + chem(i,k,j,lptr_opcg5_f_c_aer(1,itype,iphase)) &
3301 + chem(i,k,j,lptr_opcg6_f_c_aer(1,itype,iphase)) &
3302 + chem(i,k,j,lptr_opcg7_f_c_aer(1,itype,iphase)) &
3303 + chem(i,k,j,lptr_opcg1_f_o_aer(1,itype,iphase)) &
3304 + chem(i,k,j,lptr_opcg2_f_o_aer(1,itype,iphase)) &
3305 + chem(i,k,j,lptr_opcg3_f_o_aer(1,itype,iphase)) &
3306 + chem(i,k,j,lptr_opcg4_f_o_aer(1,itype,iphase)) &
3307 + chem(i,k,j,lptr_opcg5_f_o_aer(1,itype,iphase)) &
3308 + chem(i,k,j,lptr_opcg6_f_o_aer(1,itype,iphase)) &
3309 + chem(i,k,j,lptr_opcg7_f_o_aer(1,itype,iphase))
3311 biog_a01(i,k,j)= (chem(i,k,j,lptr_biog1_c_aer(1,itype,iphase)) &
3312 + chem(i,k,j,lptr_biog2_c_aer(1,itype,iphase)) &
3313 + chem(i,k,j,lptr_biog3_c_aer(1,itype,iphase)) &
3314 + chem(i,k,j,lptr_biog4_c_aer(1,itype,iphase))) &
3315 + chem(i,k,j,lptr_biog1_o_aer(1,itype,iphase)) &
3316 + chem(i,k,j,lptr_biog2_o_aer(1,itype,iphase)) &
3317 + chem(i,k,j,lptr_biog3_o_aer(1,itype,iphase)) &
3318 + chem(i,k,j,lptr_biog4_o_aer(1,itype,iphase))
3322 totoa_a01(i,k,j)= chem(i,k,j,lptr_pcg1_b_c_aer(1,itype,iphase)) &
3323 + chem(i,k,j,lptr_pcg2_b_c_aer(1,itype,iphase)) &
3324 + chem(i,k,j,lptr_pcg3_b_c_aer(1,itype,iphase)) &
3325 + chem(i,k,j,lptr_pcg4_b_c_aer(1,itype,iphase)) &
3326 + chem(i,k,j,lptr_pcg5_b_c_aer(1,itype,iphase)) &
3327 + chem(i,k,j,lptr_pcg6_b_c_aer(1,itype,iphase)) &
3328 + chem(i,k,j,lptr_pcg7_b_c_aer(1,itype,iphase)) &
3329 + chem(i,k,j,lptr_pcg1_b_o_aer(1,itype,iphase)) &
3330 + chem(i,k,j,lptr_pcg2_b_o_aer(1,itype,iphase)) &
3331 + chem(i,k,j,lptr_pcg3_b_o_aer(1,itype,iphase)) &
3332 + chem(i,k,j,lptr_pcg4_b_o_aer(1,itype,iphase)) &
3333 + chem(i,k,j,lptr_pcg5_b_o_aer(1,itype,iphase)) &
3334 + chem(i,k,j,lptr_pcg6_b_o_aer(1,itype,iphase)) &
3335 + chem(i,k,j,lptr_pcg7_b_o_aer(1,itype,iphase)) &
3336 + chem(i,k,j,lptr_opcg1_b_c_aer(1,itype,iphase)) &
3337 + chem(i,k,j,lptr_opcg2_b_c_aer(1,itype,iphase)) &
3338 + chem(i,k,j,lptr_opcg3_b_c_aer(1,itype,iphase)) &
3339 + chem(i,k,j,lptr_opcg4_b_c_aer(1,itype,iphase)) &
3340 + chem(i,k,j,lptr_opcg5_b_c_aer(1,itype,iphase)) &
3341 + chem(i,k,j,lptr_opcg6_b_c_aer(1,itype,iphase)) &
3342 + chem(i,k,j,lptr_opcg7_b_c_aer(1,itype,iphase)) &
3343 + chem(i,k,j,lptr_opcg1_b_o_aer(1,itype,iphase)) &
3344 + chem(i,k,j,lptr_opcg2_b_o_aer(1,itype,iphase)) &
3345 + chem(i,k,j,lptr_opcg3_b_o_aer(1,itype,iphase)) &
3346 + chem(i,k,j,lptr_opcg4_b_o_aer(1,itype,iphase)) &
3347 + chem(i,k,j,lptr_opcg5_b_o_aer(1,itype,iphase)) &
3348 + chem(i,k,j,lptr_opcg6_b_o_aer(1,itype,iphase)) &
3349 + chem(i,k,j,lptr_opcg7_b_o_aer(1,itype,iphase)) &
3350 + chem(i,k,j,lptr_pcg1_f_c_aer(1,itype,iphase)) &
3351 + chem(i,k,j,lptr_pcg2_f_c_aer(1,itype,iphase)) &
3352 + chem(i,k,j,lptr_pcg3_f_c_aer(1,itype,iphase)) &
3353 + chem(i,k,j,lptr_pcg4_f_c_aer(1,itype,iphase)) &
3354 + chem(i,k,j,lptr_pcg5_f_c_aer(1,itype,iphase)) &
3355 + chem(i,k,j,lptr_pcg6_f_c_aer(1,itype,iphase)) &
3356 + chem(i,k,j,lptr_pcg7_f_c_aer(1,itype,iphase)) &
3357 + chem(i,k,j,lptr_pcg1_f_o_aer(1,itype,iphase)) &
3358 + chem(i,k,j,lptr_pcg2_f_o_aer(1,itype,iphase)) &
3359 + chem(i,k,j,lptr_pcg3_f_o_aer(1,itype,iphase)) &
3360 + chem(i,k,j,lptr_pcg4_f_o_aer(1,itype,iphase)) &
3361 + chem(i,k,j,lptr_pcg5_f_o_aer(1,itype,iphase)) &
3362 + chem(i,k,j,lptr_pcg6_f_o_aer(1,itype,iphase)) &
3363 + chem(i,k,j,lptr_pcg7_f_o_aer(1,itype,iphase)) &
3364 + chem(i,k,j,lptr_opcg1_f_c_aer(1,itype,iphase)) &
3365 + chem(i,k,j,lptr_opcg2_f_c_aer(1,itype,iphase)) &
3366 + chem(i,k,j,lptr_opcg3_f_c_aer(1,itype,iphase)) &
3367 + chem(i,k,j,lptr_opcg4_f_c_aer(1,itype,iphase)) &
3368 + chem(i,k,j,lptr_opcg5_f_c_aer(1,itype,iphase)) &
3369 + chem(i,k,j,lptr_opcg6_f_c_aer(1,itype,iphase)) &
3370 + chem(i,k,j,lptr_opcg7_f_c_aer(1,itype,iphase)) &
3371 + chem(i,k,j,lptr_opcg1_f_o_aer(1,itype,iphase)) &
3372 + chem(i,k,j,lptr_opcg2_f_o_aer(1,itype,iphase)) &
3373 + chem(i,k,j,lptr_opcg3_f_o_aer(1,itype,iphase)) &
3374 + chem(i,k,j,lptr_opcg4_f_o_aer(1,itype,iphase)) &
3375 + chem(i,k,j,lptr_opcg5_f_o_aer(1,itype,iphase)) &
3376 + chem(i,k,j,lptr_opcg6_f_o_aer(1,itype,iphase)) &
3377 + chem(i,k,j,lptr_opcg7_f_o_aer(1,itype,iphase)) &
3378 + (chem(i,k,j,lptr_ant1_c_aer(1,itype,iphase)) &
3379 + chem(i,k,j,lptr_ant2_c_aer(1,itype,iphase)) &
3380 + chem(i,k,j,lptr_ant3_c_aer(1,itype,iphase)) &
3381 + chem(i,k,j,lptr_ant4_c_aer(1,itype,iphase))) &
3382 + chem(i,k,j,lptr_ant1_o_aer(1,itype,iphase)) &
3383 + chem(i,k,j,lptr_ant2_o_aer(1,itype,iphase)) &
3384 + chem(i,k,j,lptr_ant3_o_aer(1,itype,iphase)) &
3385 + chem(i,k,j,lptr_ant4_o_aer(1,itype,iphase)) &
3386 + (chem(i,k,j,lptr_biog1_c_aer(1,itype,iphase)) &
3387 + chem(i,k,j,lptr_biog2_c_aer(1,itype,iphase)) &
3388 + chem(i,k,j,lptr_biog3_c_aer(1,itype,iphase)) &
3389 + chem(i,k,j,lptr_biog4_c_aer(1,itype,iphase))) &
3390 + chem(i,k,j,lptr_biog1_o_aer(1,itype,iphase)) &
3391 + chem(i,k,j,lptr_biog2_o_aer(1,itype,iphase)) &
3392 + chem(i,k,j,lptr_biog3_o_aer(1,itype,iphase)) &
3393 + chem(i,k,j,lptr_biog4_o_aer(1,itype,iphase)) &
3394 + chem(i,k,j,lptr_oc_aer(1,itype,iphase))
3403 do iphase=1,nphase_aer
3404 do itype=1,ntype_aer
3408 hoa_a02(i,k,j)= chem(i,k,j,lptr_pcg1_f_c_aer(2,itype,iphase)) &
3409 + chem(i,k,j,lptr_pcg2_f_c_aer(2,itype,iphase)) &
3410 + chem(i,k,j,lptr_pcg3_f_c_aer(2,itype,iphase)) &
3411 + chem(i,k,j,lptr_pcg4_f_c_aer(2,itype,iphase)) &
3412 + chem(i,k,j,lptr_pcg5_f_c_aer(2,itype,iphase)) &
3413 + chem(i,k,j,lptr_pcg6_f_c_aer(2,itype,iphase)) &
3414 + chem(i,k,j,lptr_pcg7_f_c_aer(2,itype,iphase)) &
3415 + chem(i,k,j,lptr_pcg1_f_o_aer(2,itype,iphase)) &
3416 + chem(i,k,j,lptr_pcg2_f_o_aer(2,itype,iphase)) &
3417 + chem(i,k,j,lptr_pcg3_f_o_aer(2,itype,iphase)) &
3418 + chem(i,k,j,lptr_pcg4_f_o_aer(2,itype,iphase)) &
3419 + chem(i,k,j,lptr_pcg5_f_o_aer(2,itype,iphase)) &
3420 + chem(i,k,j,lptr_pcg6_f_o_aer(2,itype,iphase)) &
3421 + chem(i,k,j,lptr_pcg7_f_o_aer(2,itype,iphase))
3423 bboa_a02(i,k,j)= chem(i,k,j,lptr_pcg1_b_c_aer(2,itype,iphase)) &
3424 + chem(i,k,j,lptr_pcg2_b_c_aer(2,itype,iphase)) &
3425 + chem(i,k,j,lptr_pcg3_b_c_aer(2,itype,iphase)) &
3426 + chem(i,k,j,lptr_pcg4_b_c_aer(2,itype,iphase)) &
3427 + chem(i,k,j,lptr_pcg5_b_c_aer(2,itype,iphase)) &
3428 + chem(i,k,j,lptr_pcg6_b_c_aer(2,itype,iphase)) &
3429 + chem(i,k,j,lptr_pcg7_b_c_aer(2,itype,iphase)) &
3430 + chem(i,k,j,lptr_pcg1_b_o_aer(2,itype,iphase)) &
3431 + chem(i,k,j,lptr_pcg2_b_o_aer(2,itype,iphase)) &
3432 + chem(i,k,j,lptr_pcg3_b_o_aer(2,itype,iphase)) &
3433 + chem(i,k,j,lptr_pcg4_b_o_aer(2,itype,iphase)) &
3434 + chem(i,k,j,lptr_pcg5_b_o_aer(2,itype,iphase)) &
3435 + chem(i,k,j,lptr_pcg6_b_o_aer(2,itype,iphase)) &
3436 + chem(i,k,j,lptr_pcg7_b_o_aer(2,itype,iphase))
3438 soa_a02(i,k,j)= chem(i,k,j,lptr_opcg1_b_c_aer(2,itype,iphase)) &
3439 + chem(i,k,j,lptr_opcg2_b_c_aer(2,itype,iphase)) &
3440 + chem(i,k,j,lptr_opcg3_b_c_aer(2,itype,iphase)) &
3441 + chem(i,k,j,lptr_opcg4_b_c_aer(2,itype,iphase)) &
3442 + chem(i,k,j,lptr_opcg5_b_c_aer(2,itype,iphase)) &
3443 + chem(i,k,j,lptr_opcg6_b_c_aer(2,itype,iphase)) &
3444 + chem(i,k,j,lptr_opcg7_b_c_aer(2,itype,iphase)) &
3445 + chem(i,k,j,lptr_opcg1_b_o_aer(2,itype,iphase)) &
3446 + chem(i,k,j,lptr_opcg2_b_o_aer(2,itype,iphase)) &
3447 + chem(i,k,j,lptr_opcg3_b_o_aer(2,itype,iphase)) &
3448 + chem(i,k,j,lptr_opcg4_b_o_aer(2,itype,iphase)) &
3449 + chem(i,k,j,lptr_opcg5_b_o_aer(2,itype,iphase)) &
3450 + chem(i,k,j,lptr_opcg6_b_o_aer(2,itype,iphase)) &
3451 + chem(i,k,j,lptr_opcg7_b_o_aer(2,itype,iphase)) &
3452 + chem(i,k,j,lptr_opcg1_f_c_aer(2,itype,iphase)) &
3453 + chem(i,k,j,lptr_opcg2_f_c_aer(2,itype,iphase)) &
3454 + chem(i,k,j,lptr_opcg3_f_c_aer(2,itype,iphase)) &
3455 + chem(i,k,j,lptr_opcg4_f_c_aer(2,itype,iphase)) &
3456 + chem(i,k,j,lptr_opcg5_f_c_aer(2,itype,iphase)) &
3457 + chem(i,k,j,lptr_opcg6_f_c_aer(2,itype,iphase)) &
3458 + chem(i,k,j,lptr_opcg7_f_c_aer(2,itype,iphase)) &
3459 + chem(i,k,j,lptr_opcg1_f_o_aer(2,itype,iphase)) &
3460 + chem(i,k,j,lptr_opcg2_f_o_aer(2,itype,iphase)) &
3461 + chem(i,k,j,lptr_opcg3_f_o_aer(2,itype,iphase)) &
3462 + chem(i,k,j,lptr_opcg4_f_o_aer(2,itype,iphase)) &
3463 + chem(i,k,j,lptr_opcg5_f_o_aer(2,itype,iphase)) &
3464 + chem(i,k,j,lptr_opcg6_f_o_aer(2,itype,iphase)) &
3465 + chem(i,k,j,lptr_opcg7_f_o_aer(2,itype,iphase)) &
3466 + (chem(i,k,j,lptr_ant1_c_aer(2,itype,iphase)) &
3467 + chem(i,k,j,lptr_ant2_c_aer(2,itype,iphase)) &
3468 + chem(i,k,j,lptr_ant3_c_aer(2,itype,iphase)) &
3469 + chem(i,k,j,lptr_ant4_c_aer(2,itype,iphase))) &
3470 + chem(i,k,j,lptr_ant1_o_aer(2,itype,iphase)) &
3471 + chem(i,k,j,lptr_ant2_o_aer(2,itype,iphase)) &
3472 + chem(i,k,j,lptr_ant3_o_aer(2,itype,iphase)) &
3473 + chem(i,k,j,lptr_ant4_o_aer(2,itype,iphase)) &
3474 + (chem(i,k,j,lptr_biog1_c_aer(2,itype,iphase)) &
3475 + chem(i,k,j,lptr_biog2_c_aer(2,itype,iphase)) &
3476 + chem(i,k,j,lptr_biog3_c_aer(2,itype,iphase)) &
3477 + chem(i,k,j,lptr_biog4_c_aer(2,itype,iphase))) &
3478 + chem(i,k,j,lptr_biog1_o_aer(2,itype,iphase)) &
3479 + chem(i,k,j,lptr_biog2_o_aer(2,itype,iphase)) &
3480 + chem(i,k,j,lptr_biog3_o_aer(2,itype,iphase)) &
3481 + chem(i,k,j,lptr_biog4_o_aer(2,itype,iphase))
3483 arosoa_a02(i,k,j)= chem(i,k,j,lptr_ant1_o_aer(2,itype,iphase)) &
3484 + chem(i,k,j,lptr_ant2_o_aer(2,itype,iphase)) &
3485 + chem(i,k,j,lptr_ant3_o_aer(2,itype,iphase)) &
3486 + chem(i,k,j,lptr_ant4_o_aer(2,itype,iphase)) &
3487 + chem(i,k,j,lptr_ant1_c_aer(2,itype,iphase)) &
3488 + chem(i,k,j,lptr_ant2_c_aer(2,itype,iphase)) &
3489 + chem(i,k,j,lptr_ant3_c_aer(2,itype,iphase)) &
3490 + chem(i,k,j,lptr_ant4_c_aer(2,itype,iphase))
3493 bbsoa_a02(i,k,j)= chem(i,k,j,lptr_opcg1_b_c_aer(2,itype,iphase)) &
3494 + chem(i,k,j,lptr_opcg2_b_c_aer(2,itype,iphase)) &
3495 + chem(i,k,j,lptr_opcg3_b_c_aer(2,itype,iphase)) &
3496 + chem(i,k,j,lptr_opcg4_b_c_aer(2,itype,iphase)) &
3497 + chem(i,k,j,lptr_opcg5_b_c_aer(2,itype,iphase)) &
3498 + chem(i,k,j,lptr_opcg6_b_c_aer(2,itype,iphase)) &
3499 + chem(i,k,j,lptr_opcg7_b_c_aer(2,itype,iphase)) &
3500 + chem(i,k,j,lptr_opcg1_b_o_aer(2,itype,iphase)) &
3501 + chem(i,k,j,lptr_opcg2_b_o_aer(2,itype,iphase)) &
3502 + chem(i,k,j,lptr_opcg3_b_o_aer(2,itype,iphase)) &
3503 + chem(i,k,j,lptr_opcg4_b_o_aer(2,itype,iphase)) &
3504 + chem(i,k,j,lptr_opcg5_b_o_aer(2,itype,iphase)) &
3505 + chem(i,k,j,lptr_opcg6_b_o_aer(2,itype,iphase)) &
3506 + chem(i,k,j,lptr_opcg7_b_o_aer(2,itype,iphase))
3508 hsoa_a02(i,k,j)= chem(i,k,j,lptr_opcg1_f_c_aer(2,itype,iphase)) &
3509 + chem(i,k,j,lptr_opcg2_f_c_aer(2,itype,iphase)) &
3510 + chem(i,k,j,lptr_opcg3_f_c_aer(2,itype,iphase)) &
3511 + chem(i,k,j,lptr_opcg4_f_c_aer(2,itype,iphase)) &
3512 + chem(i,k,j,lptr_opcg5_f_c_aer(2,itype,iphase)) &
3513 + chem(i,k,j,lptr_opcg6_f_c_aer(2,itype,iphase)) &
3514 + chem(i,k,j,lptr_opcg7_f_c_aer(2,itype,iphase)) &
3515 + chem(i,k,j,lptr_opcg1_f_o_aer(2,itype,iphase)) &
3516 + chem(i,k,j,lptr_opcg2_f_o_aer(2,itype,iphase)) &
3517 + chem(i,k,j,lptr_opcg3_f_o_aer(2,itype,iphase)) &
3518 + chem(i,k,j,lptr_opcg4_f_o_aer(2,itype,iphase)) &
3519 + chem(i,k,j,lptr_opcg5_f_o_aer(2,itype,iphase)) &
3520 + chem(i,k,j,lptr_opcg6_f_o_aer(2,itype,iphase)) &
3521 + chem(i,k,j,lptr_opcg7_f_o_aer(2,itype,iphase))
3524 biog_a02(i,k,j)= chem(i,k,j,lptr_biog1_c_aer(2,itype,iphase)) &
3525 + chem(i,k,j,lptr_biog2_c_aer(2,itype,iphase)) &
3526 + chem(i,k,j,lptr_biog3_c_aer(2,itype,iphase)) &
3527 + chem(i,k,j,lptr_biog4_c_aer(2,itype,iphase)) &
3528 + chem(i,k,j,lptr_biog1_o_aer(2,itype,iphase)) &
3529 + chem(i,k,j,lptr_biog2_o_aer(2,itype,iphase)) &
3530 + chem(i,k,j,lptr_biog3_o_aer(2,itype,iphase)) &
3531 + chem(i,k,j,lptr_biog4_o_aer(2,itype,iphase))
3534 totoa_a02(i,k,j)= chem(i,k,j,lptr_pcg1_b_c_aer(2,itype,iphase)) &
3535 + chem(i,k,j,lptr_pcg2_b_c_aer(2,itype,iphase)) &
3536 + chem(i,k,j,lptr_pcg3_b_c_aer(2,itype,iphase)) &
3537 + chem(i,k,j,lptr_pcg4_b_c_aer(2,itype,iphase)) &
3538 + chem(i,k,j,lptr_pcg5_b_c_aer(2,itype,iphase)) &
3539 + chem(i,k,j,lptr_pcg6_b_c_aer(2,itype,iphase)) &
3540 + chem(i,k,j,lptr_pcg7_b_c_aer(2,itype,iphase)) &
3541 + chem(i,k,j,lptr_pcg1_b_o_aer(2,itype,iphase)) &
3542 + chem(i,k,j,lptr_pcg2_b_o_aer(2,itype,iphase)) &
3543 + chem(i,k,j,lptr_pcg3_b_o_aer(2,itype,iphase)) &
3544 + chem(i,k,j,lptr_pcg4_b_o_aer(2,itype,iphase)) &
3545 + chem(i,k,j,lptr_pcg5_b_o_aer(2,itype,iphase)) &
3546 + chem(i,k,j,lptr_pcg6_b_o_aer(2,itype,iphase)) &
3547 + chem(i,k,j,lptr_pcg7_b_o_aer(2,itype,iphase)) &
3548 + chem(i,k,j,lptr_opcg1_b_c_aer(2,itype,iphase)) &
3549 + chem(i,k,j,lptr_opcg2_b_c_aer(2,itype,iphase)) &
3550 + chem(i,k,j,lptr_opcg3_b_c_aer(2,itype,iphase)) &
3551 + chem(i,k,j,lptr_opcg4_b_c_aer(2,itype,iphase)) &
3552 + chem(i,k,j,lptr_opcg5_b_c_aer(2,itype,iphase)) &
3553 + chem(i,k,j,lptr_opcg6_b_c_aer(2,itype,iphase)) &
3554 + chem(i,k,j,lptr_opcg7_b_c_aer(2,itype,iphase)) &
3555 + chem(i,k,j,lptr_opcg1_b_o_aer(2,itype,iphase)) &
3556 + chem(i,k,j,lptr_opcg2_b_o_aer(2,itype,iphase)) &
3557 + chem(i,k,j,lptr_opcg3_b_o_aer(2,itype,iphase)) &
3558 + chem(i,k,j,lptr_opcg4_b_o_aer(2,itype,iphase)) &
3559 + chem(i,k,j,lptr_opcg5_b_o_aer(2,itype,iphase)) &
3560 + chem(i,k,j,lptr_opcg6_b_o_aer(2,itype,iphase)) &
3561 + chem(i,k,j,lptr_opcg7_b_o_aer(2,itype,iphase)) &
3562 + chem(i,k,j,lptr_pcg1_f_c_aer(2,itype,iphase)) &
3563 + chem(i,k,j,lptr_pcg2_f_c_aer(2,itype,iphase)) &
3564 + chem(i,k,j,lptr_pcg3_f_c_aer(2,itype,iphase)) &
3565 + chem(i,k,j,lptr_pcg4_f_c_aer(2,itype,iphase)) &
3566 + chem(i,k,j,lptr_pcg5_f_c_aer(2,itype,iphase)) &
3567 + chem(i,k,j,lptr_pcg6_f_c_aer(2,itype,iphase)) &
3568 + chem(i,k,j,lptr_pcg7_f_c_aer(2,itype,iphase)) &
3569 + chem(i,k,j,lptr_pcg1_f_o_aer(2,itype,iphase)) &
3570 + chem(i,k,j,lptr_pcg2_f_o_aer(2,itype,iphase)) &
3571 + chem(i,k,j,lptr_pcg3_f_o_aer(2,itype,iphase)) &
3572 + chem(i,k,j,lptr_pcg4_f_o_aer(2,itype,iphase)) &
3573 + chem(i,k,j,lptr_pcg5_f_o_aer(2,itype,iphase)) &
3574 + chem(i,k,j,lptr_pcg6_f_o_aer(2,itype,iphase)) &
3575 + chem(i,k,j,lptr_pcg7_f_o_aer(2,itype,iphase)) &
3576 + chem(i,k,j,lptr_opcg1_f_c_aer(2,itype,iphase)) &
3577 + chem(i,k,j,lptr_opcg2_f_c_aer(2,itype,iphase)) &
3578 + chem(i,k,j,lptr_opcg3_f_c_aer(2,itype,iphase)) &
3579 + chem(i,k,j,lptr_opcg4_f_c_aer(2,itype,iphase)) &
3580 + chem(i,k,j,lptr_opcg5_f_c_aer(2,itype,iphase)) &
3581 + chem(i,k,j,lptr_opcg6_f_c_aer(2,itype,iphase)) &
3582 + chem(i,k,j,lptr_opcg7_f_c_aer(2,itype,iphase)) &
3583 + chem(i,k,j,lptr_opcg1_f_o_aer(2,itype,iphase)) &
3584 + chem(i,k,j,lptr_opcg2_f_o_aer(2,itype,iphase)) &
3585 + chem(i,k,j,lptr_opcg3_f_o_aer(2,itype,iphase)) &
3586 + chem(i,k,j,lptr_opcg4_f_o_aer(2,itype,iphase)) &
3587 + chem(i,k,j,lptr_opcg5_f_o_aer(2,itype,iphase)) &
3588 + chem(i,k,j,lptr_opcg6_f_o_aer(2,itype,iphase)) &
3589 + chem(i,k,j,lptr_opcg7_f_o_aer(2,itype,iphase)) &
3590 + chem(i,k,j,lptr_ant1_c_aer(2,itype,iphase)) &
3591 + chem(i,k,j,lptr_ant2_c_aer(2,itype,iphase)) &
3592 + chem(i,k,j,lptr_ant3_c_aer(2,itype,iphase)) &
3593 + chem(i,k,j,lptr_ant4_c_aer(2,itype,iphase)) &
3594 + chem(i,k,j,lptr_ant1_o_aer(2,itype,iphase)) &
3595 + chem(i,k,j,lptr_ant2_o_aer(2,itype,iphase)) &
3596 + chem(i,k,j,lptr_ant3_o_aer(2,itype,iphase)) &
3597 + chem(i,k,j,lptr_ant4_o_aer(2,itype,iphase)) &
3598 + chem(i,k,j,lptr_biog1_c_aer(2,itype,iphase)) &
3599 + chem(i,k,j,lptr_biog2_c_aer(2,itype,iphase)) &
3600 + chem(i,k,j,lptr_biog3_c_aer(2,itype,iphase)) &
3601 + chem(i,k,j,lptr_biog4_c_aer(2,itype,iphase)) &
3602 + chem(i,k,j,lptr_biog1_o_aer(2,itype,iphase)) &
3603 + chem(i,k,j,lptr_biog2_o_aer(2,itype,iphase)) &
3604 + chem(i,k,j,lptr_biog3_o_aer(2,itype,iphase)) &
3605 + chem(i,k,j,lptr_biog4_o_aer(2,itype,iphase)) &
3606 + chem(i,k,j,lptr_oc_aer(2,itype,iphase))
3614 do iphase=1,nphase_aer
3615 do itype=1,ntype_aer
3619 hoa_a03(i,k,j)= chem(i,k,j,lptr_pcg1_f_c_aer(3,itype,iphase)) &
3620 + chem(i,k,j,lptr_pcg2_f_c_aer(3,itype,iphase)) &
3621 + chem(i,k,j,lptr_pcg3_f_c_aer(3,itype,iphase)) &
3622 + chem(i,k,j,lptr_pcg4_f_c_aer(3,itype,iphase)) &
3623 + chem(i,k,j,lptr_pcg5_f_c_aer(3,itype,iphase)) &
3624 + chem(i,k,j,lptr_pcg6_f_c_aer(3,itype,iphase)) &
3625 + chem(i,k,j,lptr_pcg7_f_c_aer(3,itype,iphase)) &
3626 + chem(i,k,j,lptr_pcg1_f_o_aer(3,itype,iphase)) &
3627 + chem(i,k,j,lptr_pcg2_f_o_aer(3,itype,iphase)) &
3628 + chem(i,k,j,lptr_pcg3_f_o_aer(3,itype,iphase)) &
3629 + chem(i,k,j,lptr_pcg4_f_o_aer(3,itype,iphase)) &
3630 + chem(i,k,j,lptr_pcg5_f_o_aer(3,itype,iphase)) &
3631 + chem(i,k,j,lptr_pcg6_f_o_aer(3,itype,iphase)) &
3632 + chem(i,k,j,lptr_pcg7_f_o_aer(3,itype,iphase))
3634 bboa_a03(i,k,j)= chem(i,k,j,lptr_pcg1_b_c_aer(3,itype,iphase)) &
3635 + chem(i,k,j,lptr_pcg2_b_c_aer(3,itype,iphase)) &
3636 + chem(i,k,j,lptr_pcg3_b_c_aer(3,itype,iphase)) &
3637 + chem(i,k,j,lptr_pcg4_b_c_aer(3,itype,iphase)) &
3638 + chem(i,k,j,lptr_pcg5_b_c_aer(3,itype,iphase)) &
3639 + chem(i,k,j,lptr_pcg6_b_c_aer(3,itype,iphase)) &
3640 + chem(i,k,j,lptr_pcg7_b_c_aer(3,itype,iphase)) &
3641 + chem(i,k,j,lptr_pcg1_b_o_aer(3,itype,iphase)) &
3642 + chem(i,k,j,lptr_pcg2_b_o_aer(3,itype,iphase)) &
3643 + chem(i,k,j,lptr_pcg3_b_o_aer(3,itype,iphase)) &
3644 + chem(i,k,j,lptr_pcg4_b_o_aer(3,itype,iphase)) &
3645 + chem(i,k,j,lptr_pcg5_b_o_aer(3,itype,iphase)) &
3646 + chem(i,k,j,lptr_pcg6_b_o_aer(3,itype,iphase)) &
3647 + chem(i,k,j,lptr_pcg7_b_o_aer(3,itype,iphase))
3649 soa_a03(i,k,j)= chem(i,k,j,lptr_opcg1_b_c_aer(3,itype,iphase)) &
3650 + chem(i,k,j,lptr_opcg2_b_c_aer(3,itype,iphase)) &
3651 + chem(i,k,j,lptr_opcg3_b_c_aer(3,itype,iphase)) &
3652 + chem(i,k,j,lptr_opcg4_b_c_aer(3,itype,iphase)) &
3653 + chem(i,k,j,lptr_opcg5_b_c_aer(3,itype,iphase)) &
3654 + chem(i,k,j,lptr_opcg6_b_c_aer(3,itype,iphase)) &
3655 + chem(i,k,j,lptr_opcg7_b_c_aer(3,itype,iphase)) &
3656 + chem(i,k,j,lptr_opcg1_b_o_aer(3,itype,iphase)) &
3657 + chem(i,k,j,lptr_opcg2_b_o_aer(3,itype,iphase)) &
3658 + chem(i,k,j,lptr_opcg3_b_o_aer(3,itype,iphase)) &
3659 + chem(i,k,j,lptr_opcg4_b_o_aer(3,itype,iphase)) &
3660 + chem(i,k,j,lptr_opcg5_b_o_aer(3,itype,iphase)) &
3661 + chem(i,k,j,lptr_opcg6_b_o_aer(3,itype,iphase)) &
3662 + chem(i,k,j,lptr_opcg7_b_o_aer(3,itype,iphase)) &
3663 + chem(i,k,j,lptr_opcg1_f_c_aer(3,itype,iphase)) &
3664 + chem(i,k,j,lptr_opcg2_f_c_aer(3,itype,iphase)) &
3665 + chem(i,k,j,lptr_opcg3_f_c_aer(3,itype,iphase)) &
3666 + chem(i,k,j,lptr_opcg4_f_c_aer(3,itype,iphase)) &
3667 + chem(i,k,j,lptr_opcg5_f_c_aer(3,itype,iphase)) &
3668 + chem(i,k,j,lptr_opcg6_f_c_aer(3,itype,iphase)) &
3669 + chem(i,k,j,lptr_opcg7_f_c_aer(3,itype,iphase)) &
3670 + chem(i,k,j,lptr_opcg1_f_o_aer(3,itype,iphase)) &
3671 + chem(i,k,j,lptr_opcg2_f_o_aer(3,itype,iphase)) &
3672 + chem(i,k,j,lptr_opcg3_f_o_aer(3,itype,iphase)) &
3673 + chem(i,k,j,lptr_opcg4_f_o_aer(3,itype,iphase)) &
3674 + chem(i,k,j,lptr_opcg5_f_o_aer(3,itype,iphase)) &
3675 + chem(i,k,j,lptr_opcg6_f_o_aer(3,itype,iphase)) &
3676 + chem(i,k,j,lptr_opcg7_f_o_aer(3,itype,iphase)) &
3677 + chem(i,k,j,lptr_ant1_c_aer(3,itype,iphase)) &
3678 + chem(i,k,j,lptr_ant2_c_aer(3,itype,iphase)) &
3679 + chem(i,k,j,lptr_ant3_c_aer(3,itype,iphase)) &
3680 + chem(i,k,j,lptr_ant4_c_aer(3,itype,iphase)) &
3681 + chem(i,k,j,lptr_ant1_o_aer(3,itype,iphase)) &
3682 + chem(i,k,j,lptr_ant2_o_aer(3,itype,iphase)) &
3683 + chem(i,k,j,lptr_ant3_o_aer(3,itype,iphase)) &
3684 + chem(i,k,j,lptr_ant4_o_aer(3,itype,iphase)) &
3685 + chem(i,k,j,lptr_biog1_c_aer(3,itype,iphase)) &
3686 + chem(i,k,j,lptr_biog2_c_aer(3,itype,iphase)) &
3687 + chem(i,k,j,lptr_biog3_c_aer(3,itype,iphase)) &
3688 + chem(i,k,j,lptr_biog4_c_aer(3,itype,iphase)) &
3689 + chem(i,k,j,lptr_biog1_o_aer(3,itype,iphase)) &
3690 + chem(i,k,j,lptr_biog2_o_aer(3,itype,iphase)) &
3691 + chem(i,k,j,lptr_biog3_o_aer(3,itype,iphase)) &
3692 + chem(i,k,j,lptr_biog4_o_aer(3,itype,iphase))
3694 arosoa_a03(i,k,j)= chem(i,k,j,lptr_ant1_o_aer(3,itype,iphase)) &
3695 + chem(i,k,j,lptr_ant2_o_aer(3,itype,iphase)) &
3696 + chem(i,k,j,lptr_ant3_o_aer(3,itype,iphase)) &
3697 + chem(i,k,j,lptr_ant4_o_aer(3,itype,iphase)) &
3698 + chem(i,k,j,lptr_ant1_c_aer(3,itype,iphase)) &
3699 + chem(i,k,j,lptr_ant2_c_aer(3,itype,iphase)) &
3700 + chem(i,k,j,lptr_ant3_c_aer(3,itype,iphase)) &
3701 + chem(i,k,j,lptr_ant4_c_aer(3,itype,iphase))
3704 bbsoa_a03(i,k,j)= chem(i,k,j,lptr_opcg1_b_c_aer(3,itype,iphase)) &
3705 + chem(i,k,j,lptr_opcg2_b_c_aer(3,itype,iphase)) &
3706 + chem(i,k,j,lptr_opcg3_b_c_aer(3,itype,iphase)) &
3707 + chem(i,k,j,lptr_opcg4_b_c_aer(3,itype,iphase)) &
3708 + chem(i,k,j,lptr_opcg5_b_c_aer(3,itype,iphase)) &
3709 + chem(i,k,j,lptr_opcg6_b_c_aer(3,itype,iphase)) &
3710 + chem(i,k,j,lptr_opcg7_b_c_aer(3,itype,iphase)) &
3711 + chem(i,k,j,lptr_opcg1_b_o_aer(3,itype,iphase)) &
3712 + chem(i,k,j,lptr_opcg2_b_o_aer(3,itype,iphase)) &
3713 + chem(i,k,j,lptr_opcg3_b_o_aer(3,itype,iphase)) &
3714 + chem(i,k,j,lptr_opcg4_b_o_aer(3,itype,iphase)) &
3715 + chem(i,k,j,lptr_opcg5_b_o_aer(3,itype,iphase)) &
3716 + chem(i,k,j,lptr_opcg6_b_o_aer(3,itype,iphase)) &
3717 + chem(i,k,j,lptr_opcg7_b_o_aer(3,itype,iphase))
3719 hsoa_a03(i,k,j)= chem(i,k,j,lptr_opcg1_f_c_aer(3,itype,iphase)) &
3720 + chem(i,k,j,lptr_opcg2_f_c_aer(3,itype,iphase)) &
3721 + chem(i,k,j,lptr_opcg3_f_c_aer(3,itype,iphase)) &
3722 + chem(i,k,j,lptr_opcg4_f_c_aer(3,itype,iphase)) &
3723 + chem(i,k,j,lptr_opcg5_f_c_aer(3,itype,iphase)) &
3724 + chem(i,k,j,lptr_opcg6_f_c_aer(3,itype,iphase)) &
3725 + chem(i,k,j,lptr_opcg7_f_c_aer(3,itype,iphase)) &
3726 + chem(i,k,j,lptr_opcg1_f_o_aer(3,itype,iphase)) &
3727 + chem(i,k,j,lptr_opcg2_f_o_aer(3,itype,iphase)) &
3728 + chem(i,k,j,lptr_opcg3_f_o_aer(3,itype,iphase)) &
3729 + chem(i,k,j,lptr_opcg4_f_o_aer(3,itype,iphase)) &
3730 + chem(i,k,j,lptr_opcg5_f_o_aer(3,itype,iphase)) &
3731 + chem(i,k,j,lptr_opcg6_f_o_aer(3,itype,iphase)) &
3732 + chem(i,k,j,lptr_opcg7_f_o_aer(3,itype,iphase))
3734 biog_a03(i,k,j)= (chem(i,k,j,lptr_biog1_c_aer(3,itype,iphase)) &
3735 + chem(i,k,j,lptr_biog2_c_aer(3,itype,iphase)) &
3736 + chem(i,k,j,lptr_biog3_c_aer(3,itype,iphase)) &
3737 + chem(i,k,j,lptr_biog4_c_aer(3,itype,iphase))) &
3738 + chem(i,k,j,lptr_biog1_o_aer(3,itype,iphase)) &
3739 + chem(i,k,j,lptr_biog2_o_aer(3,itype,iphase)) &
3740 + chem(i,k,j,lptr_biog3_o_aer(3,itype,iphase)) &
3741 + chem(i,k,j,lptr_biog4_o_aer(3,itype,iphase))
3744 totoa_a03(i,k,j)= chem(i,k,j,lptr_pcg1_b_c_aer(3,itype,iphase)) &
3745 + chem(i,k,j,lptr_pcg2_b_c_aer(3,itype,iphase)) &
3746 + chem(i,k,j,lptr_pcg3_b_c_aer(3,itype,iphase)) &
3747 + chem(i,k,j,lptr_pcg4_b_c_aer(3,itype,iphase)) &
3748 + chem(i,k,j,lptr_pcg5_b_c_aer(3,itype,iphase)) &
3749 + chem(i,k,j,lptr_pcg6_b_c_aer(3,itype,iphase)) &
3750 + chem(i,k,j,lptr_pcg7_b_c_aer(3,itype,iphase)) &
3751 + chem(i,k,j,lptr_pcg1_b_o_aer(3,itype,iphase)) &
3752 + chem(i,k,j,lptr_pcg2_b_o_aer(3,itype,iphase)) &
3753 + chem(i,k,j,lptr_pcg3_b_o_aer(3,itype,iphase)) &
3754 + chem(i,k,j,lptr_pcg4_b_o_aer(3,itype,iphase)) &
3755 + chem(i,k,j,lptr_pcg5_b_o_aer(3,itype,iphase)) &
3756 + chem(i,k,j,lptr_pcg6_b_o_aer(3,itype,iphase)) &
3757 + chem(i,k,j,lptr_pcg7_b_o_aer(3,itype,iphase)) &
3758 + chem(i,k,j,lptr_opcg1_b_c_aer(3,itype,iphase)) &
3759 + chem(i,k,j,lptr_opcg2_b_c_aer(3,itype,iphase)) &
3760 + chem(i,k,j,lptr_opcg3_b_c_aer(3,itype,iphase)) &
3761 + chem(i,k,j,lptr_opcg4_b_c_aer(3,itype,iphase)) &
3762 + chem(i,k,j,lptr_opcg5_b_c_aer(3,itype,iphase)) &
3763 + chem(i,k,j,lptr_opcg6_b_c_aer(3,itype,iphase)) &
3764 + chem(i,k,j,lptr_opcg7_b_c_aer(3,itype,iphase)) &
3765 + chem(i,k,j,lptr_opcg1_b_o_aer(3,itype,iphase)) &
3766 + chem(i,k,j,lptr_opcg2_b_o_aer(3,itype,iphase)) &
3767 + chem(i,k,j,lptr_opcg3_b_o_aer(3,itype,iphase)) &
3768 + chem(i,k,j,lptr_opcg4_b_o_aer(3,itype,iphase)) &
3769 + chem(i,k,j,lptr_opcg5_b_o_aer(3,itype,iphase)) &
3770 + chem(i,k,j,lptr_opcg6_b_o_aer(3,itype,iphase)) &
3771 + chem(i,k,j,lptr_opcg7_b_o_aer(3,itype,iphase)) &
3772 + chem(i,k,j,lptr_pcg1_f_c_aer(3,itype,iphase)) &
3773 + chem(i,k,j,lptr_pcg2_f_c_aer(3,itype,iphase)) &
3774 + chem(i,k,j,lptr_pcg3_f_c_aer(3,itype,iphase)) &
3775 + chem(i,k,j,lptr_pcg4_f_c_aer(3,itype,iphase)) &
3776 + chem(i,k,j,lptr_pcg5_f_c_aer(3,itype,iphase)) &
3777 + chem(i,k,j,lptr_pcg6_f_c_aer(3,itype,iphase)) &
3778 + chem(i,k,j,lptr_pcg7_f_c_aer(3,itype,iphase)) &
3779 + chem(i,k,j,lptr_pcg1_f_o_aer(3,itype,iphase)) &
3780 + chem(i,k,j,lptr_pcg2_f_o_aer(3,itype,iphase)) &
3781 + chem(i,k,j,lptr_pcg3_f_o_aer(3,itype,iphase)) &
3782 + chem(i,k,j,lptr_pcg4_f_o_aer(3,itype,iphase)) &
3783 + chem(i,k,j,lptr_pcg5_f_o_aer(3,itype,iphase)) &
3784 + chem(i,k,j,lptr_pcg6_f_o_aer(3,itype,iphase)) &
3785 + chem(i,k,j,lptr_pcg7_f_o_aer(3,itype,iphase)) &
3786 + chem(i,k,j,lptr_opcg1_f_c_aer(3,itype,iphase)) &
3787 + chem(i,k,j,lptr_opcg2_f_c_aer(3,itype,iphase)) &
3788 + chem(i,k,j,lptr_opcg3_f_c_aer(3,itype,iphase)) &
3789 + chem(i,k,j,lptr_opcg4_f_c_aer(3,itype,iphase)) &
3790 + chem(i,k,j,lptr_opcg5_f_c_aer(3,itype,iphase)) &
3791 + chem(i,k,j,lptr_opcg6_f_c_aer(3,itype,iphase)) &
3792 + chem(i,k,j,lptr_opcg7_f_c_aer(3,itype,iphase)) &
3793 + chem(i,k,j,lptr_opcg1_f_o_aer(3,itype,iphase)) &
3794 + chem(i,k,j,lptr_opcg2_f_o_aer(3,itype,iphase)) &
3795 + chem(i,k,j,lptr_opcg3_f_o_aer(3,itype,iphase)) &
3796 + chem(i,k,j,lptr_opcg4_f_o_aer(3,itype,iphase)) &
3797 + chem(i,k,j,lptr_opcg5_f_o_aer(3,itype,iphase)) &
3798 + chem(i,k,j,lptr_opcg6_f_o_aer(3,itype,iphase)) &
3799 + chem(i,k,j,lptr_opcg7_f_o_aer(3,itype,iphase)) &
3800 + (chem(i,k,j,lptr_ant1_c_aer(3,itype,iphase)) &
3801 + chem(i,k,j,lptr_ant2_c_aer(3,itype,iphase)) &
3802 + chem(i,k,j,lptr_ant3_c_aer(3,itype,iphase)) &
3803 + chem(i,k,j,lptr_ant4_c_aer(3,itype,iphase))) &
3804 + chem(i,k,j,lptr_ant1_o_aer(3,itype,iphase)) &
3805 + chem(i,k,j,lptr_ant2_o_aer(3,itype,iphase)) &
3806 + chem(i,k,j,lptr_ant3_o_aer(3,itype,iphase)) &
3807 + chem(i,k,j,lptr_ant4_o_aer(3,itype,iphase)) &
3808 + (chem(i,k,j,lptr_biog1_c_aer(3,itype,iphase)) &
3809 + chem(i,k,j,lptr_biog2_c_aer(3,itype,iphase)) &
3810 + chem(i,k,j,lptr_biog3_c_aer(3,itype,iphase)) &
3811 + chem(i,k,j,lptr_biog4_c_aer(3,itype,iphase))) &
3812 + chem(i,k,j,lptr_biog1_o_aer(3,itype,iphase)) &
3813 + chem(i,k,j,lptr_biog2_o_aer(3,itype,iphase)) &
3814 + chem(i,k,j,lptr_biog3_o_aer(3,itype,iphase)) &
3815 + chem(i,k,j,lptr_biog4_o_aer(3,itype,iphase)) &
3816 + chem(i,k,j,lptr_oc_aer(3,itype,iphase))
3824 do iphase=1,nphase_aer
3825 do itype=1,ntype_aer
3829 hoa_a04(i,k,j)= chem(i,k,j,lptr_pcg1_f_c_aer(4,itype,iphase)) &
3830 + chem(i,k,j,lptr_pcg2_f_c_aer(4,itype,iphase)) &
3831 + chem(i,k,j,lptr_pcg3_f_c_aer(4,itype,iphase)) &
3832 + chem(i,k,j,lptr_pcg4_f_c_aer(4,itype,iphase)) &
3833 + chem(i,k,j,lptr_pcg5_f_c_aer(4,itype,iphase)) &
3834 + chem(i,k,j,lptr_pcg6_f_c_aer(4,itype,iphase)) &
3835 + chem(i,k,j,lptr_pcg7_f_c_aer(4,itype,iphase)) &
3836 + chem(i,k,j,lptr_pcg1_f_o_aer(4,itype,iphase)) &
3837 + chem(i,k,j,lptr_pcg2_f_o_aer(4,itype,iphase)) &
3838 + chem(i,k,j,lptr_pcg3_f_o_aer(4,itype,iphase)) &
3839 + chem(i,k,j,lptr_pcg4_f_o_aer(4,itype,iphase)) &
3840 + chem(i,k,j,lptr_pcg5_f_o_aer(4,itype,iphase)) &
3841 + chem(i,k,j,lptr_pcg6_f_o_aer(4,itype,iphase)) &
3842 + chem(i,k,j,lptr_pcg7_f_o_aer(4,itype,iphase))
3844 bboa_a04(i,k,j)= chem(i,k,j,lptr_pcg1_b_c_aer(4,itype,iphase)) &
3845 + chem(i,k,j,lptr_pcg2_b_c_aer(4,itype,iphase)) &
3846 + chem(i,k,j,lptr_pcg3_b_c_aer(4,itype,iphase)) &
3847 + chem(i,k,j,lptr_pcg4_b_c_aer(4,itype,iphase)) &
3848 + chem(i,k,j,lptr_pcg5_b_c_aer(4,itype,iphase)) &
3849 + chem(i,k,j,lptr_pcg6_b_c_aer(4,itype,iphase)) &
3850 + chem(i,k,j,lptr_pcg7_b_c_aer(4,itype,iphase)) &
3851 + chem(i,k,j,lptr_pcg1_b_o_aer(4,itype,iphase)) &
3852 + chem(i,k,j,lptr_pcg2_b_o_aer(4,itype,iphase)) &
3853 + chem(i,k,j,lptr_pcg3_b_o_aer(4,itype,iphase)) &
3854 + chem(i,k,j,lptr_pcg4_b_o_aer(4,itype,iphase)) &
3855 + chem(i,k,j,lptr_pcg5_b_o_aer(4,itype,iphase)) &
3856 + chem(i,k,j,lptr_pcg6_b_o_aer(4,itype,iphase)) &
3857 + chem(i,k,j,lptr_pcg7_b_o_aer(4,itype,iphase))
3859 soa_a04(i,k,j)= chem(i,k,j,lptr_opcg1_b_c_aer(4,itype,iphase)) &
3860 + chem(i,k,j,lptr_opcg2_b_c_aer(4,itype,iphase)) &
3861 + chem(i,k,j,lptr_opcg3_b_c_aer(4,itype,iphase)) &
3862 + chem(i,k,j,lptr_opcg4_b_c_aer(4,itype,iphase)) &
3863 + chem(i,k,j,lptr_opcg5_b_c_aer(4,itype,iphase)) &
3864 + chem(i,k,j,lptr_opcg6_b_c_aer(4,itype,iphase)) &
3865 + chem(i,k,j,lptr_opcg7_b_c_aer(4,itype,iphase)) &
3866 + chem(i,k,j,lptr_opcg1_b_o_aer(4,itype,iphase)) &
3867 + chem(i,k,j,lptr_opcg2_b_o_aer(4,itype,iphase)) &
3868 + chem(i,k,j,lptr_opcg3_b_o_aer(4,itype,iphase)) &
3869 + chem(i,k,j,lptr_opcg4_b_o_aer(4,itype,iphase)) &
3870 + chem(i,k,j,lptr_opcg5_b_o_aer(4,itype,iphase)) &
3871 + chem(i,k,j,lptr_opcg6_b_o_aer(4,itype,iphase)) &
3872 + chem(i,k,j,lptr_opcg7_b_o_aer(4,itype,iphase)) &
3873 + chem(i,k,j,lptr_opcg1_f_c_aer(4,itype,iphase)) &
3874 + chem(i,k,j,lptr_opcg2_f_c_aer(4,itype,iphase)) &
3875 + chem(i,k,j,lptr_opcg3_f_c_aer(4,itype,iphase)) &
3876 + chem(i,k,j,lptr_opcg4_f_c_aer(4,itype,iphase)) &
3877 + chem(i,k,j,lptr_opcg5_f_c_aer(4,itype,iphase)) &
3878 + chem(i,k,j,lptr_opcg6_f_c_aer(4,itype,iphase)) &
3879 + chem(i,k,j,lptr_opcg7_f_c_aer(4,itype,iphase)) &
3880 + chem(i,k,j,lptr_opcg1_f_o_aer(4,itype,iphase)) &
3881 + chem(i,k,j,lptr_opcg2_f_o_aer(4,itype,iphase)) &
3882 + chem(i,k,j,lptr_opcg3_f_o_aer(4,itype,iphase)) &
3883 + chem(i,k,j,lptr_opcg4_f_o_aer(4,itype,iphase)) &
3884 + chem(i,k,j,lptr_opcg5_f_o_aer(4,itype,iphase)) &
3885 + chem(i,k,j,lptr_opcg6_f_o_aer(4,itype,iphase)) &
3886 + chem(i,k,j,lptr_opcg7_f_o_aer(4,itype,iphase)) &
3887 + (chem(i,k,j,lptr_ant1_c_aer(4,itype,iphase)) &
3888 + chem(i,k,j,lptr_ant2_c_aer(4,itype,iphase)) &
3889 + chem(i,k,j,lptr_ant3_c_aer(4,itype,iphase)) &
3890 + chem(i,k,j,lptr_ant4_c_aer(4,itype,iphase))) &
3891 + chem(i,k,j,lptr_ant1_o_aer(4,itype,iphase)) &
3892 + chem(i,k,j,lptr_ant2_o_aer(4,itype,iphase)) &
3893 + chem(i,k,j,lptr_ant3_o_aer(4,itype,iphase)) &
3894 + chem(i,k,j,lptr_ant4_o_aer(4,itype,iphase)) &
3895 + (chem(i,k,j,lptr_biog1_c_aer(4,itype,iphase)) &
3896 + chem(i,k,j,lptr_biog2_c_aer(4,itype,iphase)) &
3897 + chem(i,k,j,lptr_biog3_c_aer(4,itype,iphase)) &
3898 + chem(i,k,j,lptr_biog4_c_aer(4,itype,iphase))) &
3899 + chem(i,k,j,lptr_biog1_o_aer(4,itype,iphase)) &
3900 + chem(i,k,j,lptr_biog2_o_aer(4,itype,iphase)) &
3901 + chem(i,k,j,lptr_biog3_o_aer(4,itype,iphase)) &
3902 + chem(i,k,j,lptr_biog4_o_aer(4,itype,iphase))
3904 arosoa_a04(i,k,j)= chem(i,k,j,lptr_ant1_o_aer(4,itype,iphase)) &
3905 + chem(i,k,j,lptr_ant2_o_aer(4,itype,iphase)) &
3906 + chem(i,k,j,lptr_ant3_o_aer(4,itype,iphase)) &
3907 + chem(i,k,j,lptr_ant4_o_aer(4,itype,iphase)) &
3908 + chem(i,k,j,lptr_ant1_c_aer(4,itype,iphase)) &
3909 + chem(i,k,j,lptr_ant2_c_aer(4,itype,iphase)) &
3910 + chem(i,k,j,lptr_ant3_c_aer(4,itype,iphase)) &
3911 + chem(i,k,j,lptr_ant4_c_aer(4,itype,iphase))
3914 bbsoa_a04(i,k,j)= chem(i,k,j,lptr_opcg1_b_c_aer(4,itype,iphase)) &
3915 + chem(i,k,j,lptr_opcg2_b_c_aer(4,itype,iphase)) &
3916 + chem(i,k,j,lptr_opcg3_b_c_aer(4,itype,iphase)) &
3917 + chem(i,k,j,lptr_opcg4_b_c_aer(4,itype,iphase)) &
3918 + chem(i,k,j,lptr_opcg5_b_c_aer(4,itype,iphase)) &
3919 + chem(i,k,j,lptr_opcg6_b_c_aer(4,itype,iphase)) &
3920 + chem(i,k,j,lptr_opcg7_b_c_aer(4,itype,iphase)) &
3921 + chem(i,k,j,lptr_opcg1_b_o_aer(4,itype,iphase)) &
3922 + chem(i,k,j,lptr_opcg2_b_o_aer(4,itype,iphase)) &
3923 + chem(i,k,j,lptr_opcg3_b_o_aer(4,itype,iphase)) &
3924 + chem(i,k,j,lptr_opcg4_b_o_aer(4,itype,iphase)) &
3925 + chem(i,k,j,lptr_opcg5_b_o_aer(4,itype,iphase)) &
3926 + chem(i,k,j,lptr_opcg6_b_o_aer(4,itype,iphase)) &
3927 + chem(i,k,j,lptr_opcg7_b_o_aer(4,itype,iphase))
3929 hsoa_a04(i,k,j)= chem(i,k,j,lptr_opcg1_f_c_aer(4,itype,iphase)) &
3930 + chem(i,k,j,lptr_opcg2_f_c_aer(4,itype,iphase)) &
3931 + chem(i,k,j,lptr_opcg3_f_c_aer(4,itype,iphase)) &
3932 + chem(i,k,j,lptr_opcg4_f_c_aer(4,itype,iphase)) &
3933 + chem(i,k,j,lptr_opcg5_f_c_aer(4,itype,iphase)) &
3934 + chem(i,k,j,lptr_opcg6_f_c_aer(4,itype,iphase)) &
3935 + chem(i,k,j,lptr_opcg7_f_c_aer(4,itype,iphase)) &
3936 + chem(i,k,j,lptr_opcg1_f_o_aer(4,itype,iphase)) &
3937 + chem(i,k,j,lptr_opcg2_f_o_aer(4,itype,iphase)) &
3938 + chem(i,k,j,lptr_opcg3_f_o_aer(4,itype,iphase)) &
3939 + chem(i,k,j,lptr_opcg4_f_o_aer(4,itype,iphase)) &
3940 + chem(i,k,j,lptr_opcg5_f_o_aer(4,itype,iphase)) &
3941 + chem(i,k,j,lptr_opcg6_f_o_aer(4,itype,iphase)) &
3942 + chem(i,k,j,lptr_opcg7_f_o_aer(4,itype,iphase))
3944 biog_a04(i,k,j)= (chem(i,k,j,lptr_biog1_c_aer(4,itype,iphase)) &
3945 + chem(i,k,j,lptr_biog2_c_aer(4,itype,iphase)) &
3946 + chem(i,k,j,lptr_biog3_c_aer(4,itype,iphase)) &
3947 + chem(i,k,j,lptr_biog4_c_aer(4,itype,iphase))) &
3948 + chem(i,k,j,lptr_biog1_o_aer(4,itype,iphase)) &
3949 + chem(i,k,j,lptr_biog2_o_aer(4,itype,iphase)) &
3950 + chem(i,k,j,lptr_biog3_o_aer(4,itype,iphase)) &
3951 + chem(i,k,j,lptr_biog4_o_aer(4,itype,iphase))
3955 totoa_a04(i,k,j)= chem(i,k,j,lptr_pcg1_b_c_aer(4,itype,iphase)) &
3956 + chem(i,k,j,lptr_pcg2_b_c_aer(4,itype,iphase)) &
3957 + chem(i,k,j,lptr_pcg3_b_c_aer(4,itype,iphase)) &
3958 + chem(i,k,j,lptr_pcg4_b_c_aer(4,itype,iphase)) &
3959 + chem(i,k,j,lptr_pcg5_b_c_aer(4,itype,iphase)) &
3960 + chem(i,k,j,lptr_pcg6_b_c_aer(4,itype,iphase)) &
3961 + chem(i,k,j,lptr_pcg7_b_c_aer(4,itype,iphase)) &
3962 + chem(i,k,j,lptr_pcg1_b_o_aer(4,itype,iphase)) &
3963 + chem(i,k,j,lptr_pcg2_b_o_aer(4,itype,iphase)) &
3964 + chem(i,k,j,lptr_pcg3_b_o_aer(4,itype,iphase)) &
3965 + chem(i,k,j,lptr_pcg4_b_o_aer(4,itype,iphase)) &
3966 + chem(i,k,j,lptr_pcg5_b_o_aer(4,itype,iphase)) &
3967 + chem(i,k,j,lptr_pcg6_b_o_aer(4,itype,iphase)) &
3968 + chem(i,k,j,lptr_pcg7_b_o_aer(4,itype,iphase)) &
3969 + chem(i,k,j,lptr_opcg1_b_c_aer(4,itype,iphase)) &
3970 + chem(i,k,j,lptr_opcg2_b_c_aer(4,itype,iphase)) &
3971 + chem(i,k,j,lptr_opcg3_b_c_aer(4,itype,iphase)) &
3972 + chem(i,k,j,lptr_opcg4_b_c_aer(4,itype,iphase)) &
3973 + chem(i,k,j,lptr_opcg5_b_c_aer(4,itype,iphase)) &
3974 + chem(i,k,j,lptr_opcg6_b_c_aer(4,itype,iphase)) &
3975 + chem(i,k,j,lptr_opcg7_b_c_aer(4,itype,iphase)) &
3976 + chem(i,k,j,lptr_opcg1_b_o_aer(4,itype,iphase)) &
3977 + chem(i,k,j,lptr_opcg2_b_o_aer(4,itype,iphase)) &
3978 + chem(i,k,j,lptr_opcg3_b_o_aer(4,itype,iphase)) &
3979 + chem(i,k,j,lptr_opcg4_b_o_aer(4,itype,iphase)) &
3980 + chem(i,k,j,lptr_opcg5_b_o_aer(4,itype,iphase)) &
3981 + chem(i,k,j,lptr_opcg6_b_o_aer(4,itype,iphase)) &
3982 + chem(i,k,j,lptr_opcg7_b_o_aer(4,itype,iphase)) &
3983 + chem(i,k,j,lptr_pcg1_f_c_aer(4,itype,iphase)) &
3984 + chem(i,k,j,lptr_pcg2_f_c_aer(4,itype,iphase)) &
3985 + chem(i,k,j,lptr_pcg3_f_c_aer(4,itype,iphase)) &
3986 + chem(i,k,j,lptr_pcg4_f_c_aer(4,itype,iphase)) &
3987 + chem(i,k,j,lptr_pcg5_f_c_aer(4,itype,iphase)) &
3988 + chem(i,k,j,lptr_pcg6_f_c_aer(4,itype,iphase)) &
3989 + chem(i,k,j,lptr_pcg7_f_c_aer(4,itype,iphase)) &
3990 + chem(i,k,j,lptr_pcg1_f_o_aer(4,itype,iphase)) &
3991 + chem(i,k,j,lptr_pcg2_f_o_aer(4,itype,iphase)) &
3992 + chem(i,k,j,lptr_pcg3_f_o_aer(4,itype,iphase)) &
3993 + chem(i,k,j,lptr_pcg4_f_o_aer(4,itype,iphase)) &
3994 + chem(i,k,j,lptr_pcg5_f_o_aer(4,itype,iphase)) &
3995 + chem(i,k,j,lptr_pcg6_f_o_aer(4,itype,iphase)) &
3996 + chem(i,k,j,lptr_pcg7_f_o_aer(4,itype,iphase)) &
3997 + chem(i,k,j,lptr_opcg1_f_c_aer(4,itype,iphase)) &
3998 + chem(i,k,j,lptr_opcg2_f_c_aer(4,itype,iphase)) &
3999 + chem(i,k,j,lptr_opcg3_f_c_aer(4,itype,iphase)) &
4000 + chem(i,k,j,lptr_opcg4_f_c_aer(4,itype,iphase)) &
4001 + chem(i,k,j,lptr_opcg5_f_c_aer(4,itype,iphase)) &
4002 + chem(i,k,j,lptr_opcg6_f_c_aer(4,itype,iphase)) &
4003 + chem(i,k,j,lptr_opcg7_f_c_aer(4,itype,iphase)) &
4004 + chem(i,k,j,lptr_opcg1_f_o_aer(4,itype,iphase)) &
4005 + chem(i,k,j,lptr_opcg2_f_o_aer(4,itype,iphase)) &
4006 + chem(i,k,j,lptr_opcg3_f_o_aer(4,itype,iphase)) &
4007 + chem(i,k,j,lptr_opcg4_f_o_aer(4,itype,iphase)) &
4008 + chem(i,k,j,lptr_opcg5_f_o_aer(4,itype,iphase)) &
4009 + chem(i,k,j,lptr_opcg6_f_o_aer(4,itype,iphase)) &
4010 + chem(i,k,j,lptr_opcg7_f_o_aer(4,itype,iphase)) &
4011 + (chem(i,k,j,lptr_ant1_c_aer(4,itype,iphase)) &
4012 + chem(i,k,j,lptr_ant2_c_aer(4,itype,iphase)) &
4013 + chem(i,k,j,lptr_ant3_c_aer(4,itype,iphase)) &
4014 + chem(i,k,j,lptr_ant4_c_aer(4,itype,iphase))) &
4015 + chem(i,k,j,lptr_ant1_o_aer(4,itype,iphase)) &
4016 + chem(i,k,j,lptr_ant2_o_aer(4,itype,iphase)) &
4017 + chem(i,k,j,lptr_ant3_o_aer(4,itype,iphase)) &
4018 + chem(i,k,j,lptr_ant4_o_aer(4,itype,iphase)) &
4019 + (chem(i,k,j,lptr_biog1_c_aer(4,itype,iphase)) &
4020 + chem(i,k,j,lptr_biog2_c_aer(4,itype,iphase)) &
4021 + chem(i,k,j,lptr_biog3_c_aer(4,itype,iphase)) &
4022 + chem(i,k,j,lptr_biog4_c_aer(4,itype,iphase))) &
4023 + chem(i,k,j,lptr_biog1_o_aer(4,itype,iphase)) &
4024 + chem(i,k,j,lptr_biog2_o_aer(4,itype,iphase)) &
4025 + chem(i,k,j,lptr_biog3_o_aer(4,itype,iphase)) &
4026 + chem(i,k,j,lptr_biog4_o_aer(4,itype,iphase)) &
4027 + chem(i,k,j,lptr_oc_aer(4,itype,iphase))
4037 end subroutine sum_vbs9
4040 !-----------------------------------------------------------------------
4041 end module module_mosaic_sumpm