chem/module_mosaic_sumpm.F

   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.
   5 !
   6 ! Aerosol Option:  MOSAIC (Model for Simulating Aerosol Interactions &
   7 ! Chemistry)
   8 ! * Primary investigator: Rahul A. Zaveri
   9 ! * Co-investigator: Richard C. Easter, William I. Gustafson Jr.
  10 ! Last update: February 2009
  11 !
  12 ! Contacts:
  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
  20 !
  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
  23 ! for PNNL.
  24 !
  25 ! Terms of Use:
  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.
  36 !
  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.
  48 !
  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.
  54 !   Phys., in review.
  55 !
  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.
  61 !
  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.
  75 !
  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/.
  88 !
  89 ! Contact Jerome Fast for updates on the status of manuscripts under
  90 ! review.
  91 !
  92 ! Additional information:
  93 ! * www.pnl.gov/atmospheric/research/wrf-chem
  94 !
  95 ! Support:
  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
 103
 104
 105 !
 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
 109 !
 110 #define cw_species_are_in_registry
 111
 112
 113         contains
 114
 115
 116 !-----------------------------------------------------------------------
 117    subroutine sum_pm_mosaic (                                          &
 118          alt, chem,                                                    &
 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                                     )
 123
 124    USE module_state_description, only: num_chem
 125    USE module_data_mosaic_asect
 126    IMPLICIT NONE
 127
 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
 132
 133    REAL, DIMENSION( ims:ime, kms:kme, jms:jme ),                       &
 134          INTENT(IN) :: alt
 135
 136    REAL, DIMENSION( ims:ime, kms:kme, jms:jme, num_chem ),             &
 137          INTENT(IN ) :: chem
 138
 139    REAL, DIMENSION( ims:ime, kms:kme, jms:jme ),                       &
 140          INTENT(OUT) :: pm2_5_dry,pm2_5_water,pm2_5_dry_ec,pm10
 141
 142    REAL :: mass
 143
 144    INTEGER :: i,imax,j,jmax,k,kmax,n,itype,iphase
 145
 146    imax = min(ite,ide-1)
 147    jmax = min(jte,jde-1)
 148    kmax = kte
 149 !
 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
 152 !
 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.
 157
 158    do iphase=1,nphase_aer
 159    do itype=1,ntype_aer
 160    do n = 1, nsize_aer(itype)
 161       if (dcen_sect(n,itype) .le. 2.5e-4) then
 162          do j=jts,jmax
 163             do k=kts,kmax
 164                do i=its,imax
 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))
 245
 246
 247
 248
 249
 250
 251
 252                   pm2_5_dry(i,k,j) = pm2_5_dry(i,k,j) + mass
 253
 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))
 256
 257                   pm2_5_water(i,k,j) = pm2_5_water(i,k,j)              &
 258                                      + chem(i,k,j,waterptr_aer(n,itype))
 259
 260                   pm10(i,k,j) = pm10(i,k,j) + mass
 261                enddo
 262             enddo
 263          enddo
 264       else
 265          do j=jts,jmax
 266             do k=kts,kmax
 267                do i=its,imax
 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))
 349
 350
 351
 352                enddo
 353             enddo
 354          enddo
 355       endif
 356    enddo ! size
 357    enddo ! type
 358    enddo ! phase
 359
 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)
 369
 370    end subroutine sum_pm_mosaic
 371
 372
 373 !-----------------------------------------------------------------------
 374 !-----------------------------------------------------------------------
 375    subroutine sum_pm_mosaic_vbs2 (                                      &
 376          alt, chem,                                                    &
 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                                     )
 381
 382    USE module_state_description, only: num_chem
 383    USE module_data_mosaic_asect
 384    IMPLICIT NONE
 385
 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
 390
 391    REAL, DIMENSION( ims:ime, kms:kme, jms:jme ),                       &
 392          INTENT(IN) :: alt
 393
 394    REAL, DIMENSION( ims:ime, kms:kme, jms:jme, num_chem ),             &
 395          INTENT(IN ) :: chem
 396
 397    REAL, DIMENSION( ims:ime, kms:kme, jms:jme ),                       &
 398          INTENT(OUT) :: pm2_5_dry,pm2_5_water,pm2_5_dry_ec,pm10
 399
 400    REAL :: mass
 401
 402    INTEGER :: i,imax,j,jmax,k,kmax,n,itype,iphase
 403
 404    imax = min(ite,ide-1)
 405    jmax = min(jte,jde-1)
 406    kmax = kte
 407 !
 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
 410 !
 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
 416    do itype=1,ntype_aer
 417    do n = 1, nsize_aer(itype)
 418       if (dcen_sect(n,itype) .le. 2.5e-4) then
 419          do j=jts,jmax
 420             do k=kts,kmax
 421                do i=its,imax
 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))
 446
 447
 448                   pm2_5_dry(i,k,j) = pm2_5_dry(i,k,j) + mass
 449
 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))
 452
 453                   pm2_5_water(i,k,j) = pm2_5_water(i,k,j)              &
 454                                      + chem(i,k,j,waterptr_aer(n,itype))
 455
 456                   pm10(i,k,j) = pm10(i,k,j) + mass
 457                enddo
 458             enddo
 459          enddo
 460       else
 461          do j=jts,jmax
 462             do k=kts,kmax
 463                do i=its,imax
 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))
 489
 490
 491
 492                enddo
 493             enddo
 494          enddo
 495       endif
 496    enddo ! size
 497    enddo ! type
 498    enddo ! phase
 499
 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)
 509
 510    end subroutine sum_pm_mosaic_vbs2
 511
 512
 513 !-----------------------------------------------------------------------
 514 !-----------------------------------------------------------------------
 515    subroutine sum_pm_mosaic_vbs0 (                                      &
 516          alt, chem,                                                    &
 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                                     )
 521
 522    USE module_state_description, only: num_chem
 523    USE module_data_mosaic_asect
 524    IMPLICIT NONE
 525
 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
 530
 531    REAL, DIMENSION( ims:ime, kms:kme, jms:jme ),                       &
 532          INTENT(IN) :: alt
 533
 534    REAL, DIMENSION( ims:ime, kms:kme, jms:jme, num_chem ),             &
 535          INTENT(IN ) :: chem
 536
 537    REAL, DIMENSION( ims:ime, kms:kme, jms:jme ),                       &
 538          INTENT(OUT) :: pm2_5_dry,pm2_5_water,pm2_5_dry_ec,pm10
 539
 540    REAL :: mass
 541
 542    INTEGER :: i,imax,j,jmax,k,kmax,n,itype,iphase
 543
 544    imax = min(ite,ide-1)
 545    jmax = min(jte,jde-1)
 546    kmax = kte
 547 !
 548 !
 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
 551 !
 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
 557    do itype=1,ntype_aer
 558    do n = 1, nsize_aer(itype)
 559       if (dcen_sect(n,itype) .le. 2.5e-4) then
 560          do j=jts,jmax
 561             do k=kts,kmax
 562                do i=its,imax
 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))
 576
 577 ! SMPA and SMPBB do not participate to pm2.5 mass
 578
 579                   pm2_5_dry(i,k,j) = pm2_5_dry(i,k,j) + mass
 580
 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))
 583
 584                   pm2_5_water(i,k,j) = pm2_5_water(i,k,j)              &
 585                                      + chem(i,k,j,waterptr_aer(n,itype))
 586
 587                   pm10(i,k,j) = pm10(i,k,j) + mass
 588                enddo
 589             enddo
 590          enddo
 591       else
 592          do j=jts,jmax
 593             do k=kts,kmax
 594                do i=its,imax
 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))
 609
 610 ! SMPA and SMPBB do not participate to pm10 mass
 611
 612                enddo
 613             enddo
 614          enddo
 615       endif
 616    enddo ! size
 617    enddo ! type
 618    enddo ! phase
 619
 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)
 629
 630    end subroutine sum_pm_mosaic_vbs0
 631
 632
 633
 634 !-----------------------------------------------------------------------
 635 !-----------------------------------------------------------------------
 636    subroutine sum_pm_mosaic_vbs4 (                                      &
 637          alt, chem,                                                    &
 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                                     )
 642
 643    USE module_state_description, only: num_chem
 644    USE module_data_mosaic_asect
 645    IMPLICIT NONE
 646
 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
 651
 652    REAL, DIMENSION( ims:ime, kms:kme, jms:jme ),                       &
 653          INTENT(IN) :: alt
 654
 655    REAL, DIMENSION( ims:ime, kms:kme, jms:jme, num_chem ),             &
 656          INTENT(IN ) :: chem
 657
 658    REAL, DIMENSION( ims:ime, kms:kme, jms:jme ),                       &
 659          INTENT(OUT) :: pm2_5_dry,pm2_5_water,pm2_5_dry_ec,pm10
 660
 661    REAL :: mass
 662
 663    INTEGER :: i,imax,j,jmax,k,kmax,n,itype,iphase
 664
 665    imax = min(ite,ide-1)
 666    jmax = min(jte,jde-1)
 667    kmax = kte
 668 !
 669 !
 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
 672 !
 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
 678    do itype=1,ntype_aer
 679    do n = 1, nsize_aer(itype)
 680       if (dcen_sect(n,itype) .le. 2.5e-4) then
 681          do j=jts,jmax
 682             do k=kts,kmax
 683                do i=its,imax
 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))
 707
 708 ! SMPA and SMPBB do not participate to pm2.5 mass
 709
 710                   pm2_5_dry(i,k,j) = pm2_5_dry(i,k,j) + mass
 711
 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))
 714
 715                   pm2_5_water(i,k,j) = pm2_5_water(i,k,j)              &
 716                                      + chem(i,k,j,waterptr_aer(n,itype))
 717
 718                   pm10(i,k,j) = pm10(i,k,j) + mass
 719                enddo
 720             enddo
 721          enddo
 722       else
 723          do j=jts,jmax
 724             do k=kts,kmax
 725                do i=its,imax
 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))
 750
 751 ! SMPA and SMPBB do not participate to pm10 mass
 752
 753                enddo
 754             enddo
 755          enddo
 756       endif
 757    enddo ! size
 758    enddo ! type
 759    enddo ! phase
 760
 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)
 770
 771    end subroutine sum_pm_mosaic_vbs4
 772
 773
 774 !-----------------------------------------------------------------------
 775
 776
 777        subroutine  sum_vbs0 ( aero_diag_opt,                           &
 778              alt, chem,                                                &
 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,                              &
 789              smpa_v1,smpbb_v1,                              &
 790              ids,ide, jds,jde, kds,kde,                                &
 791              ims,ime, jms,jme, kms,kme,                                &
 792              its,ite, jts,jte, kts,kte                                  )
 793
 794    USE module_state_description, only: num_chem
 795    USE module_data_mosaic_asect
 796    IMPLICIT NONE
 797
 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
 803
 804    REAL, DIMENSION( ims:ime, kms:kme, jms:jme ),                       &
 805          INTENT(IN) :: alt
 806
 807    REAL, DIMENSION( ims:ime, kms:kme, jms:jme, num_chem ),             &
 808          INTENT(IN ) :: 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
 820
 821
 822
 823    INTEGER :: i,imax,j,jmax,k,kmax,n,itype,iphase
 824
 825    imax = min(ite,ide-1)
 826    jmax = min(jte,jde-1)
 827    kmax = kte
 828
 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.
 833
 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.
 842
 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.
 850
 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.
 858
 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.
 866
 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.
 878    endif
 879
 880
 881
 882    do iphase=1,nphase_aer
 883       do itype=1,ntype_aer
 884          do j=jts,jmax
 885             do k=kts,kmax
 886                do i=its,imax
 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))
 915                enddo
 916             enddo
 917          enddo
 918       enddo ! type
 919    enddo ! phase
 920
 921    if( aero_diag_opt > 0 ) then
 922    do iphase=1,nphase_aer
 923    do itype=1,ntype_aer
 924    do n = 1, nsize_aer(itype) !The 4th bin is 2.5-10um and outside the AMS measurements
 925          do j=jts,jmax
 926             do k=kts,kmax
 927                do i=its,imax
 928
 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))
 932
 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))
 936
 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))
 941
 942                  enddo
 943                enddo
 944              enddo
 945                     enddo
 946                   enddo
 947                enddo
 948
 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)
 957
 958
 959    do iphase=1,nphase_aer
 960    do itype=1,ntype_aer
 961          do j=jts,jmax
 962             do k=kts,kmax
 963                do i=its,imax
 964 ! missing summation! (hoa = hoa + x ...)
 965 !        hoa_a01(i,k,j)= chem(i,k,j,lptr_oc_aer(1,itype,iphase))
 966 !
 967 !
 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)))
 972 !
 973 !
 974 !        bbsoa_a01(i,k,j)= chem(i,k,j,lptr_smpbb_aer(1,itype,iphase))
 975 !
 976 !
 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)))
 979 !
 980 !        asmpsoa_a01(i,k,j)= chem(i,k,j,lptr_smpa_aer(1,itype,iphase))
 981 !
 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)))
 988
 989         hoa_a01(i,k,j)= hoa_a01(i,k,j) &
 990                        + chem(i,k,j,lptr_oc_aer(1,itype,iphase))
 991
 992
 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))
 999
