wrfv2_fire/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 information 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=283, l2maxd=283
  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 :: ko3     = -999888777
  40         integer, save :: kh2o    = -999888777
  41         integer, save :: ktemp   = -999888777
  42
  43 !   rce 2005-apr-12 - added for cldchem - kso2, kh2o2, khcho, khcooh,
  44 !   koh, kho2, kno3, kno, kno2, khono, kpan, kch3o2, kch3oh, kch3ooh
  45         integer, save :: kso2    = -999888777
  46         integer, save :: kh2o2   = -999888777
  47         integer, save :: khcho   = -999888777
  48         integer, save :: khcooh  = -999888777
  49         integer, save :: koh     = -999888777
  50         integer, save :: kho2    = -999888777
  51         integer, save :: kno3    = -999888777
  52         integer, save :: kno     = -999888777
  53         integer, save :: kno2    = -999888777
  54         integer, save :: khono   = -999888777
  55         integer, save :: kpan    = -999888777
  56         integer, save :: kch3o2  = -999888777
  57         integer, save :: kch3oh  = -999888777
  58         integer, save :: kch3ooh = -999888777
  59
  60 !   the following values are correct for wrfchem simulations
  61         integer, save :: lunerr=-1, lunout=-1
  62
  63         integer, save :: ltot=+999888777, ltot2=+999888777
  64
  65         integer, save :: itot, jtot, ktot
  66         integer, save :: isvode, jsvode, ksvode, msvode
  67         integer, save :: iymdcur, ihmscur
  68         integer, save :: ncorecnt
  69         integer, save :: nsubareas
  70
  71
  72         real, parameter :: pi = 3.14159265
  73
  74         real, save :: afracsubarea(kmaxd,nsubareamaxd)
  75         real, save :: cairclm(kmaxd)
  76         real, save :: ptotclm(kmaxd)
  77         real, save :: rclm(kmaxd,l2maxd)
  78         real, save :: relhumclm(kmaxd)
  79         real, save :: rcldwtr_sub(kmaxd,nsubareamaxd)
  80         real, save :: rsub(l2maxd,kmaxd,nsubareamaxd)
  81         real, save :: t
  82
  83
  84         character(len=20), save :: name(l2maxd)
  85
  86
  87 !   control variables for box-model testing
  88 !   the following values are correct for wrfchem simulations
  89         integer, save :: aboxtest_testmode = 0
  90         integer, save :: aboxtest_units_convert = 1
  91         integer, save :: aboxtest_rh_method = 1
  92         integer, save :: aboxtest_map_method = 1
  93         integer, save :: aboxtest_gases_fixed = 0
  94
  95         real, save :: aboxtest_min_temp = 233.0
  96         real, save :: aboxtest_min_relhum = 0.05
  97         real, save :: aboxtest_max_relhum = 0.98
  98
  99
 100         end module module_data_mosaic_other