chem/module_data_mosaic_other.F

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