chem/module_data_mosaic_boxmod.F

   1       module module_data_mosaic_boxmod
   2 !-----------------------------------------------------------------------
   3 !
   4 ! 2015-06-09 r.c.easter - changes to the MOSAIC box model version for use in WRF-Chem
   5 !
   6 ! Only a few variables are used in the WRF-Chem version.
   7 !
   8 !-----------------------------------------------------------------------
   9
  10       use module_data_mosaic_constants, only:  &
  11           avogad, deg2rad, pi, piover4, piover6, third
  12
  13       implicit none
  14
  15
  16       integer, save :: idiag_sect_coag = 0
  17
  18       integer, save :: idiag_sect_movesect = 0
  19
  20       integer, save :: idiag_sect_newnuc = 0
  21
  22       character(len=20), allocatable :: name_rbox(:)
  23
  24
  25 !------------------------------------------------------------------------
  26 !
  27 ! species indices in rbox array (and chem array too)
  28 ! for the gas species used in the mosaic aerosol chemistry code
  29 !
  30 ! (pointers for aerosol species are in module_data_mosaic_asecthp)
  31 !
  32       integer, save :: kh2so4     = -999888777
  33       integer, save :: khno3      = -999888777
  34       integer, save :: knh3       = -999888777
  35       integer, save :: khcl       = -999888777
  36       integer, save :: kmsa       = -999888777
  37       integer, save :: karo1      = -999888777
  38       integer, save :: karo2      = -999888777
  39       integer, save :: kalk1      = -999888777
  40       integer, save :: kole1      = -999888777
  41       integer, save :: kapi1      = -999888777
  42       integer, save :: kapi2      = -999888777
  43       integer, save :: klim1      = -999888777
  44       integer, save :: klim2      = -999888777
  45       integer, save :: kn2o5      = -999888777
  46       integer, save :: kclno2     = -999888777
  47       integer, save :: ko3        = -999888777
  48       integer, save :: kpcg1_b_c  = -999888777
  49       integer, save :: kpcg2_b_c  = -999888777
  50       integer, save :: kpcg3_b_c  = -999888777
  51       integer, save :: kpcg4_b_c  = -999888777
  52       integer, save :: kpcg5_b_c  = -999888777
  53       integer, save :: kpcg6_b_c  = -999888777
  54       integer, save :: kpcg7_b_c  = -999888777
  55       integer, save :: kpcg8_b_c  = -999888777
  56       integer, save :: kpcg9_b_c  = -999888777
  57       integer, save :: kpcg1_b_o  = -999888777
  58       integer, save :: kpcg2_b_o  = -999888777
  59       integer, save :: kpcg3_b_o  = -999888777
  60       integer, save :: kpcg4_b_o  = -999888777
  61       integer, save :: kpcg5_b_o  = -999888777
  62       integer, save :: kpcg6_b_o  = -999888777
  63       integer, save :: kpcg7_b_o  = -999888777
  64       integer, save :: kpcg8_b_o  = -999888777
  65       integer, save :: kpcg9_b_o  = -999888777
  66       integer, save :: kopcg1_b_c = -999888777
  67       integer, save :: kopcg2_b_c = -999888777
  68       integer, save :: kopcg3_b_c = -999888777
  69       integer, save :: kopcg4_b_c = -999888777
  70       integer, save :: kopcg5_b_c = -999888777
  71       integer, save :: kopcg6_b_c = -999888777
  72       integer, save :: kopcg7_b_c = -999888777
  73       integer, save :: kopcg8_b_c = -999888777
  74       integer, save :: kopcg1_b_o = -999888777
  75       integer, save :: kopcg2_b_o = -999888777
  76       integer, save :: kopcg3_b_o = -999888777
  77       integer, save :: kopcg4_b_o = -999888777
  78       integer, save :: kopcg5_b_o = -999888777
  79       integer, save :: kopcg6_b_o = -999888777
  80       integer, save :: kopcg7_b_o = -999888777
  81       integer, save :: kopcg8_b_o = -999888777
  82       integer, save :: kpcg1_f_c  = -999888777
  83       integer, save :: kpcg2_f_c  = -999888777
  84       integer, save :: kpcg3_f_c  = -999888777
  85       integer, save :: kpcg4_f_c  = -999888777
  86       integer, save :: kpcg5_f_c  = -999888777
  87       integer, save :: kpcg6_f_c  = -999888777
  88       integer, save :: kpcg7_f_c  = -999888777
  89       integer, save :: kpcg8_f_c  = -999888777
  90       integer, save :: kpcg9_f_c  = -999888777
  91       integer, save :: kpcg1_f_o  = -999888777
  92       integer, save :: kpcg2_f_o  = -999888777
  93       integer, save :: kpcg3_f_o  = -999888777
  94       integer, save :: kpcg4_f_o  = -999888777
  95       integer, save :: kpcg5_f_o  = -999888777
  96       integer, save :: kpcg6_f_o  = -999888777
  97       integer, save :: kpcg7_f_o  = -999888777
  98       integer, save :: kpcg8_f_o  = -999888777
  99       integer, save :: kpcg9_f_o  = -999888777
 100       integer, save :: kopcg1_f_c = -999888777
 101       integer, save :: kopcg2_f_c = -999888777
 102       integer, save :: kopcg3_f_c = -999888777
 103       integer, save :: kopcg4_f_c = -999888777
 104       integer, save :: kopcg5_f_c = -999888777
 105       integer, save :: kopcg6_f_c = -999888777
 106       integer, save :: kopcg7_f_c = -999888777
 107       integer, save :: kopcg8_f_c = -999888777
 108       integer, save :: kopcg1_f_o = -999888777
 109       integer, save :: kopcg2_f_o = -999888777
 110       integer, save :: kopcg3_f_o = -999888777
 111       integer, save :: kopcg4_f_o = -999888777
 112       integer, save :: kopcg5_f_o = -999888777
 113       integer, save :: kopcg6_f_o = -999888777
 114       integer, save :: kopcg7_f_o = -999888777
 115       integer, save :: kopcg8_f_o = -999888777
 116       integer, save :: ksmpa      = -999888777
 117       integer, save :: ksmpbb     = -999888777
 118 !     integer, save :: kiepox     = -999888777
 119 !     integer, save :: kgly       = -999888777
 120       integer, save :: kant1_c    = -999888777
 121       integer, save :: kant2_c    = -999888777
 122       integer, save :: kant3_c    = -999888777
 123       integer, save :: kant4_c    = -999888777
 124       integer, save :: kant1_o    = -999888777
 125       integer, save :: kant2_o    = -999888777
 126       integer, save :: kant3_o    = -999888777
 127       integer, save :: kant4_o    = -999888777
 128       integer, save :: kbiog1_c   = -999888777
 129       integer, save :: kbiog2_c   = -999888777
 130       integer, save :: kbiog3_c   = -999888777
 131       integer, save :: kbiog4_c   = -999888777
 132       integer, save :: kbiog1_o   = -999888777
 133       integer, save :: kbiog2_o   = -999888777
 134       integer, save :: kbiog3_o   = -999888777
 135       integer, save :: kbiog4_o   = -999888777
 136       integer, save :: kso2       = -999888777
 137       integer, save :: kh2o2      = -999888777
 138       integer, save :: khcho      = -999888777
 139       integer, save :: khcooh     = -999888777
 140       integer, save :: koh        = -999888777
 141       integer, save :: kho2       = -999888777
 142       integer, save :: kno3       = -999888777
 143       integer, save :: kno        = -999888777
 144       integer, save :: kno2       = -999888777
 145       integer, save :: khono      = -999888777
 146       integer, save :: kpan       = -999888777
 147       integer, save :: kch3o2     = -999888777
 148       integer, save :: kch3oh     = -999888777
 149       integer, save :: kch3ooh    = -999888777
 150
 151 !     integer, save ::   &
 152 !      kh2so4,      khno3,       khcl,        knh3,        kno,   &
 153 !      kno2,        kno3,        kn2o5,       khono,       khno4,   &
 154 !      ko3,         ko1d,        ko3p,        koh,         kho2,   &
 155 !      kh2o2,       kco,         kso2,        kch4,        kc2h6,   &
 156 !      kch3o2,      kethp,       khcho,       kch3oh,      kanol,   &
 157 !      kch3ooh,     kethooh,     kald2,       khcooh,      krcooh,   &
 158 !      kc2o3,       kpan,   &
 159 !      karo1,       karo2,       kalk1,       kole1,       kapi1,   &
 160 !      kapi2,       klim1,       klim2,   &
 161 !      kpar,        kaone,       kmgly,       keth,        kolet,   &
 162 !      kolei,       ktol,        kxyl,        kcres,       kto2,   &
 163 !      kcro,        kopen,       konit,       krooh,       kro2,   &
 164 !      kano2,       knap,        kxo2,        kxpar,   &
 165 !      kisop,       kisoprd,     kisopp,      kisopn,      kisopo2,   &
 166 !      kapi,        klim,   &
 167 !      kdms,        kmsa,        kdmso,       kdmso2,      kch3so2h,   &
 168 !      kch3sch2oo,  kch3so2,     kch3so3,     kch3so2ch2oo,kch3so2oo,   &
 169 !      ksulfhox
 170
 171 ! none of these should be needed in wrf-chem
 172 !     integer, save ::   &
 173 !      knum_a,      kdpdry_a,    ksigmag_a,  kjhyst_a,   &
 174 !      kwater_a,    kso4_a,      kno3_a,     kcl_a,       knh4_a,   &
 175 !      koc_a,       kmsa_a,      kco3_a,     kna_a,       kca_a,   &
 176 !      kbc_a,       koin_a,      karo1_a,    karo2_a,     kalk1_a,   &
 177 !      kole1_a,     kapi1_a,     kapi2_a,    klim1_a,     klim2_a
 178
 179 ! none of these should be needed in wrf-chem
 180 !     integer, save ::   &
 181 !      knum_c,      kwater_c,    kso4_c,     kno3_c,     kcl_c,   &
 182 !      kmsa_c,      kco3_c,      knh4_c,     kna_c,      kca_c,   &
 183 !      koc_c,       kbc_c,       koin_c,   &
 184 !      karo1_c,     karo2_c,     kalk1_c,    kole1_c,    kapi1_c,   &
 185 !      kapi2_c,     klim1_c,     klim2_c
 186
 187
 188 !------------------------------------------------------------------------
 189
 190       end module module_data_mosaic_boxmod