module_data_mosaic_other.F
References to this file elsewhere.
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
21
22 integer, parameter :: imaxd=1, jmaxd=1, kmaxd=100
23
24 integer, parameter :: lmaxd=184, l2maxd=184
25
26 integer, parameter :: nsubareamaxd = 1
27
28 ! rce 2005-mar-09 - added k_pegbegin
29 ! k_pegbegin = starting k index for pegasus arrays
30 integer, parameter :: k_pegbegin = 1
31
32
33 integer, save :: khno3 = -999888777
34 integer, save :: kh2so4 = -999888777
35 integer, save :: knh3 = -999888777
36 integer, save :: khcl = -999888777
37 integer, save :: ko3 = -999888777
38 integer, save :: kh2o = -999888777
39 integer, save :: ktemp = -999888777
40
41 ! rce 2005-apr-12 - added for cldchem - kso2, kh2o2, khcho, khcooh,
42 ! koh, kho2, kno3, kno, kno2, khono, kpan, kch3o2, kch3oh, kch3ooh
43 integer, save :: kso2 = -999888777
44 integer, save :: kh2o2 = -999888777
45 integer, save :: khcho = -999888777
46 integer, save :: khcooh = -999888777
47 integer, save :: koh = -999888777
48 integer, save :: kho2 = -999888777
49 integer, save :: kno3 = -999888777
50 integer, save :: kno = -999888777
51 integer, save :: kno2 = -999888777
52 integer, save :: khono = -999888777
53 integer, save :: kpan = -999888777
54 integer, save :: kch3o2 = -999888777
55 integer, save :: kch3oh = -999888777
56 integer, save :: kch3ooh = -999888777
57
58 ! the following values are correct for wrfchem simulations
59 integer, save :: lunerr=-1, lunout=-1
60
61 integer, save :: ltot=+999888777, ltot2=+999888777
62
63 integer, save :: itot, jtot, ktot
64 integer, save :: isvode, jsvode, ksvode, msvode
65 integer, save :: iymdcur, ihmscur
66 integer, save :: ncorecnt
67 integer, save :: nsubareas
68
69
70 real, parameter :: pi = 3.14159265
71
72 real, save :: afracsubarea(kmaxd,nsubareamaxd)
73 real, save :: cairclm(kmaxd)
74 real, save :: ptotclm(kmaxd)
75 real, save :: rclm(kmaxd,l2maxd)
76 real, save :: relhumclm(kmaxd)
77 real, save :: rsub(l2maxd,kmaxd,nsubareamaxd)
78 real, save :: t
79
80
81 character(len=20), save :: name(l2maxd)
82
83
84 ! control variables for box-model testing
85 ! the following values are correct for wrfchem simulations
86 integer, save :: aboxtest_testmode = 0
87 integer, save :: aboxtest_units_convert = 1
88 integer, save :: aboxtest_rh_method = 1
89 integer, save :: aboxtest_map_method = 1
90 integer, save :: aboxtest_gases_fixed = 0
91
92 real, save :: aboxtest_min_temp = 233.0
93 real, save :: aboxtest_min_relhum = 0.05
94 real, save :: aboxtest_max_relhum = 0.98
95
96
97 end module module_data_mosaic_other