1000
1001         bbsoa_a01(i,k,j)= bbsoa_a01(i,k,j) &
1002                        + chem(i,k,j,lptr_smpbb_aer(1,itype,iphase))
1003
1004
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))
1008
1009         asmpsoa_a01(i,k,j)= asmpsoa_a01(i,k,j) &
1010                        + chem(i,k,j,lptr_smpa_aer(1,itype,iphase))
1011
1012                enddo
1013             enddo
1014          enddo
1015    enddo ! type
1016    enddo ! phase
1017
1018    do iphase=1,nphase_aer
1019    do itype=1,ntype_aer
1020          do j=jts,jmax
1021             do k=kts,kmax
1022                do i=its,imax
1023 ! missing summation! (hoa = hoa + x ...)
1024 !          hoa_a02(i,k,j)= (chem(i,k,j,lptr_oc_aer(2,itype,iphase)))
1025 !
1026 !
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)))
1031 !
1032 !
1033 !          bbsoa_a02(i,k,j)= (chem(i,k,j,lptr_smpbb_aer(2,itype,iphase)))
1034 !
1035 !
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)))
1038 !
1039 !
1040 !          asmpsoa_a02(i,k,j)= chem(i,k,j,lptr_smpa_aer(2,itype,iphase))
1041 !
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))
1049
1050
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))
1057
1058
1059           bbsoa_a02(i,k,j)= bbsoa_a02(i,k,j) &
1060                        + chem(i,k,j,lptr_smpbb_aer(2,itype,iphase))
1061
1062
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))
1066
1067
1068           asmpsoa_a02(i,k,j)= asmpsoa_a02(i,k,j) &
1069                         + chem(i,k,j,lptr_smpa_aer(2,itype,iphase))
1070
1071                enddo
1072             enddo
1073          enddo
1074    enddo ! type
1075    enddo ! phase
1076
1077    do iphase=1,nphase_aer
1078    do itype=1,ntype_aer
1079          do j=jts,jmax
1080             do k=kts,kmax
1081                do i=its,imax
1082 ! missing summation! (hoa = hoa + x ...)
1083 !          hoa_a03(i,k,j)= (chem(i,k,j,lptr_oc_aer(3,itype,iphase)))
1084 !
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)))
1089 !
1090 !
1091 !          bbsoa_a03(i,k,j)= (chem(i,k,j,lptr_smpbb_aer(3,itype,iphase)))
1092 !
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)))
1095 !
1096 !          asmpsoa_a03(i,k,j)= chem(i,k,j,lptr_smpa_aer(3,itype,iphase))
1097 !
1098 !
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)))
1107
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))
1114
1115
1116           bbsoa_a03(i,k,j)= bbsoa_a03(i,k,j) &
1117                        + chem(i,k,j,lptr_smpbb_aer(3,itype,iphase))
1118
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))
1122
1123           asmpsoa_a03(i,k,j)= asmpsoa_a03(i,k,j) &
1124                        + chem(i,k,j,lptr_smpa_aer(3,itype,iphase))
1125
1126                enddo
1127             enddo
1128          enddo
1129    enddo ! type
1130    enddo ! phase
1131
1132    do iphase=1,nphase_aer
1133    do itype=1,ntype_aer
1134          do j=jts,jmax
1135             do k=kts,kmax
1136                do i=its,imax
1137 ! missing summation! (hoa = hoa + x ...)
1138 !          hoa_a04(i,k,j)= (chem(i,k,j,lptr_oc_aer(4,itype,iphase)))
1139 !
1140 !
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)))
1145 !
1146 !
1147 !         bbsoa_a04(i,k,j)= (chem(i,k,j,lptr_smpbb_aer(4,itype,iphase)))
1148 !
1149 !
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)))
1152 !
1153 !         asmpsoa_a04(i,k,j)= chem(i,k,j,lptr_smpa_aer(4,itype,iphase))
1154 !
1155 !
1156 !
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))
1165
1166
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))
1173
1174
1175          bbsoa_a04(i,k,j)= bbsoa_a04(i,k,j) &
1176                        + chem(i,k,j,lptr_smpbb_aer(4,itype,iphase))
1177
1178
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))
1182
1183          asmpsoa_a04(i,k,j)= asmpsoa_a04(i,k,j) &
1184                        + chem(i,k,j,lptr_smpa_aer(4,itype,iphase))
1185
1186                enddo
1187             enddo
1188          enddo
1189    enddo ! type
1190    enddo ! phase
1191    endif
1192
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)
1202
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)
1212
1213
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)
1216
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)
1219
1220
1221
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)
1230
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)
1233
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)
1236
1237
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)
1246
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)
1251
1252
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)
1261
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)
1266         endif
1267
1268
1269    end subroutine sum_vbs0
1270
1271
1272 !-----------------------------------------------------------------------
1273
1274        subroutine  sum_vbs2 ( aero_diag_opt,                           &
1275              alt, chem,                                                &
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                                  )
1298
1299    USE module_state_description, only: num_chem
1300    USE module_data_mosaic_asect
1301    IMPLICIT NONE
1302
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
1308
1309    REAL, DIMENSION( ims:ime, kms:kme, jms:jme ),                       &
1310          INTENT(IN) :: alt
1311
1312    REAL, DIMENSION( ims:ime, kms:kme, jms:jme, num_chem ),             &
1313          INTENT(IN ) :: 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
1334
1335
1336
1337    INTEGER :: i,imax,j,jmax,k,kmax,n,itype,iphase
1338
1339    imax = min(ite,ide-1)
1340    jmax = min(jte,jde-1)
1341    kmax = kte
1342
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.
1351
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.
1360
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.
1368
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.
1376
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.
1384
1385
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.
1393
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.
1401
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.
1409
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.
1417
1418
1419
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.
1433    endif
1434
1435 ! NOTE - summation seems to be wrong for code below, but not my code so did not fix...
1436    iphase = 1
1437    do itype=1,ntype_aer
1438          do j=jts,jmax
1439             do k=kts,kmax
1440                do i=its,imax
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)))
1577                enddo
1578             enddo
1579          enddo
1580    enddo ! type
1581
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
1584    iphase = 1
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
1587          do j=jts,jmax
1588             do k=kts,kmax
1589                do i=its,imax
1590
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
1595
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)))
1600
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
1605
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)))
1610
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))
1614
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))
1618
1619                  enddo
1620                enddo
1621              enddo
1622                     enddo
1623                   enddo
1624
1625
1626 ! NOTE - summation also wrong for code below, but not my code so did not fix...
1627
1628    !do iphase=1,nphase_aer !BSINGH - Commented out as we need to add only phase 1 (interstitial) values species
1629
1630    iphase = 1
1631    do itype=1,ntype_aer
1632          do j=jts,jmax
1633             do k=kts,kmax
1634                do i=its,imax
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)))
1639
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)))
1644
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)))
1653
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))
1656
1657
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)))
1660
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)))
1663
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)))
1666
1667
1668
1669
1670                enddo
1671             enddo
1672          enddo
1673    enddo ! type
1674
1675
1676    !do iphase=1,nphase_aer!BSINGH - Commented out as we need to add only phase 1 (interstitial) values species
1677    iphase = 1
1678    do itype=1,ntype_aer
1679          do j=jts,jmax
1680             do k=kts,kmax
1681                do i=its,imax
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)))
1686
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)))
1691
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)))
1700
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))
1703
1704
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)))
1707
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)))
1710
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)))
1713
1714                enddo
1715             enddo
1716          enddo
1717    enddo ! type
1718
1719
1720    !do iphase=1,nphase_aer!BSINGH - Commented out as we need to add only phase 1 (interstitial) values species
1721    iphase = 1
1722    do itype=1,ntype_aer
1723          do j=jts,jmax
1724             do k=kts,kmax
1725                do i=its,imax
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)))
1730
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)))
1735
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)))
1744
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))
1747
1748
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)))
1751
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)))
1754
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)))
1757
1758                enddo
1759             enddo
1760          enddo
1761    enddo ! type
1762
1763
1764    !do iphase=1,nphase_aer!BSINGH - Commented out as we need to add only phase 1 (interstitial) values species
1765    iphase = 1
1766    do itype=1,ntype_aer
1767          do j=jts,jmax
1768             do k=kts,kmax
1769                do i=its,imax
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)))
1774
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)))
1779
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)))
1788
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))
1791
1792
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)))
1795
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)))
1798
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)))
1801
1802                enddo
1803             enddo
1804          enddo
1805    enddo ! type
1806    iphase = 1
1807    do itype=1,ntype_aer
1808          do j=jts,jmax
1809             do k=kts,kmax
1810                do i=its,imax
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)))
1815
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)))
1820
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)))
1829
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))
1832
1833
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)))
1836
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)))
1839
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)))
1842
1843                enddo
1844             enddo
1845          enddo
1846    enddo ! type
1847
1848
1849    iphase = 1
1850    do itype=1,ntype_aer
1851          do j=jts,jmax
1852             do k=kts,kmax
1853                do i=its,imax
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)))
1858
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)))
1863
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)))
1872
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))
1875
1876
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)))
1879
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)))
1882
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)))
1885
1886                enddo
1887             enddo
1888          enddo
1889    enddo ! type
1890
1891
1892    iphase = 1
1893    do itype=1,ntype_aer
1894          do j=jts,jmax
1895             do k=kts,kmax
1896                do i=its,imax
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)))
1901
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)))
1906
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)))
1915
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))
1918
1919
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)))
1922
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)))
1925
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)))
1928
1929                enddo
1930             enddo
1931          enddo
1932    enddo ! type
1933
1934
1935    iphase = 1
1936    do itype=1,ntype_aer
1937          do j=jts,jmax
1938             do k=kts,kmax
1939                do i=its,imax
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)))
1944
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)))
1949
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)))
1958
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))
1961
1962
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)))
1965
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)))
1968
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)))
1971
1972                enddo
1973             enddo
1974          enddo
1975    enddo ! type
1976    endif
1977
1978
1979    end subroutine sum_vbs2
1980
1981
1982 !BSINGH(12/12/2013): Added following function for SAPRC 8 bin
1983    !----------------------------------------------------------------------
1984
1985
1986        subroutine  sum_aq_vbs2 (                                          &
1987              alt, chem,                                                &
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,                            &
1997              biog_cw_v1,                                                  &
1998              ant_cw_v1,                                                   &
1999              ids,ide, jds,jde, kds,kde,                                &
2000              ims,ime, jms,jme, kms,kme,                                &
2001              its,ite, jts,jte, kts,kte                                  )
2002
2003    USE module_state_description, only: num_chem
2004    USE module_data_mosaic_asect
2005    IMPLICIT NONE
2006
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
2011
2012    REAL, DIMENSION( ims:ime, kms:kme, jms:jme ),                       &
2013          INTENT(IN) :: alt
2014    REAL, DIMENSION( ims:ime, kms:kme, jms:jme, num_chem ),             &
2015          INTENT(IN ) :: 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,                    &
2034              biog_cw_v1,                                                  &
2035              ant_cw_v1
2036
2037
2038
2039    INTEGER :: i,imax,j,jmax,k,kmax,n,itype,iphase
2040
2041    imax = min(ite,ide-1)
2042    jmax = min(jte,jde-1)
2043    kmax = kte
2044
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.
2053
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.
2062
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.
2079
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.
2088
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.
2097
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.
2106
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.
2115
2116
2117
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.
2125
2126
2127    !do iphase=2,2 !set nphase_aer=2 for cloud-borne aerosols !BSINGH - Commented out
2128    iphase = 2
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
2131          do j=jts,jmax
2132             do k=kts,kmax
2133                do i=its,imax
2134
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
2138
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)))
2142
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
2146
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)))
2150
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))
2153
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))
2156
2157                  enddo
2158                enddo
2159              enddo
2160                     enddo
2161                   enddo
2162
2163
2164
2165
2166
2167    !do iphase=2,2 !set nphase_aer=2 for cloud-borne aerosols !BSINGH - Commented out
2168    iphase = 2
2169    do itype=1,ntype_aer
2170          do j=jts,jmax
2171             do k=kts,kmax
2172                do i=its,imax
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))
2175
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))
2178
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))
2185
2186         arosoa_cw01(i,k,j)= chem(i,k,j,lptr_ant1_c_aer(1,itype,iphase))
2187
2188
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)))
2191
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)))
2194
2195         biog_cw01(i,k,j)= chem(i,k,j,lptr_biog1_c_aer(1,itype,iphase))
2196
2197
2198
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)))
2210
2211
2212                enddo
2213             enddo
2214          enddo
2215    enddo ! type
2216
2217
2218
2219    !do iphase=2,2 !set nphase_aer=2 for cloud-borne aerosols!BSINGH - Commented out
2220    iphase = 2
2221    do itype=1,ntype_aer
2222          do j=jts,jmax
2223             do k=kts,kmax
2224                do i=its,imax
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))
2227
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))
2230
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))
2237
2238         arosoa_cw02(i,k,j)= chem(i,k,j,lptr_ant1_c_aer(2,itype,iphase))
2239
2240
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)))
2243
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)))
2246
2247         biog_cw02(i,k,j)= chem(i,k,j,lptr_biog1_c_aer(2,itype,iphase))
2248
2249
2250
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)))
2262
2263
2264                enddo
2265             enddo
2266          enddo
2267    enddo ! type
2268
2269
2270
2271    !do iphase=2,2 !set nphase_aer=2 for cloud-borne aerosols!BSINGH - Commented out
2272    iphase = 2
2273    do itype=1,ntype_aer
2274          do j=jts,jmax
2275             do k=kts,kmax
2276                do i=its,imax
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))
2279
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))
2282
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))
2289
2290         arosoa_cw03(i,k,j)= chem(i,k,j,lptr_ant1_c_aer(3,itype,iphase))
2291
2292
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)))
2295
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)))
2298
2299         biog_cw03(i,k,j)= chem(i,k,j,lptr_biog1_c_aer(3,itype,iphase))
2300
2301
2302
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)))
2314
2315
2316                enddo
2317             enddo
2318          enddo
2319    enddo ! type
2320
2321
2322
2323    !do iphase=2,2 !set nphase_aer=2 for cloud-borne aerosols!BSINGH - Commented out
2324    iphase = 2
2325    do itype=1,ntype_aer
2326          do j=jts,jmax
2327             do k=kts,kmax
2328                do i=its,imax
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))
2331
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))
2334
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))
2341
2342         arosoa_cw04(i,k,j)= chem(i,k,j,lptr_ant1_c_aer(4,itype,iphase))
2343
2344
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)))
2347
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)))
2350
2351         biog_cw04(i,k,j)= chem(i,k,j,lptr_biog1_c_aer(4,itype,iphase))
2352
2353
2354
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)))
2366
2367
2368                enddo
2369             enddo
2370          enddo
2371    enddo ! type
2372
2373
2374    !do iphase=2,2 !set nphase_aer=1 for interstitial aerosols!BSINGH - Commented out
2375    iphase = 2
2376    do itype=1,ntype_aer
2377          if(nsize_aer(itype).ge.5) then
2378          do j=jts,jmax
2379             do k=kts,kmax
2380                do i=its,imax
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))
2383
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))
2386
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))
2393
2394         arosoa_cw05(i,k,j)= chem(i,k,j,lptr_ant1_c_aer(5,itype,iphase))
2395
2396
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)))
2399
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)))
2402
2403         biog_cw05(i,k,j)= chem(i,k,j,lptr_biog1_c_aer(5,itype,iphase))
2404
2405
2406
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)))
2418
2419
2420                enddo
2421             enddo
2422          enddo
2423         endif  ! check for number of size bins
2424    enddo ! type
2425
2426
2427
2428    !do iphase=2,2 !set nphase_aer=1 for interstitial aerosols!BSINGH - Commented out
2429    iphase = 2
2430    do itype=1,ntype_aer
2431          if(nsize_aer(itype).ge.6) then
2432          do j=jts,jmax
2433             do k=kts,kmax
2434                do i=its,imax
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))
2437
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))
2440
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))
2447
2448         arosoa_cw06(i,k,j)= chem(i,k,j,lptr_ant1_c_aer(6,itype,iphase))
2449
2450
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)))
2453
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)))
2456
2457         biog_cw06(i,k,j)= chem(i,k,j,lptr_biog1_c_aer(6,itype,iphase))
2458
2459
2460
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)))
2472
2473
2474                enddo
2475             enddo
2476          enddo
2477          endif ! size bins
2478    enddo ! type
2479
2480
2481    !do iphase=2,2 !set nphase_aer=1 for interstitial aerosols!BSINGH - Commented out
2482    iphase = 2
2483    do itype=1,ntype_aer
2484         if(nsize_aer(itype).ge.7) then
2485          do j=jts,jmax
2486             do k=kts,kmax
2487                do i=its,imax
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))
2490
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))
2493
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))
2500
2501         arosoa_cw07(i,k,j)= chem(i,k,j,lptr_ant1_c_aer(7,itype,iphase))
2502
2503
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)))
2506
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)))
2509
2510         biog_cw07(i,k,j)= chem(i,k,j,lptr_biog1_c_aer(7,itype,iphase))
2511
2512
2513
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)))
2525
2526
2527                enddo
2528             enddo
2529          enddo
2530           endif ! size bins
2531    enddo ! type
2532
2533
2534    !do iphase=2,2 !set nphase_aer=1 for interstitial aerosols!BSINGH - Commented out
2535    iphase = 2
2536    do itype=1,ntype_aer
2537          if(nsize_aer(itype).ge.8) then
2538          do j=jts,jmax
2539             do k=kts,kmax
2540                do i=its,imax
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))
2543
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))
2546
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))
2553
2554         arosoa_cw08(i,k,j)= chem(i,k,j,lptr_ant1_c_aer(8,itype,iphase))
2555
2556
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)))
2559
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)))
2562
2563         biog_cw08(i,k,j)= chem(i,k,j,lptr_biog1_c_aer(8,itype,iphase))
2564
2565
2566
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)))
2578
2579
2580                enddo
2581             enddo
2582          enddo
2583            endif ! size bins
2584    enddo ! type
2585
2586
2587
2588
2589
2590
2591    end subroutine sum_aq_vbs2
2592
2593 !BSINGH -ENDS
2594
2595 !----------------------------------------------------------------------
2596
2597 !-----------------------------------------------------------------------
2598
2599
2600        subroutine  sum_vbs4 ( aero_diag_opt,                           &
2601              alt, chem,                                                &
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                                  )
2611
2612    USE module_state_description, only: num_chem
2613    USE module_data_mosaic_asect
2614    IMPLICIT NONE
2615
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
2621
2622    REAL, DIMENSION( ims:ime, kms:kme, jms:jme ),                       &
2623          INTENT(IN) :: alt
2624
2625    REAL, DIMENSION( ims:ime, kms:kme, jms:jme, num_chem ),             &
2626          INTENT(IN ) :: 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
2634
2635
2636
2637    INTEGER :: i,imax,j,jmax,k,kmax,n,itype,iphase
2638
2639    imax = min(ite,ide-1)
2640    jmax = min(jte,jde-1)
2641    kmax = kte
2642
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.
2647
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.
2652
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.
2656
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.
2660
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.
2664
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.
2674    endif
2675
2676    do iphase=1,nphase_aer
2677       do itype=1,ntype_aer
2678          do j=jts,jmax
2679             do k=kts,kmax
2680                do i=its,imax
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))
2749                enddo
2750             enddo
2751          enddo
2752       enddo ! type
2753    enddo ! phase
2754
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
2759          do j=jts,jmax
2760             do k=kts,kmax
2761                do i=its,imax
2762
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))
2769
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))
2776
2777                  enddo
2778                enddo
2779              enddo
2780                     enddo
2781                   enddo
2782                enddo
2783
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)
2788
2789    do iphase=1,nphase_aer
2790    do itype=1,ntype_aer
2791          do j=jts,jmax
2792             do k=kts,kmax
2793                do i=its,imax
2794         hoa_a01(i,k,j)= hoa_a01(i,k,j) &
2795                        +chem(i,k,j,lptr_oc_aer(1,itype,iphase))
2796
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))
2813
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))
2819                enddo
2820             enddo
2821          enddo
2822    enddo ! type
2823    enddo ! phase
2824
2825    do iphase=1,nphase_aer
2826    do itype=1,ntype_aer
2827          do j=jts,jmax
2828             do k=kts,kmax
2829                do i=its,imax
2830         hoa_a02(i,k,j)= hoa_a02(i,k,j) &
2831                        +chem(i,k,j,lptr_oc_aer(2,itype,iphase))
2832
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))
2849
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))
2855                enddo
2856             enddo
2857          enddo
2858    enddo ! type
2859    enddo ! phase
2860
2861    do iphase=1,nphase_aer
2862    do itype=1,ntype_aer
2863          do j=jts,jmax
2864             do k=kts,kmax
2865                do i=its,imax
2866         hoa_a03(i,k,j)= hoa_a03(i,k,j) &
2867                        + chem(i,k,j,lptr_oc_aer(3,itype,iphase))
2868
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))
2885
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))
2891                enddo
2892             enddo
2893          enddo
2894    enddo ! type
2895    enddo ! phase
2896
2897    do iphase=1,nphase_aer
2898    do itype=1,ntype_aer
2899          do j=jts,jmax
2900             do k=kts,kmax
2901                do i=its,imax
2902         hoa_a04(i,k,j)= hoa_a04(i,k,j) &
2903                        + chem(i,k,j,lptr_oc_aer(4,itype,iphase))
2904
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))
2921
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))
2927                enddo
2928             enddo
2929          enddo
2930    enddo ! type
2931    enddo ! phase
2932    endif
2933
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)
2950
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)
2957
2958
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)
2965
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)
2972       endif
2973
2974    end subroutine sum_vbs4
2975
2976
2977
2978
2979
2980 !----------------------------------------------------------------------
2981       subroutine  sum_vbs9 (                                           &
2982              alt, chem,                                                &
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                                  )
2997
2998    USE module_state_description, only: num_chem
2999    USE module_data_mosaic_asect
3000    IMPLICIT NONE
3001
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
3006
3007    REAL, DIMENSION( ims:ime, kms:kme, jms:jme ),                       &
3008          INTENT(IN) :: alt
3009
3010    REAL, DIMENSION( ims:ime, kms:kme, jms:jme, num_chem ),             &
3011          INTENT(IN ) :: 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
3024
3025
3026
3027    INTEGER :: i,imax,j,jmax,k,kmax,n,itype,iphase
3028
3029    imax = min(ite,ide-1)
3030    jmax = min(jte,jde-1)
3031    kmax = kte
3032
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.
3041
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.
3050
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.
3059
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.
3068
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.
3082
3083
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
3087          do j=jts,jmax
3088             do k=kts,kmax
3089                do i=its,imax
3090
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
3106
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))
3122
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
3138
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))
3154
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))
3167
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))
3180
3181                  enddo
3182                enddo
3183              enddo
3184                     enddo
3185                   enddo
3186                enddo
3187
3188 ! NOTE - summation also wrong for code below, but not my code so did not fix...
3189
3190    do iphase=1,nphase_aer
3191    do itype=1,ntype_aer
3192          do j=jts,jmax
3193             do k=kts,kmax
3194                do i=its,imax
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))
3209
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))
3224
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))
3269
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))
3278
3279
3280
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))
3295
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))
3310
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))
3319
3320
3321
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))
3395
3396
3397                enddo
3398             enddo
3399          enddo
3400    enddo ! type
3401    enddo ! phase
3402
3403    do iphase=1,nphase_aer
3404    do itype=1,ntype_aer
3405          do j=jts,jmax
3406             do k=kts,kmax
3407                do i=its,imax
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))
3422
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))
3437
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))
3482
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))
3491
3492
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))
3507
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))
3522
3523
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))
3532
3533
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))
3607
3608                enddo
3609             enddo
3610          enddo
3611    enddo ! type
3612    enddo ! phase
3613
3614    do iphase=1,nphase_aer
3615    do itype=1,ntype_aer
3616          do j=jts,jmax
3617             do k=kts,kmax
3618                do i=its,imax
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))
3633
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))
3648
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))
3693
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))
3702
3703
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))
3718
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))
3733
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))
3742
3743
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))
3817
3818                enddo
3819             enddo
3820          enddo
3821    enddo ! type
3822    enddo ! phase
3823
3824    do iphase=1,nphase_aer
3825    do itype=1,ntype_aer
3826          do j=jts,jmax
3827             do k=kts,kmax
3828                do i=its,imax
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))
3843
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))
3858
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))
3903
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))
3912
3913
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))
3928
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))
3943
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))
3952
3953
3954
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))
4028
4029
4030                enddo
4031             enddo
4032          enddo
4033    enddo ! type
4034    enddo ! phase
4035
4036
4037    end subroutine sum_vbs9
4038
4039
4040 !-----------------------------------------------------------------------
4041         end module module_mosaic_sumpm
4042