Line data Source code
1 : module mo_rxt_rates_conv
2 : use shr_kind_mod, only : r8 => shr_kind_r8
3 : implicit none
4 : private
5 : public :: set_rates
6 : contains
7 153600 : subroutine set_rates( rxt_rates, sol, ncol )
8 : real(r8), intent(inout) :: rxt_rates(:,:,:)
9 : real(r8), intent(in) :: sol(:,:,:)
10 : integer, intent(in) :: ncol
11 165734400 : rxt_rates(:ncol,:, 1) = rxt_rates(:ncol,:, 1)*sol(:ncol,:, 81) ! rate_const*H2O
12 165734400 : rxt_rates(:ncol,:, 2) = rxt_rates(:ncol,:, 2)*sol(:ncol,:, 81) ! rate_const*H2O
13 165734400 : rxt_rates(:ncol,:, 3) = rxt_rates(:ncol,:, 3)*sol(:ncol,:, 81) ! rate_const*H2O
14 165734400 : rxt_rates(:ncol,:, 4) = rxt_rates(:ncol,:, 4)*sol(:ncol,:, 38) ! rate_const*H2O2
15 165734400 : rxt_rates(:ncol,:, 5) = rxt_rates(:ncol,:, 5)*sol(:ncol,:, 57) ! rate_const*O2
16 165734400 : rxt_rates(:ncol,:, 6) = rxt_rates(:ncol,:, 6)*sol(:ncol,:, 57) ! rate_const*O2
17 165734400 : rxt_rates(:ncol,:, 7) = rxt_rates(:ncol,:, 7)*sol(:ncol,:, 58) ! rate_const*O3
18 165734400 : rxt_rates(:ncol,:, 8) = rxt_rates(:ncol,:, 8)*sol(:ncol,:, 58) ! rate_const*O3
19 165734400 : rxt_rates(:ncol,:, 9) = rxt_rates(:ncol,:, 9)*sol(:ncol,:, 46) ! rate_const*HNO3
20 165734400 : rxt_rates(:ncol,:, 10) = rxt_rates(:ncol,:, 10)*sol(:ncol,:, 47) ! rate_const*HO2NO2
21 165734400 : rxt_rates(:ncol,:, 11) = rxt_rates(:ncol,:, 11)*sol(:ncol,:, 47) ! rate_const*HO2NO2
22 165734400 : rxt_rates(:ncol,:, 12) = rxt_rates(:ncol,:, 12)*sol(:ncol,:, 51) ! rate_const*N2O
23 165734400 : rxt_rates(:ncol,:, 13) = rxt_rates(:ncol,:, 13)*sol(:ncol,:, 52) ! rate_const*N2O5
24 165734400 : rxt_rates(:ncol,:, 14) = rxt_rates(:ncol,:, 14)*sol(:ncol,:, 52) ! rate_const*N2O5
25 165734400 : rxt_rates(:ncol,:, 15) = rxt_rates(:ncol,:, 15)*sol(:ncol,:, 53) ! rate_const*NO
26 165734400 : rxt_rates(:ncol,:, 16) = rxt_rates(:ncol,:, 16)*sol(:ncol,:, 53) ! rate_const*NO
27 165734400 : rxt_rates(:ncol,:, 17) = rxt_rates(:ncol,:, 17)*sol(:ncol,:, 54) ! rate_const*NO2
28 165734400 : rxt_rates(:ncol,:, 18) = rxt_rates(:ncol,:, 18)*sol(:ncol,:, 55) ! rate_const*NO3
29 165734400 : rxt_rates(:ncol,:, 19) = rxt_rates(:ncol,:, 19)*sol(:ncol,:, 55) ! rate_const*NO3
30 165734400 : rxt_rates(:ncol,:, 20) = rxt_rates(:ncol,:, 20)*sol(:ncol,:, 15) ! rate_const*CH2O
31 165734400 : rxt_rates(:ncol,:, 21) = rxt_rates(:ncol,:, 21)*sol(:ncol,:, 15) ! rate_const*CH2O
32 165734400 : rxt_rates(:ncol,:, 22) = rxt_rates(:ncol,:, 22)*sol(:ncol,:, 20) ! rate_const*CH3OOH
33 165734400 : rxt_rates(:ncol,:, 23) = rxt_rates(:ncol,:, 23)*sol(:ncol,:, 21) ! rate_const*CH4
34 165734400 : rxt_rates(:ncol,:, 24) = rxt_rates(:ncol,:, 24)*sol(:ncol,:, 21) ! rate_const*CH4
35 165734400 : rxt_rates(:ncol,:, 25) = rxt_rates(:ncol,:, 25)*sol(:ncol,:, 30) ! rate_const*CO2
36 165734400 : rxt_rates(:ncol,:, 26) = rxt_rates(:ncol,:, 26)*sol(:ncol,:, 2) ! rate_const*BRCL
37 165734400 : rxt_rates(:ncol,:, 27) = rxt_rates(:ncol,:, 27)*sol(:ncol,:, 3) ! rate_const*BRO
38 165734400 : rxt_rates(:ncol,:, 28) = rxt_rates(:ncol,:, 28)*sol(:ncol,:, 4) ! rate_const*BRONO2
39 165734400 : rxt_rates(:ncol,:, 29) = rxt_rates(:ncol,:, 29)*sol(:ncol,:, 4) ! rate_const*BRONO2
40 165734400 : rxt_rates(:ncol,:, 30) = rxt_rates(:ncol,:, 30)*sol(:ncol,:, 6) ! rate_const*CCL4
41 165734400 : rxt_rates(:ncol,:, 31) = rxt_rates(:ncol,:, 31)*sol(:ncol,:, 7) ! rate_const*CF2CLBR
42 165734400 : rxt_rates(:ncol,:, 32) = rxt_rates(:ncol,:, 32)*sol(:ncol,:, 8) ! rate_const*CF3BR
43 165734400 : rxt_rates(:ncol,:, 33) = rxt_rates(:ncol,:, 33)*sol(:ncol,:, 9) ! rate_const*CFC11
44 165734400 : rxt_rates(:ncol,:, 34) = rxt_rates(:ncol,:, 34)*sol(:ncol,:, 10) ! rate_const*CFC113
45 165734400 : rxt_rates(:ncol,:, 35) = rxt_rates(:ncol,:, 35)*sol(:ncol,:, 11) ! rate_const*CFC114
46 165734400 : rxt_rates(:ncol,:, 36) = rxt_rates(:ncol,:, 36)*sol(:ncol,:, 12) ! rate_const*CFC115
47 165734400 : rxt_rates(:ncol,:, 37) = rxt_rates(:ncol,:, 37)*sol(:ncol,:, 13) ! rate_const*CFC12
48 165734400 : rxt_rates(:ncol,:, 38) = rxt_rates(:ncol,:, 38)*sol(:ncol,:, 14) ! rate_const*CH2BR2
49 165734400 : rxt_rates(:ncol,:, 39) = rxt_rates(:ncol,:, 39)*sol(:ncol,:, 16) ! rate_const*CH3BR
50 165734400 : rxt_rates(:ncol,:, 40) = rxt_rates(:ncol,:, 40)*sol(:ncol,:, 17) ! rate_const*CH3CCL3
51 165734400 : rxt_rates(:ncol,:, 41) = rxt_rates(:ncol,:, 41)*sol(:ncol,:, 18) ! rate_const*CH3CL
52 165734400 : rxt_rates(:ncol,:, 42) = rxt_rates(:ncol,:, 42)*sol(:ncol,:, 22) ! rate_const*CHBR3
53 165734400 : rxt_rates(:ncol,:, 43) = rxt_rates(:ncol,:, 43)*sol(:ncol,:, 24) ! rate_const*CL2
54 165734400 : rxt_rates(:ncol,:, 44) = rxt_rates(:ncol,:, 44)*sol(:ncol,:, 25) ! rate_const*CL2O2
55 165734400 : rxt_rates(:ncol,:, 45) = rxt_rates(:ncol,:, 45)*sol(:ncol,:, 26) ! rate_const*CLO
56 165734400 : rxt_rates(:ncol,:, 46) = rxt_rates(:ncol,:, 46)*sol(:ncol,:, 27) ! rate_const*CLONO2
57 165734400 : rxt_rates(:ncol,:, 47) = rxt_rates(:ncol,:, 47)*sol(:ncol,:, 27) ! rate_const*CLONO2
58 165734400 : rxt_rates(:ncol,:, 48) = rxt_rates(:ncol,:, 48)*sol(:ncol,:, 31) ! rate_const*COF2
59 165734400 : rxt_rates(:ncol,:, 49) = rxt_rates(:ncol,:, 49)*sol(:ncol,:, 32) ! rate_const*COFCL
60 165734400 : rxt_rates(:ncol,:, 50) = rxt_rates(:ncol,:, 50)*sol(:ncol,:, 37) ! rate_const*H2402
61 165734400 : rxt_rates(:ncol,:, 51) = rxt_rates(:ncol,:, 51)*sol(:ncol,:, 40) ! rate_const*HBR
62 165734400 : rxt_rates(:ncol,:, 52) = rxt_rates(:ncol,:, 52)*sol(:ncol,:, 41) ! rate_const*HCFC141B
63 165734400 : rxt_rates(:ncol,:, 53) = rxt_rates(:ncol,:, 53)*sol(:ncol,:, 42) ! rate_const*HCFC142B
64 165734400 : rxt_rates(:ncol,:, 54) = rxt_rates(:ncol,:, 54)*sol(:ncol,:, 43) ! rate_const*HCFC22
65 165734400 : rxt_rates(:ncol,:, 55) = rxt_rates(:ncol,:, 55)*sol(:ncol,:, 44) ! rate_const*HCL
66 165734400 : rxt_rates(:ncol,:, 56) = rxt_rates(:ncol,:, 56)*sol(:ncol,:, 45) ! rate_const*HF
67 165734400 : rxt_rates(:ncol,:, 57) = rxt_rates(:ncol,:, 57)*sol(:ncol,:, 48) ! rate_const*HOBR
68 165734400 : rxt_rates(:ncol,:, 58) = rxt_rates(:ncol,:, 58)*sol(:ncol,:, 49) ! rate_const*HOCL
69 165734400 : rxt_rates(:ncol,:, 59) = rxt_rates(:ncol,:, 59)*sol(:ncol,:, 59) ! rate_const*OCLO
70 165734400 : rxt_rates(:ncol,:, 60) = rxt_rates(:ncol,:, 60)*sol(:ncol,:, 62) ! rate_const*SF6
71 165734400 : rxt_rates(:ncol,:, 61) = rxt_rates(:ncol,:, 61)*sol(:ncol,:, 30) ! rate_const*CO2
72 165734400 : rxt_rates(:ncol,:, 62) = rxt_rates(:ncol,:, 62)*sol(:ncol,:, 50) ! rate_const*N
73 : ! rate_const*N2
74 : ! rate_const*N2
75 : ! rate_const*N2
76 : ! rate_const*N2
77 : ! rate_const*N2
78 : ! rate_const*N2
79 : ! rate_const*N2
80 : ! rate_const*N2
81 165734400 : rxt_rates(:ncol,:, 71) = rxt_rates(:ncol,:, 71)*sol(:ncol,:, 56) ! rate_const*O
82 165734400 : rxt_rates(:ncol,:, 72) = rxt_rates(:ncol,:, 72)*sol(:ncol,:, 56) ! rate_const*O
83 165734400 : rxt_rates(:ncol,:, 73) = rxt_rates(:ncol,:, 73)*sol(:ncol,:, 56) ! rate_const*O
84 165734400 : rxt_rates(:ncol,:, 74) = rxt_rates(:ncol,:, 74)*sol(:ncol,:, 56) ! rate_const*O
85 165734400 : rxt_rates(:ncol,:, 75) = rxt_rates(:ncol,:, 75)*sol(:ncol,:, 56) ! rate_const*O
86 165734400 : rxt_rates(:ncol,:, 76) = rxt_rates(:ncol,:, 76)*sol(:ncol,:, 56) ! rate_const*O
87 165734400 : rxt_rates(:ncol,:, 77) = rxt_rates(:ncol,:, 77)*sol(:ncol,:, 57) ! rate_const*O2
88 165734400 : rxt_rates(:ncol,:, 78) = rxt_rates(:ncol,:, 78)*sol(:ncol,:, 57) ! rate_const*O2
89 165734400 : rxt_rates(:ncol,:, 79) = rxt_rates(:ncol,:, 79)*sol(:ncol,:, 57) ! rate_const*O2
90 165734400 : rxt_rates(:ncol,:, 80) = rxt_rates(:ncol,:, 80)*sol(:ncol,:, 57) ! rate_const*O2
91 165734400 : rxt_rates(:ncol,:, 81) = rxt_rates(:ncol,:, 81)*sol(:ncol,:, 57) ! rate_const*O2
92 165734400 : rxt_rates(:ncol,:, 82) = rxt_rates(:ncol,:, 82)*sol(:ncol,:, 57) ! rate_const*O2
93 165734400 : rxt_rates(:ncol,:, 83) = rxt_rates(:ncol,:, 83)*sol(:ncol,:, 57) ! rate_const*O2
94 165734400 : rxt_rates(:ncol,:, 84) = rxt_rates(:ncol,:, 84)*sol(:ncol,:, 57) ! rate_const*O2
95 165734400 : rxt_rates(:ncol,:, 85) = rxt_rates(:ncol,:, 85)*sol(:ncol,:, 57) ! rate_const*O2
96 165734400 : rxt_rates(:ncol,:, 86) = rxt_rates(:ncol,:, 86)*sol(:ncol,:, 57) ! rate_const*O2
97 165734400 : rxt_rates(:ncol,:, 87) = rxt_rates(:ncol,:, 87)*sol(:ncol,:, 39) ! rate_const*H2SO4
98 165734400 : rxt_rates(:ncol,:, 88) = rxt_rates(:ncol,:, 88)*sol(:ncol,:, 60) ! rate_const*OCS
99 165734400 : rxt_rates(:ncol,:, 89) = rxt_rates(:ncol,:, 89)*sol(:ncol,:, 63) ! rate_const*SO
100 165734400 : rxt_rates(:ncol,:, 90) = rxt_rates(:ncol,:, 90)*sol(:ncol,:, 64) ! rate_const*SO2
101 165734400 : rxt_rates(:ncol,:, 91) = rxt_rates(:ncol,:, 91)*sol(:ncol,:, 65) ! rate_const*SO3
102 165734400 : rxt_rates(:ncol,:, 92) = rxt_rates(:ncol,:, 92)*sol(:ncol,:, 74) ! rate_const*O2_1D
103 165734400 : rxt_rates(:ncol,:, 93) = rxt_rates(:ncol,:, 93)*sol(:ncol,:, 75) ! rate_const*O2_1S
104 165734400 : rxt_rates(:ncol,:, 94) = rxt_rates(:ncol,:, 94)*sol(:ncol,:, 73)*sol(:ncol,:, 36) ! rate_const*O1D*H2
105 165734400 : rxt_rates(:ncol,:, 95) = rxt_rates(:ncol,:, 95)*sol(:ncol,:, 73)*sol(:ncol,:, 81) ! rate_const*O1D*H2O
106 165734400 : rxt_rates(:ncol,:, 96) = rxt_rates(:ncol,:, 96)*sol(:ncol,:, 73) ! rate_const*N2*O1D
107 165734400 : rxt_rates(:ncol,:, 97) = rxt_rates(:ncol,:, 97)*sol(:ncol,:, 73)*sol(:ncol,:, 57) ! rate_const*O1D*O2
108 165734400 : rxt_rates(:ncol,:, 98) = rxt_rates(:ncol,:, 98)*sol(:ncol,:, 73)*sol(:ncol,:, 57) ! rate_const*O1D*O2
109 165734400 : rxt_rates(:ncol,:, 99) = rxt_rates(:ncol,:, 99)*sol(:ncol,:, 73)*sol(:ncol,:, 58) ! rate_const*O1D*O3
110 165734400 : rxt_rates(:ncol,:, 100) = rxt_rates(:ncol,:, 100)*sol(:ncol,:, 74) ! rate_const*N2*O2_1D
111 165734400 : rxt_rates(:ncol,:, 101) = rxt_rates(:ncol,:, 101)*sol(:ncol,:, 74)*sol(:ncol,:, 56) ! rate_const*O2_1D*O
112 165734400 : rxt_rates(:ncol,:, 102) = rxt_rates(:ncol,:, 102)*sol(:ncol,:, 74)*sol(:ncol,:, 57) ! rate_const*O2_1D*O2
113 165734400 : rxt_rates(:ncol,:, 103) = rxt_rates(:ncol,:, 103)*sol(:ncol,:, 75)*sol(:ncol,:, 30) ! rate_const*O2_1S*CO2
114 165734400 : rxt_rates(:ncol,:, 104) = rxt_rates(:ncol,:, 104)*sol(:ncol,:, 75) ! rate_const*N2*O2_1S
115 165734400 : rxt_rates(:ncol,:, 105) = rxt_rates(:ncol,:, 105)*sol(:ncol,:, 75)*sol(:ncol,:, 56) ! rate_const*O2_1S*O
116 165734400 : rxt_rates(:ncol,:, 106) = rxt_rates(:ncol,:, 106)*sol(:ncol,:, 75)*sol(:ncol,:, 57) ! rate_const*O2_1S*O2
117 165734400 : rxt_rates(:ncol,:, 107) = rxt_rates(:ncol,:, 107)*sol(:ncol,:, 75)*sol(:ncol,:, 58) ! rate_const*O2_1S*O3
118 165734400 : rxt_rates(:ncol,:, 108) = rxt_rates(:ncol,:, 108)*sol(:ncol,:, 56)*sol(:ncol,:, 58) ! rate_const*O*O3
119 165734400 : rxt_rates(:ncol,:, 109) = rxt_rates(:ncol,:, 109)*sol(:ncol,:, 56)*sol(:ncol,:, 56) ! rate_const*M*O*O
120 165734400 : rxt_rates(:ncol,:, 110) = rxt_rates(:ncol,:, 110)*sol(:ncol,:, 56)*sol(:ncol,:, 57) ! rate_const*M*O*O2
121 165734400 : rxt_rates(:ncol,:, 111) = rxt_rates(:ncol,:, 111)*sol(:ncol,:, 36)*sol(:ncol,:, 56) ! rate_const*H2*O
122 165734400 : rxt_rates(:ncol,:, 112) = rxt_rates(:ncol,:, 112)*sol(:ncol,:, 38)*sol(:ncol,:, 56) ! rate_const*H2O2*O
123 165734400 : rxt_rates(:ncol,:, 113) = rxt_rates(:ncol,:, 113)*sol(:ncol,:, 35)*sol(:ncol,:, 68) ! rate_const*H*HO2
124 165734400 : rxt_rates(:ncol,:, 114) = rxt_rates(:ncol,:, 114)*sol(:ncol,:, 35)*sol(:ncol,:, 68) ! rate_const*H*HO2
125 165734400 : rxt_rates(:ncol,:, 115) = rxt_rates(:ncol,:, 115)*sol(:ncol,:, 35)*sol(:ncol,:, 68) ! rate_const*H*HO2
126 165734400 : rxt_rates(:ncol,:, 116) = rxt_rates(:ncol,:, 116)*sol(:ncol,:, 35)*sol(:ncol,:, 57) ! rate_const*M*H*O2
127 165734400 : rxt_rates(:ncol,:, 117) = rxt_rates(:ncol,:, 117)*sol(:ncol,:, 68)*sol(:ncol,:, 56) ! rate_const*HO2*O
128 165734400 : rxt_rates(:ncol,:, 118) = rxt_rates(:ncol,:, 118)*sol(:ncol,:, 68)*sol(:ncol,:, 58) ! rate_const*HO2*O3
129 165734400 : rxt_rates(:ncol,:, 119) = rxt_rates(:ncol,:, 119)*sol(:ncol,:, 35)*sol(:ncol,:, 58) ! rate_const*H*O3
130 165734400 : rxt_rates(:ncol,:, 120) = rxt_rates(:ncol,:, 120)*sol(:ncol,:, 77)*sol(:ncol,:, 36) ! rate_const*OH*H2
131 165734400 : rxt_rates(:ncol,:, 121) = rxt_rates(:ncol,:, 121)*sol(:ncol,:, 77)*sol(:ncol,:, 38) ! rate_const*OH*H2O2
132 165734400 : rxt_rates(:ncol,:, 122) = rxt_rates(:ncol,:, 122)*sol(:ncol,:, 77)*sol(:ncol,:, 68) ! rate_const*OH*HO2
133 165734400 : rxt_rates(:ncol,:, 123) = rxt_rates(:ncol,:, 123)*sol(:ncol,:, 77)*sol(:ncol,:, 56) ! rate_const*OH*O
134 165734400 : rxt_rates(:ncol,:, 124) = rxt_rates(:ncol,:, 124)*sol(:ncol,:, 77)*sol(:ncol,:, 58) ! rate_const*OH*O3
135 165734400 : rxt_rates(:ncol,:, 125) = rxt_rates(:ncol,:, 125)*sol(:ncol,:, 77)*sol(:ncol,:, 77) ! rate_const*OH*OH
136 165734400 : rxt_rates(:ncol,:, 126) = rxt_rates(:ncol,:, 126)*sol(:ncol,:, 77)*sol(:ncol,:, 77) ! rate_const*M*OH*OH
137 165734400 : rxt_rates(:ncol,:, 127) = rxt_rates(:ncol,:, 127)*sol(:ncol,:, 68)*sol(:ncol,:, 68) ! rate_const*HO2*HO2
138 165734400 : rxt_rates(:ncol,:, 128) = rxt_rates(:ncol,:, 128)*sol(:ncol,:, 47)*sol(:ncol,:, 77) ! rate_const*HO2NO2*OH
139 165734400 : rxt_rates(:ncol,:, 129) = rxt_rates(:ncol,:, 129)*sol(:ncol,:, 69)*sol(:ncol,:, 56) ! rate_const*N2D*O
140 165734400 : rxt_rates(:ncol,:, 130) = rxt_rates(:ncol,:, 130)*sol(:ncol,:, 69)*sol(:ncol,:, 57) ! rate_const*N2D*O2
141 165734400 : rxt_rates(:ncol,:, 131) = rxt_rates(:ncol,:, 131)*sol(:ncol,:, 50)*sol(:ncol,:, 53) ! rate_const*N*NO
142 165734400 : rxt_rates(:ncol,:, 132) = rxt_rates(:ncol,:, 132)*sol(:ncol,:, 50)*sol(:ncol,:, 54) ! rate_const*N*NO2
143 165734400 : rxt_rates(:ncol,:, 133) = rxt_rates(:ncol,:, 133)*sol(:ncol,:, 50)*sol(:ncol,:, 54) ! rate_const*N*NO2
144 165734400 : rxt_rates(:ncol,:, 134) = rxt_rates(:ncol,:, 134)*sol(:ncol,:, 50)*sol(:ncol,:, 54) ! rate_const*N*NO2
145 165734400 : rxt_rates(:ncol,:, 135) = rxt_rates(:ncol,:, 135)*sol(:ncol,:, 50)*sol(:ncol,:, 57) ! rate_const*N*O2
146 165734400 : rxt_rates(:ncol,:, 136) = rxt_rates(:ncol,:, 136)*sol(:ncol,:, 54)*sol(:ncol,:, 56) ! rate_const*NO2*O
147 165734400 : rxt_rates(:ncol,:, 137) = rxt_rates(:ncol,:, 137)*sol(:ncol,:, 54)*sol(:ncol,:, 58) ! rate_const*NO2*O3
148 165734400 : rxt_rates(:ncol,:, 138) = rxt_rates(:ncol,:, 138)*sol(:ncol,:, 54)*sol(:ncol,:, 56) ! rate_const*M*NO2*O
149 165734400 : rxt_rates(:ncol,:, 139) = rxt_rates(:ncol,:, 139)*sol(:ncol,:, 55)*sol(:ncol,:, 68) ! rate_const*NO3*HO2
150 165734400 : rxt_rates(:ncol,:, 140) = rxt_rates(:ncol,:, 140)*sol(:ncol,:, 55)*sol(:ncol,:, 53) ! rate_const*NO3*NO
151 165734400 : rxt_rates(:ncol,:, 141) = rxt_rates(:ncol,:, 141)*sol(:ncol,:, 55)*sol(:ncol,:, 56) ! rate_const*NO3*O
152 165734400 : rxt_rates(:ncol,:, 142) = rxt_rates(:ncol,:, 142)*sol(:ncol,:, 55)*sol(:ncol,:, 77) ! rate_const*NO3*OH
153 165734400 : rxt_rates(:ncol,:, 143) = rxt_rates(:ncol,:, 143)*sol(:ncol,:, 50)*sol(:ncol,:, 77) ! rate_const*N*OH
154 165734400 : rxt_rates(:ncol,:, 144) = rxt_rates(:ncol,:, 144)*sol(:ncol,:, 53)*sol(:ncol,:, 68) ! rate_const*NO*HO2
155 165734400 : rxt_rates(:ncol,:, 145) = rxt_rates(:ncol,:, 145)*sol(:ncol,:, 53)*sol(:ncol,:, 58) ! rate_const*NO*O3
156 165734400 : rxt_rates(:ncol,:, 146) = rxt_rates(:ncol,:, 146)*sol(:ncol,:, 53)*sol(:ncol,:, 56) ! rate_const*M*NO*O
157 165734400 : rxt_rates(:ncol,:, 147) = rxt_rates(:ncol,:, 147)*sol(:ncol,:, 73)*sol(:ncol,:, 51) ! rate_const*O1D*N2O
158 165734400 : rxt_rates(:ncol,:, 148) = rxt_rates(:ncol,:, 148)*sol(:ncol,:, 73)*sol(:ncol,:, 51) ! rate_const*O1D*N2O
159 165734400 : rxt_rates(:ncol,:, 149) = rxt_rates(:ncol,:, 149)*sol(:ncol,:, 54)*sol(:ncol,:, 68) ! rate_const*M*NO2*HO2
160 165734400 : rxt_rates(:ncol,:, 150) = rxt_rates(:ncol,:, 150)*sol(:ncol,:, 54)*sol(:ncol,:, 55) ! rate_const*M*NO2*NO3
161 165734400 : rxt_rates(:ncol,:, 151) = rxt_rates(:ncol,:, 151)*sol(:ncol,:, 54)*sol(:ncol,:, 77) ! rate_const*M*NO2*OH
162 165734400 : rxt_rates(:ncol,:, 152) = rxt_rates(:ncol,:, 152)*sol(:ncol,:, 46)*sol(:ncol,:, 77) ! rate_const*HNO3*OH
163 165734400 : rxt_rates(:ncol,:, 153) = rxt_rates(:ncol,:, 153)*sol(:ncol,:, 47) ! rate_const*M*HO2NO2
164 165734400 : rxt_rates(:ncol,:, 154) = rxt_rates(:ncol,:, 154)*sol(:ncol,:, 52) ! rate_const*M*N2O5
165 165734400 : rxt_rates(:ncol,:, 155) = rxt_rates(:ncol,:, 155)*sol(:ncol,:, 23)*sol(:ncol,:, 15) ! rate_const*CL*CH2O
166 165734400 : rxt_rates(:ncol,:, 156) = rxt_rates(:ncol,:, 156)*sol(:ncol,:, 23)*sol(:ncol,:, 21) ! rate_const*CL*CH4
167 165734400 : rxt_rates(:ncol,:, 157) = rxt_rates(:ncol,:, 157)*sol(:ncol,:, 23)*sol(:ncol,:, 36) ! rate_const*CL*H2
168 165734400 : rxt_rates(:ncol,:, 158) = rxt_rates(:ncol,:, 158)*sol(:ncol,:, 23)*sol(:ncol,:, 38) ! rate_const*CL*H2O2
169 165734400 : rxt_rates(:ncol,:, 159) = rxt_rates(:ncol,:, 159)*sol(:ncol,:, 23)*sol(:ncol,:, 68) ! rate_const*CL*HO2
170 165734400 : rxt_rates(:ncol,:, 160) = rxt_rates(:ncol,:, 160)*sol(:ncol,:, 23)*sol(:ncol,:, 68) ! rate_const*CL*HO2
171 165734400 : rxt_rates(:ncol,:, 161) = rxt_rates(:ncol,:, 161)*sol(:ncol,:, 23)*sol(:ncol,:, 58) ! rate_const*CL*O3
172 165734400 : rxt_rates(:ncol,:, 162) = rxt_rates(:ncol,:, 162)*sol(:ncol,:, 26)*sol(:ncol,:, 19) ! rate_const*CLO*CH3O2
173 165734400 : rxt_rates(:ncol,:, 163) = rxt_rates(:ncol,:, 163)*sol(:ncol,:, 26)*sol(:ncol,:, 26) ! rate_const*CLO*CLO
174 165734400 : rxt_rates(:ncol,:, 164) = rxt_rates(:ncol,:, 164)*sol(:ncol,:, 26)*sol(:ncol,:, 26) ! rate_const*CLO*CLO
175 165734400 : rxt_rates(:ncol,:, 165) = rxt_rates(:ncol,:, 165)*sol(:ncol,:, 26)*sol(:ncol,:, 26) ! rate_const*CLO*CLO
176 165734400 : rxt_rates(:ncol,:, 166) = rxt_rates(:ncol,:, 166)*sol(:ncol,:, 26)*sol(:ncol,:, 68) ! rate_const*CLO*HO2
177 165734400 : rxt_rates(:ncol,:, 167) = rxt_rates(:ncol,:, 167)*sol(:ncol,:, 26)*sol(:ncol,:, 53) ! rate_const*CLO*NO
178 165734400 : rxt_rates(:ncol,:, 168) = rxt_rates(:ncol,:, 168)*sol(:ncol,:, 27)*sol(:ncol,:, 23) ! rate_const*CLONO2*CL
179 165734400 : rxt_rates(:ncol,:, 169) = rxt_rates(:ncol,:, 169)*sol(:ncol,:, 26)*sol(:ncol,:, 54) ! rate_const*M*CLO*NO2
180 165734400 : rxt_rates(:ncol,:, 170) = rxt_rates(:ncol,:, 170)*sol(:ncol,:, 27)*sol(:ncol,:, 56) ! rate_const*CLONO2*O
181 165734400 : rxt_rates(:ncol,:, 171) = rxt_rates(:ncol,:, 171)*sol(:ncol,:, 27)*sol(:ncol,:, 77) ! rate_const*CLONO2*OH
182 165734400 : rxt_rates(:ncol,:, 172) = rxt_rates(:ncol,:, 172)*sol(:ncol,:, 26)*sol(:ncol,:, 56) ! rate_const*CLO*O
183 165734400 : rxt_rates(:ncol,:, 173) = rxt_rates(:ncol,:, 173)*sol(:ncol,:, 26)*sol(:ncol,:, 77) ! rate_const*CLO*OH
184 165734400 : rxt_rates(:ncol,:, 174) = rxt_rates(:ncol,:, 174)*sol(:ncol,:, 26)*sol(:ncol,:, 77) ! rate_const*CLO*OH
185 165734400 : rxt_rates(:ncol,:, 175) = rxt_rates(:ncol,:, 175)*sol(:ncol,:, 44)*sol(:ncol,:, 56) ! rate_const*HCL*O
186 165734400 : rxt_rates(:ncol,:, 176) = rxt_rates(:ncol,:, 176)*sol(:ncol,:, 44)*sol(:ncol,:, 77) ! rate_const*HCL*OH
187 165734400 : rxt_rates(:ncol,:, 177) = rxt_rates(:ncol,:, 177)*sol(:ncol,:, 49)*sol(:ncol,:, 23) ! rate_const*HOCL*CL
188 165734400 : rxt_rates(:ncol,:, 178) = rxt_rates(:ncol,:, 178)*sol(:ncol,:, 49)*sol(:ncol,:, 56) ! rate_const*HOCL*O
189 165734400 : rxt_rates(:ncol,:, 179) = rxt_rates(:ncol,:, 179)*sol(:ncol,:, 49)*sol(:ncol,:, 77) ! rate_const*HOCL*OH
190 165734400 : rxt_rates(:ncol,:, 180) = rxt_rates(:ncol,:, 180)*sol(:ncol,:, 73)*sol(:ncol,:, 6) ! rate_const*O1D*CCL4
191 165734400 : rxt_rates(:ncol,:, 181) = rxt_rates(:ncol,:, 181)*sol(:ncol,:, 73)*sol(:ncol,:, 7) ! rate_const*O1D*CF2CLBR
192 165734400 : rxt_rates(:ncol,:, 182) = rxt_rates(:ncol,:, 182)*sol(:ncol,:, 73)*sol(:ncol,:, 9) ! rate_const*O1D*CFC11
193 165734400 : rxt_rates(:ncol,:, 183) = rxt_rates(:ncol,:, 183)*sol(:ncol,:, 73)*sol(:ncol,:, 10) ! rate_const*O1D*CFC113
194 165734400 : rxt_rates(:ncol,:, 184) = rxt_rates(:ncol,:, 184)*sol(:ncol,:, 73)*sol(:ncol,:, 11) ! rate_const*O1D*CFC114
195 165734400 : rxt_rates(:ncol,:, 185) = rxt_rates(:ncol,:, 185)*sol(:ncol,:, 73)*sol(:ncol,:, 12) ! rate_const*O1D*CFC115
196 165734400 : rxt_rates(:ncol,:, 186) = rxt_rates(:ncol,:, 186)*sol(:ncol,:, 73)*sol(:ncol,:, 13) ! rate_const*O1D*CFC12
197 165734400 : rxt_rates(:ncol,:, 187) = rxt_rates(:ncol,:, 187)*sol(:ncol,:, 73)*sol(:ncol,:, 44) ! rate_const*O1D*HCL
198 165734400 : rxt_rates(:ncol,:, 188) = rxt_rates(:ncol,:, 188)*sol(:ncol,:, 73)*sol(:ncol,:, 44) ! rate_const*O1D*HCL
199 165734400 : rxt_rates(:ncol,:, 189) = rxt_rates(:ncol,:, 189)*sol(:ncol,:, 26)*sol(:ncol,:, 26) ! rate_const*M*CLO*CLO
200 165734400 : rxt_rates(:ncol,:, 190) = rxt_rates(:ncol,:, 190)*sol(:ncol,:, 25) ! rate_const*M*CL2O2
201 165888000 : rxt_rates(:ncol,:, 191) = rxt_rates(:ncol,:, 191)*sol(:ncol,:, 1)*sol(:ncol,:, 15) ! rate_const*BR*CH2O
202 165734400 : rxt_rates(:ncol,:, 192) = rxt_rates(:ncol,:, 192)*sol(:ncol,:, 1)*sol(:ncol,:, 68) ! rate_const*BR*HO2
203 165734400 : rxt_rates(:ncol,:, 193) = rxt_rates(:ncol,:, 193)*sol(:ncol,:, 1)*sol(:ncol,:, 58) ! rate_const*BR*O3
204 165734400 : rxt_rates(:ncol,:, 194) = rxt_rates(:ncol,:, 194)*sol(:ncol,:, 3)*sol(:ncol,:, 3) ! rate_const*BRO*BRO
205 165734400 : rxt_rates(:ncol,:, 195) = rxt_rates(:ncol,:, 195)*sol(:ncol,:, 3)*sol(:ncol,:, 26) ! rate_const*BRO*CLO
206 165734400 : rxt_rates(:ncol,:, 196) = rxt_rates(:ncol,:, 196)*sol(:ncol,:, 3)*sol(:ncol,:, 26) ! rate_const*BRO*CLO
207 165734400 : rxt_rates(:ncol,:, 197) = rxt_rates(:ncol,:, 197)*sol(:ncol,:, 3)*sol(:ncol,:, 26) ! rate_const*BRO*CLO
208 165734400 : rxt_rates(:ncol,:, 198) = rxt_rates(:ncol,:, 198)*sol(:ncol,:, 3)*sol(:ncol,:, 68) ! rate_const*BRO*HO2
209 165734400 : rxt_rates(:ncol,:, 199) = rxt_rates(:ncol,:, 199)*sol(:ncol,:, 3)*sol(:ncol,:, 53) ! rate_const*BRO*NO
210 165734400 : rxt_rates(:ncol,:, 200) = rxt_rates(:ncol,:, 200)*sol(:ncol,:, 3)*sol(:ncol,:, 54) ! rate_const*M*BRO*NO2
211 165734400 : rxt_rates(:ncol,:, 201) = rxt_rates(:ncol,:, 201)*sol(:ncol,:, 4)*sol(:ncol,:, 56) ! rate_const*BRONO2*O
212 165734400 : rxt_rates(:ncol,:, 202) = rxt_rates(:ncol,:, 202)*sol(:ncol,:, 3)*sol(:ncol,:, 56) ! rate_const*BRO*O
213 165734400 : rxt_rates(:ncol,:, 203) = rxt_rates(:ncol,:, 203)*sol(:ncol,:, 3)*sol(:ncol,:, 77) ! rate_const*BRO*OH
214 165734400 : rxt_rates(:ncol,:, 204) = rxt_rates(:ncol,:, 204)*sol(:ncol,:, 40)*sol(:ncol,:, 56) ! rate_const*HBR*O
215 165734400 : rxt_rates(:ncol,:, 205) = rxt_rates(:ncol,:, 205)*sol(:ncol,:, 40)*sol(:ncol,:, 77) ! rate_const*HBR*OH
216 165734400 : rxt_rates(:ncol,:, 206) = rxt_rates(:ncol,:, 206)*sol(:ncol,:, 48)*sol(:ncol,:, 56) ! rate_const*HOBR*O
217 165734400 : rxt_rates(:ncol,:, 207) = rxt_rates(:ncol,:, 207)*sol(:ncol,:, 73)*sol(:ncol,:, 8) ! rate_const*O1D*CF3BR
218 165734400 : rxt_rates(:ncol,:, 208) = rxt_rates(:ncol,:, 208)*sol(:ncol,:, 73)*sol(:ncol,:, 22) ! rate_const*O1D*CHBR3
219 165734400 : rxt_rates(:ncol,:, 209) = rxt_rates(:ncol,:, 209)*sol(:ncol,:, 73)*sol(:ncol,:, 37) ! rate_const*O1D*H2402
220 165734400 : rxt_rates(:ncol,:, 210) = rxt_rates(:ncol,:, 210)*sol(:ncol,:, 73)*sol(:ncol,:, 40) ! rate_const*O1D*HBR
221 165734400 : rxt_rates(:ncol,:, 211) = rxt_rates(:ncol,:, 211)*sol(:ncol,:, 73)*sol(:ncol,:, 40) ! rate_const*O1D*HBR
222 165734400 : rxt_rates(:ncol,:, 212) = rxt_rates(:ncol,:, 212)*sol(:ncol,:, 34)*sol(:ncol,:, 21) ! rate_const*F*CH4
223 165734400 : rxt_rates(:ncol,:, 213) = rxt_rates(:ncol,:, 213)*sol(:ncol,:, 34)*sol(:ncol,:, 36) ! rate_const*F*H2
224 165734400 : rxt_rates(:ncol,:, 214) = rxt_rates(:ncol,:, 214)*sol(:ncol,:, 34)*sol(:ncol,:, 81) ! rate_const*F*H2O
225 165734400 : rxt_rates(:ncol,:, 215) = rxt_rates(:ncol,:, 215)*sol(:ncol,:, 34)*sol(:ncol,:, 46) ! rate_const*F*HNO3
226 165734400 : rxt_rates(:ncol,:, 216) = rxt_rates(:ncol,:, 216)*sol(:ncol,:, 73)*sol(:ncol,:, 31) ! rate_const*O1D*COF2
227 165734400 : rxt_rates(:ncol,:, 217) = rxt_rates(:ncol,:, 217)*sol(:ncol,:, 73)*sol(:ncol,:, 32) ! rate_const*O1D*COFCL
228 165734400 : rxt_rates(:ncol,:, 218) = rxt_rates(:ncol,:, 218)*sol(:ncol,:, 14)*sol(:ncol,:, 23) ! rate_const*CH2BR2*CL
229 165734400 : rxt_rates(:ncol,:, 219) = rxt_rates(:ncol,:, 219)*sol(:ncol,:, 14)*sol(:ncol,:, 77) ! rate_const*CH2BR2*OH
230 165734400 : rxt_rates(:ncol,:, 220) = rxt_rates(:ncol,:, 220)*sol(:ncol,:, 16)*sol(:ncol,:, 23) ! rate_const*CH3BR*CL
231 165734400 : rxt_rates(:ncol,:, 221) = rxt_rates(:ncol,:, 221)*sol(:ncol,:, 16)*sol(:ncol,:, 77) ! rate_const*CH3BR*OH
232 165734400 : rxt_rates(:ncol,:, 222) = rxt_rates(:ncol,:, 222)*sol(:ncol,:, 17)*sol(:ncol,:, 77) ! rate_const*CH3CCL3*OH
233 165734400 : rxt_rates(:ncol,:, 223) = rxt_rates(:ncol,:, 223)*sol(:ncol,:, 18)*sol(:ncol,:, 23) ! rate_const*CH3CL*CL
234 165734400 : rxt_rates(:ncol,:, 224) = rxt_rates(:ncol,:, 224)*sol(:ncol,:, 18)*sol(:ncol,:, 77) ! rate_const*CH3CL*OH
235 165734400 : rxt_rates(:ncol,:, 225) = rxt_rates(:ncol,:, 225)*sol(:ncol,:, 22)*sol(:ncol,:, 23) ! rate_const*CHBR3*CL
236 165734400 : rxt_rates(:ncol,:, 226) = rxt_rates(:ncol,:, 226)*sol(:ncol,:, 22)*sol(:ncol,:, 77) ! rate_const*CHBR3*OH
237 165734400 : rxt_rates(:ncol,:, 227) = rxt_rates(:ncol,:, 227)*sol(:ncol,:, 41)*sol(:ncol,:, 77) ! rate_const*HCFC141B*OH
238 165734400 : rxt_rates(:ncol,:, 228) = rxt_rates(:ncol,:, 228)*sol(:ncol,:, 42)*sol(:ncol,:, 77) ! rate_const*HCFC142B*OH
239 165734400 : rxt_rates(:ncol,:, 229) = rxt_rates(:ncol,:, 229)*sol(:ncol,:, 43)*sol(:ncol,:, 77) ! rate_const*HCFC22*OH
240 165734400 : rxt_rates(:ncol,:, 230) = rxt_rates(:ncol,:, 230)*sol(:ncol,:, 73)*sol(:ncol,:, 14) ! rate_const*O1D*CH2BR2
241 165734400 : rxt_rates(:ncol,:, 231) = rxt_rates(:ncol,:, 231)*sol(:ncol,:, 73)*sol(:ncol,:, 16) ! rate_const*O1D*CH3BR
242 165734400 : rxt_rates(:ncol,:, 232) = rxt_rates(:ncol,:, 232)*sol(:ncol,:, 73)*sol(:ncol,:, 41) ! rate_const*O1D*HCFC141B
243 165734400 : rxt_rates(:ncol,:, 233) = rxt_rates(:ncol,:, 233)*sol(:ncol,:, 73)*sol(:ncol,:, 42) ! rate_const*O1D*HCFC142B
244 165734400 : rxt_rates(:ncol,:, 234) = rxt_rates(:ncol,:, 234)*sol(:ncol,:, 73)*sol(:ncol,:, 43) ! rate_const*O1D*HCFC22
245 165734400 : rxt_rates(:ncol,:, 235) = rxt_rates(:ncol,:, 235)*sol(:ncol,:, 15)*sol(:ncol,:, 55) ! rate_const*CH2O*NO3
246 165734400 : rxt_rates(:ncol,:, 236) = rxt_rates(:ncol,:, 236)*sol(:ncol,:, 15)*sol(:ncol,:, 56) ! rate_const*CH2O*O
247 165734400 : rxt_rates(:ncol,:, 237) = rxt_rates(:ncol,:, 237)*sol(:ncol,:, 15)*sol(:ncol,:, 77) ! rate_const*CH2O*OH
248 165734400 : rxt_rates(:ncol,:, 238) = rxt_rates(:ncol,:, 238)*sol(:ncol,:, 19)*sol(:ncol,:, 68) ! rate_const*CH3O2*HO2
249 165734400 : rxt_rates(:ncol,:, 239) = rxt_rates(:ncol,:, 239)*sol(:ncol,:, 19)*sol(:ncol,:, 53) ! rate_const*CH3O2*NO
250 165734400 : rxt_rates(:ncol,:, 240) = rxt_rates(:ncol,:, 240)*sol(:ncol,:, 20)*sol(:ncol,:, 77) ! rate_const*CH3OOH*OH
251 165734400 : rxt_rates(:ncol,:, 241) = rxt_rates(:ncol,:, 241)*sol(:ncol,:, 21)*sol(:ncol,:, 77) ! rate_const*CH4*OH
252 165734400 : rxt_rates(:ncol,:, 242) = rxt_rates(:ncol,:, 242)*sol(:ncol,:, 29)*sol(:ncol,:, 77) ! rate_const*M*CO*OH
253 165734400 : rxt_rates(:ncol,:, 243) = rxt_rates(:ncol,:, 243)*sol(:ncol,:, 73)*sol(:ncol,:, 21) ! rate_const*O1D*CH4
254 165734400 : rxt_rates(:ncol,:, 244) = rxt_rates(:ncol,:, 244)*sol(:ncol,:, 73)*sol(:ncol,:, 21) ! rate_const*O1D*CH4
255 165734400 : rxt_rates(:ncol,:, 245) = rxt_rates(:ncol,:, 245)*sol(:ncol,:, 73)*sol(:ncol,:, 21) ! rate_const*O1D*CH4
256 165734400 : rxt_rates(:ncol,:, 246) = rxt_rates(:ncol,:, 246)*sol(:ncol,:, 29)*sol(:ncol,:, 77) ! rate_const*CO*OH
257 165734400 : rxt_rates(:ncol,:, 247) = rxt_rates(:ncol,:, 247)*sol(:ncol,:, 33)*sol(:ncol,:, 55) ! rate_const*DMS*NO3
258 165734400 : rxt_rates(:ncol,:, 248) = rxt_rates(:ncol,:, 248)*sol(:ncol,:, 33)*sol(:ncol,:, 77) ! rate_const*DMS*OH
259 165734400 : rxt_rates(:ncol,:, 249) = rxt_rates(:ncol,:, 249)*sol(:ncol,:, 60)*sol(:ncol,:, 56) ! rate_const*OCS*O
260 165734400 : rxt_rates(:ncol,:, 250) = rxt_rates(:ncol,:, 250)*sol(:ncol,:, 60)*sol(:ncol,:, 77) ! rate_const*OCS*OH
261 165734400 : rxt_rates(:ncol,:, 251) = rxt_rates(:ncol,:, 251)*sol(:ncol,:, 61)*sol(:ncol,:, 57) ! rate_const*S*O2
262 165734400 : rxt_rates(:ncol,:, 252) = rxt_rates(:ncol,:, 252)*sol(:ncol,:, 61)*sol(:ncol,:, 58) ! rate_const*S*O3
263 165734400 : rxt_rates(:ncol,:, 253) = rxt_rates(:ncol,:, 253)*sol(:ncol,:, 63)*sol(:ncol,:, 3) ! rate_const*SO*BRO
264 165734400 : rxt_rates(:ncol,:, 254) = rxt_rates(:ncol,:, 254)*sol(:ncol,:, 63)*sol(:ncol,:, 26) ! rate_const*SO*CLO
265 165734400 : rxt_rates(:ncol,:, 255) = rxt_rates(:ncol,:, 255)*sol(:ncol,:, 61)*sol(:ncol,:, 77) ! rate_const*S*OH
266 165734400 : rxt_rates(:ncol,:, 256) = rxt_rates(:ncol,:, 256)*sol(:ncol,:, 63)*sol(:ncol,:, 54) ! rate_const*SO*NO2
267 165734400 : rxt_rates(:ncol,:, 257) = rxt_rates(:ncol,:, 257)*sol(:ncol,:, 63)*sol(:ncol,:, 57) ! rate_const*SO*O2
268 165734400 : rxt_rates(:ncol,:, 258) = rxt_rates(:ncol,:, 258)*sol(:ncol,:, 63)*sol(:ncol,:, 58) ! rate_const*SO*O3
269 165734400 : rxt_rates(:ncol,:, 259) = rxt_rates(:ncol,:, 259)*sol(:ncol,:, 63)*sol(:ncol,:, 59) ! rate_const*SO*OCLO
270 165734400 : rxt_rates(:ncol,:, 260) = rxt_rates(:ncol,:, 260)*sol(:ncol,:, 63)*sol(:ncol,:, 77) ! rate_const*SO*OH
271 165734400 : rxt_rates(:ncol,:, 261) = rxt_rates(:ncol,:, 261)*sol(:ncol,:, 33)*sol(:ncol,:, 77) ! rate_const*DMS*OH
272 165734400 : rxt_rates(:ncol,:, 262) = rxt_rates(:ncol,:, 262)*sol(:ncol,:, 64)*sol(:ncol,:, 77) ! rate_const*SO2*OH
273 165734400 : rxt_rates(:ncol,:, 263) = rxt_rates(:ncol,:, 263)*sol(:ncol,:, 65)*sol(:ncol,:, 81) ! rate_const*SO3*H2O
274 165734400 : rxt_rates(:ncol,:, 264) = rxt_rates(:ncol,:, 264)*sol(:ncol,:, 68) ! rate_const*HO2
275 165734400 : rxt_rates(:ncol,:, 265) = rxt_rates(:ncol,:, 265)*sol(:ncol,:, 52) ! rate_const*N2O5
276 165734400 : rxt_rates(:ncol,:, 266) = rxt_rates(:ncol,:, 266)*sol(:ncol,:, 54) ! rate_const*NO2
277 165734400 : rxt_rates(:ncol,:, 267) = rxt_rates(:ncol,:, 267)*sol(:ncol,:, 55) ! rate_const*NO3
278 165734400 : rxt_rates(:ncol,:, 268) = rxt_rates(:ncol,:, 268)*sol(:ncol,:, 52) ! rate_const*N2O5
279 165734400 : rxt_rates(:ncol,:, 269) = rxt_rates(:ncol,:, 269)*sol(:ncol,:, 49)*sol(:ncol,:, 44) ! rate_const*HOCL*HCL
280 165734400 : rxt_rates(:ncol,:, 270) = rxt_rates(:ncol,:, 270)*sol(:ncol,:, 4) ! rate_const*BRONO2
281 165734400 : rxt_rates(:ncol,:, 271) = rxt_rates(:ncol,:, 271)*sol(:ncol,:, 52) ! rate_const*N2O5
282 165734400 : rxt_rates(:ncol,:, 272) = rxt_rates(:ncol,:, 272)*sol(:ncol,:, 27) ! rate_const*CLONO2
283 165734400 : rxt_rates(:ncol,:, 273) = rxt_rates(:ncol,:, 273)*sol(:ncol,:, 4) ! rate_const*BRONO2
284 165734400 : rxt_rates(:ncol,:, 274) = rxt_rates(:ncol,:, 274)*sol(:ncol,:, 27)*sol(:ncol,:, 44) ! rate_const*CLONO2*HCL
285 165734400 : rxt_rates(:ncol,:, 275) = rxt_rates(:ncol,:, 275)*sol(:ncol,:, 49)*sol(:ncol,:, 44) ! rate_const*HOCL*HCL
286 165734400 : rxt_rates(:ncol,:, 276) = rxt_rates(:ncol,:, 276)*sol(:ncol,:, 48)*sol(:ncol,:, 44) ! rate_const*HOBR*HCL
287 165734400 : rxt_rates(:ncol,:, 277) = rxt_rates(:ncol,:, 277)*sol(:ncol,:, 27) ! rate_const*CLONO2
288 165734400 : rxt_rates(:ncol,:, 278) = rxt_rates(:ncol,:, 278)*sol(:ncol,:, 4) ! rate_const*BRONO2
289 165734400 : rxt_rates(:ncol,:, 279) = rxt_rates(:ncol,:, 279)*sol(:ncol,:, 27)*sol(:ncol,:, 44) ! rate_const*CLONO2*HCL
290 165734400 : rxt_rates(:ncol,:, 280) = rxt_rates(:ncol,:, 280)*sol(:ncol,:, 49)*sol(:ncol,:, 44) ! rate_const*HOCL*HCL
291 165734400 : rxt_rates(:ncol,:, 281) = rxt_rates(:ncol,:, 281)*sol(:ncol,:, 48)*sol(:ncol,:, 44) ! rate_const*HOBR*HCL
292 165734400 : rxt_rates(:ncol,:, 282) = rxt_rates(:ncol,:, 282)*sol(:ncol,:, 52) ! rate_const*N2O5
293 165734400 : rxt_rates(:ncol,:, 283) = rxt_rates(:ncol,:, 283)*sol(:ncol,:, 27) ! rate_const*CLONO2
294 165734400 : rxt_rates(:ncol,:, 284) = rxt_rates(:ncol,:, 284)*sol(:ncol,:, 27)*sol(:ncol,:, 44) ! rate_const*CLONO2*HCL
295 165734400 : rxt_rates(:ncol,:, 285) = rxt_rates(:ncol,:, 285)*sol(:ncol,:, 80) ! rate_const*Op2P
296 165734400 : rxt_rates(:ncol,:, 286) = rxt_rates(:ncol,:, 286)*sol(:ncol,:, 79) ! rate_const*Op2D
297 165734400 : rxt_rates(:ncol,:, 287) = rxt_rates(:ncol,:, 287)*sol(:ncol,:, 80) ! rate_const*Op2P
298 165734400 : rxt_rates(:ncol,:, 288) = rxt_rates(:ncol,:, 288)*sol(:ncol,:, 71)*sol(:ncol,:, 67) ! rate_const*NOp*e
299 165734400 : rxt_rates(:ncol,:, 289) = rxt_rates(:ncol,:, 289)*sol(:ncol,:, 76)*sol(:ncol,:, 67) ! rate_const*O2p*e
300 165734400 : rxt_rates(:ncol,:, 290) = rxt_rates(:ncol,:, 290)*sol(:ncol,:, 70)*sol(:ncol,:, 67) ! rate_const*N2p*e
301 165734400 : rxt_rates(:ncol,:, 291) = rxt_rates(:ncol,:, 291)*sol(:ncol,:, 70)*sol(:ncol,:, 57) ! rate_const*N2p*O2
302 165734400 : rxt_rates(:ncol,:, 292) = rxt_rates(:ncol,:, 292)*sol(:ncol,:, 70)*sol(:ncol,:, 56) ! rate_const*N2p*O
303 165734400 : rxt_rates(:ncol,:, 293) = rxt_rates(:ncol,:, 293)*sol(:ncol,:, 70)*sol(:ncol,:, 56) ! rate_const*N2p*O
304 165734400 : rxt_rates(:ncol,:, 294) = rxt_rates(:ncol,:, 294)*sol(:ncol,:, 72)*sol(:ncol,:, 56) ! rate_const*Np*O
305 165734400 : rxt_rates(:ncol,:, 295) = rxt_rates(:ncol,:, 295)*sol(:ncol,:, 72)*sol(:ncol,:, 57) ! rate_const*Np*O2
306 165734400 : rxt_rates(:ncol,:, 296) = rxt_rates(:ncol,:, 296)*sol(:ncol,:, 72)*sol(:ncol,:, 57) ! rate_const*Np*O2
307 165734400 : rxt_rates(:ncol,:, 297) = rxt_rates(:ncol,:, 297)*sol(:ncol,:, 76)*sol(:ncol,:, 50) ! rate_const*O2p*N
308 165734400 : rxt_rates(:ncol,:, 298) = rxt_rates(:ncol,:, 298)*sol(:ncol,:, 76) ! rate_const*N2*O2p
309 165734400 : rxt_rates(:ncol,:, 299) = rxt_rates(:ncol,:, 299)*sol(:ncol,:, 76)*sol(:ncol,:, 53) ! rate_const*O2p*NO
310 165734400 : rxt_rates(:ncol,:, 300) = rxt_rates(:ncol,:, 300)*sol(:ncol,:, 78)*sol(:ncol,:, 30) ! rate_const*Op*CO2
311 165734400 : rxt_rates(:ncol,:, 301) = rxt_rates(:ncol,:, 301)*sol(:ncol,:, 78) ! rate_const*N2*Op
312 165734400 : rxt_rates(:ncol,:, 302) = rxt_rates(:ncol,:, 302)*sol(:ncol,:, 78)*sol(:ncol,:, 69) ! rate_const*Op*N2D
313 165734400 : rxt_rates(:ncol,:, 303) = rxt_rates(:ncol,:, 303)*sol(:ncol,:, 78)*sol(:ncol,:, 57) ! rate_const*Op*O2
314 165734400 : rxt_rates(:ncol,:, 304) = rxt_rates(:ncol,:, 304)*sol(:ncol,:, 79)*sol(:ncol,:, 67) ! rate_const*Op2D*e
315 165734400 : rxt_rates(:ncol,:, 305) = rxt_rates(:ncol,:, 305)*sol(:ncol,:, 79) ! rate_const*N2*Op2D
316 165734400 : rxt_rates(:ncol,:, 306) = rxt_rates(:ncol,:, 306)*sol(:ncol,:, 79)*sol(:ncol,:, 56) ! rate_const*Op2D*O
317 165734400 : rxt_rates(:ncol,:, 307) = rxt_rates(:ncol,:, 307)*sol(:ncol,:, 79)*sol(:ncol,:, 57) ! rate_const*Op2D*O2
318 165734400 : rxt_rates(:ncol,:, 308) = rxt_rates(:ncol,:, 308)*sol(:ncol,:, 80)*sol(:ncol,:, 67) ! rate_const*Op2P*e
319 165734400 : rxt_rates(:ncol,:, 309) = rxt_rates(:ncol,:, 309)*sol(:ncol,:, 80)*sol(:ncol,:, 67) ! rate_const*Op2P*e
320 165734400 : rxt_rates(:ncol,:, 310) = rxt_rates(:ncol,:, 310)*sol(:ncol,:, 80) ! rate_const*N2*Op2P
321 165734400 : rxt_rates(:ncol,:, 311) = rxt_rates(:ncol,:, 311)*sol(:ncol,:, 80) ! rate_const*N2*Op2P
322 165734400 : rxt_rates(:ncol,:, 312) = rxt_rates(:ncol,:, 312)*sol(:ncol,:, 80)*sol(:ncol,:, 56) ! rate_const*Op2P*O
323 153600 : end subroutine set_rates
324 : end module mo_rxt_rates_conv
|