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 46080 : 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 77921280 : rxt_rates(:ncol,:, 1) = rxt_rates(:ncol,:, 1)*sol(:ncol,:, 139) ! rate_const*H2O
12 77921280 : rxt_rates(:ncol,:, 2) = rxt_rates(:ncol,:, 2)*sol(:ncol,:, 139) ! rate_const*H2O
13 77921280 : rxt_rates(:ncol,:, 3) = rxt_rates(:ncol,:, 3)*sol(:ncol,:, 139) ! rate_const*H2O
14 77921280 : rxt_rates(:ncol,:, 4) = rxt_rates(:ncol,:, 4)*sol(:ncol,:, 43) ! rate_const*H2O2
15 77921280 : rxt_rates(:ncol,:, 5) = rxt_rates(:ncol,:, 5)*sol(:ncol,:, 72) ! rate_const*O2
16 77921280 : rxt_rates(:ncol,:, 6) = rxt_rates(:ncol,:, 6)*sol(:ncol,:, 72) ! rate_const*O2
17 77921280 : rxt_rates(:ncol,:, 7) = rxt_rates(:ncol,:, 7)*sol(:ncol,:, 73) ! rate_const*O3
18 77921280 : rxt_rates(:ncol,:, 8) = rxt_rates(:ncol,:, 8)*sol(:ncol,:, 73) ! rate_const*O3
19 77921280 : rxt_rates(:ncol,:, 9) = rxt_rates(:ncol,:, 9)*sol(:ncol,:, 51) ! rate_const*HNO3
20 77921280 : rxt_rates(:ncol,:, 10) = rxt_rates(:ncol,:, 10)*sol(:ncol,:, 52) ! rate_const*HO2NO2
21 77921280 : rxt_rates(:ncol,:, 11) = rxt_rates(:ncol,:, 11)*sol(:ncol,:, 52) ! rate_const*HO2NO2
22 77921280 : rxt_rates(:ncol,:, 12) = rxt_rates(:ncol,:, 12)*sol(:ncol,:, 55) ! rate_const*HONO
23 77921280 : rxt_rates(:ncol,:, 13) = rxt_rates(:ncol,:, 13)*sol(:ncol,:, 57) ! rate_const*N2O
24 77921280 : rxt_rates(:ncol,:, 14) = rxt_rates(:ncol,:, 14)*sol(:ncol,:, 58) ! rate_const*N2O5
25 77921280 : rxt_rates(:ncol,:, 15) = rxt_rates(:ncol,:, 15)*sol(:ncol,:, 58) ! rate_const*N2O5
26 77921280 : rxt_rates(:ncol,:, 16) = rxt_rates(:ncol,:, 16)*sol(:ncol,:, 62) ! rate_const*NO
27 77921280 : rxt_rates(:ncol,:, 17) = rxt_rates(:ncol,:, 17)*sol(:ncol,:, 62) ! rate_const*NO
28 77921280 : rxt_rates(:ncol,:, 18) = rxt_rates(:ncol,:, 18)*sol(:ncol,:, 63) ! rate_const*NO2
29 77921280 : rxt_rates(:ncol,:, 19) = rxt_rates(:ncol,:, 19)*sol(:ncol,:, 64) ! rate_const*NO3
30 77921280 : rxt_rates(:ncol,:, 20) = rxt_rates(:ncol,:, 20)*sol(:ncol,:, 64) ! rate_const*NO3
31 77921280 : rxt_rates(:ncol,:, 21) = rxt_rates(:ncol,:, 21)*sol(:ncol,:, 17) ! rate_const*CH2O
32 77921280 : rxt_rates(:ncol,:, 22) = rxt_rates(:ncol,:, 22)*sol(:ncol,:, 17) ! rate_const*CH2O
33 77921280 : rxt_rates(:ncol,:, 23) = rxt_rates(:ncol,:, 23)*sol(:ncol,:, 22) ! rate_const*CH3OOH
34 77921280 : rxt_rates(:ncol,:, 24) = rxt_rates(:ncol,:, 24)*sol(:ncol,:, 23) ! rate_const*CH4
35 77921280 : rxt_rates(:ncol,:, 25) = rxt_rates(:ncol,:, 25)*sol(:ncol,:, 23) ! rate_const*CH4
36 77921280 : rxt_rates(:ncol,:, 26) = rxt_rates(:ncol,:, 26)*sol(:ncol,:, 32) ! rate_const*CO2
37 77921280 : rxt_rates(:ncol,:, 27) = rxt_rates(:ncol,:, 27)*sol(:ncol,:, 4) ! rate_const*BRCL
38 77921280 : rxt_rates(:ncol,:, 28) = rxt_rates(:ncol,:, 28)*sol(:ncol,:, 5) ! rate_const*BRO
39 77921280 : rxt_rates(:ncol,:, 29) = rxt_rates(:ncol,:, 29)*sol(:ncol,:, 6) ! rate_const*BRONO2
40 77921280 : rxt_rates(:ncol,:, 30) = rxt_rates(:ncol,:, 30)*sol(:ncol,:, 6) ! rate_const*BRONO2
41 77921280 : rxt_rates(:ncol,:, 31) = rxt_rates(:ncol,:, 31)*sol(:ncol,:, 8) ! rate_const*CCL4
42 77921280 : rxt_rates(:ncol,:, 32) = rxt_rates(:ncol,:, 32)*sol(:ncol,:, 9) ! rate_const*CF2CLBR
43 77921280 : rxt_rates(:ncol,:, 33) = rxt_rates(:ncol,:, 33)*sol(:ncol,:, 10) ! rate_const*CF3BR
44 77921280 : rxt_rates(:ncol,:, 34) = rxt_rates(:ncol,:, 34)*sol(:ncol,:, 11) ! rate_const*CFC11
45 77921280 : rxt_rates(:ncol,:, 35) = rxt_rates(:ncol,:, 35)*sol(:ncol,:, 12) ! rate_const*CFC113
46 77921280 : rxt_rates(:ncol,:, 36) = rxt_rates(:ncol,:, 36)*sol(:ncol,:, 13) ! rate_const*CFC114
47 77921280 : rxt_rates(:ncol,:, 37) = rxt_rates(:ncol,:, 37)*sol(:ncol,:, 14) ! rate_const*CFC115
48 77921280 : rxt_rates(:ncol,:, 38) = rxt_rates(:ncol,:, 38)*sol(:ncol,:, 15) ! rate_const*CFC12
49 77921280 : rxt_rates(:ncol,:, 39) = rxt_rates(:ncol,:, 39)*sol(:ncol,:, 16) ! rate_const*CH2BR2
50 77921280 : rxt_rates(:ncol,:, 40) = rxt_rates(:ncol,:, 40)*sol(:ncol,:, 18) ! rate_const*CH3BR
51 77921280 : rxt_rates(:ncol,:, 41) = rxt_rates(:ncol,:, 41)*sol(:ncol,:, 19) ! rate_const*CH3CCL3
52 77921280 : rxt_rates(:ncol,:, 42) = rxt_rates(:ncol,:, 42)*sol(:ncol,:, 20) ! rate_const*CH3CL
53 77921280 : rxt_rates(:ncol,:, 43) = rxt_rates(:ncol,:, 43)*sol(:ncol,:, 24) ! rate_const*CHBR3
54 77921280 : rxt_rates(:ncol,:, 44) = rxt_rates(:ncol,:, 44)*sol(:ncol,:, 26) ! rate_const*CL2
55 77921280 : rxt_rates(:ncol,:, 45) = rxt_rates(:ncol,:, 45)*sol(:ncol,:, 27) ! rate_const*CL2O2
56 77921280 : rxt_rates(:ncol,:, 46) = rxt_rates(:ncol,:, 46)*sol(:ncol,:, 28) ! rate_const*CLO
57 77921280 : rxt_rates(:ncol,:, 47) = rxt_rates(:ncol,:, 47)*sol(:ncol,:, 29) ! rate_const*CLONO2
58 77921280 : rxt_rates(:ncol,:, 48) = rxt_rates(:ncol,:, 48)*sol(:ncol,:, 29) ! rate_const*CLONO2
59 77921280 : rxt_rates(:ncol,:, 49) = rxt_rates(:ncol,:, 49)*sol(:ncol,:, 33) ! rate_const*COF2
60 77921280 : rxt_rates(:ncol,:, 50) = rxt_rates(:ncol,:, 50)*sol(:ncol,:, 34) ! rate_const*COFCL
61 77921280 : rxt_rates(:ncol,:, 51) = rxt_rates(:ncol,:, 51)*sol(:ncol,:, 42) ! rate_const*H2402
62 77921280 : rxt_rates(:ncol,:, 52) = rxt_rates(:ncol,:, 52)*sol(:ncol,:, 45) ! rate_const*HBR
63 77921280 : rxt_rates(:ncol,:, 53) = rxt_rates(:ncol,:, 53)*sol(:ncol,:, 46) ! rate_const*HCFC141B
64 77921280 : rxt_rates(:ncol,:, 54) = rxt_rates(:ncol,:, 54)*sol(:ncol,:, 47) ! rate_const*HCFC142B
65 77921280 : rxt_rates(:ncol,:, 55) = rxt_rates(:ncol,:, 55)*sol(:ncol,:, 48) ! rate_const*HCFC22
66 77921280 : rxt_rates(:ncol,:, 56) = rxt_rates(:ncol,:, 56)*sol(:ncol,:, 49) ! rate_const*HCL
67 77921280 : rxt_rates(:ncol,:, 57) = rxt_rates(:ncol,:, 57)*sol(:ncol,:, 50) ! rate_const*HF
68 77921280 : rxt_rates(:ncol,:, 58) = rxt_rates(:ncol,:, 58)*sol(:ncol,:, 53) ! rate_const*HOBR
69 77921280 : rxt_rates(:ncol,:, 59) = rxt_rates(:ncol,:, 59)*sol(:ncol,:, 54) ! rate_const*HOCL
70 77921280 : rxt_rates(:ncol,:, 60) = rxt_rates(:ncol,:, 60)*sol(:ncol,:, 74) ! rate_const*OCLO
71 77921280 : rxt_rates(:ncol,:, 61) = rxt_rates(:ncol,:, 61)*sol(:ncol,:, 79) ! rate_const*SF6
72 77921280 : rxt_rates(:ncol,:, 62) = rxt_rates(:ncol,:, 62)*sol(:ncol,:, 32) ! rate_const*CO2
73 77921280 : rxt_rates(:ncol,:, 63) = rxt_rates(:ncol,:, 63)*sol(:ncol,:, 94) ! rate_const*CO3m
74 77921280 : rxt_rates(:ncol,:, 64) = rxt_rates(:ncol,:, 64)*sol(:ncol,:, 96) ! rate_const*CO3m_H2O
75 77921280 : rxt_rates(:ncol,:, 65) = rxt_rates(:ncol,:, 65)*sol(:ncol,:, 97) ! rate_const*CO4m
76 77921280 : rxt_rates(:ncol,:, 66) = rxt_rates(:ncol,:, 66)*sol(:ncol,:, 56) ! rate_const*N
77 : ! rate_const*N2
78 : ! rate_const*N2
79 : ! rate_const*N2
80 : ! rate_const*N2
81 : ! rate_const*N2
82 : ! rate_const*N2
83 : ! rate_const*N2
84 : ! rate_const*N2
85 77921280 : rxt_rates(:ncol,:, 75) = rxt_rates(:ncol,:, 75)*sol(:ncol,:, 111) ! rate_const*NO2m
86 77921280 : rxt_rates(:ncol,:, 76) = rxt_rates(:ncol,:, 76)*sol(:ncol,:, 113) ! rate_const*NO3m
87 77921280 : rxt_rates(:ncol,:, 77) = rxt_rates(:ncol,:, 77)*sol(:ncol,:, 70) ! rate_const*O
88 77921280 : rxt_rates(:ncol,:, 78) = rxt_rates(:ncol,:, 78)*sol(:ncol,:, 70) ! rate_const*O
89 77921280 : rxt_rates(:ncol,:, 79) = rxt_rates(:ncol,:, 79)*sol(:ncol,:, 70) ! rate_const*O
90 77921280 : rxt_rates(:ncol,:, 80) = rxt_rates(:ncol,:, 80)*sol(:ncol,:, 70) ! rate_const*O
91 77921280 : rxt_rates(:ncol,:, 81) = rxt_rates(:ncol,:, 81)*sol(:ncol,:, 70) ! rate_const*O
92 77921280 : rxt_rates(:ncol,:, 82) = rxt_rates(:ncol,:, 82)*sol(:ncol,:, 70) ! rate_const*O
93 77921280 : rxt_rates(:ncol,:, 83) = rxt_rates(:ncol,:, 83)*sol(:ncol,:, 72) ! rate_const*O2
94 77921280 : rxt_rates(:ncol,:, 84) = rxt_rates(:ncol,:, 84)*sol(:ncol,:, 72) ! rate_const*O2
95 77921280 : rxt_rates(:ncol,:, 85) = rxt_rates(:ncol,:, 85)*sol(:ncol,:, 72) ! rate_const*O2
96 77921280 : rxt_rates(:ncol,:, 86) = rxt_rates(:ncol,:, 86)*sol(:ncol,:, 72) ! rate_const*O2
97 77921280 : rxt_rates(:ncol,:, 87) = rxt_rates(:ncol,:, 87)*sol(:ncol,:, 72) ! rate_const*O2
98 77921280 : rxt_rates(:ncol,:, 88) = rxt_rates(:ncol,:, 88)*sol(:ncol,:, 72) ! rate_const*O2
99 77921280 : rxt_rates(:ncol,:, 89) = rxt_rates(:ncol,:, 89)*sol(:ncol,:, 72) ! rate_const*O2
100 77921280 : rxt_rates(:ncol,:, 90) = rxt_rates(:ncol,:, 90)*sol(:ncol,:, 72) ! rate_const*O2
101 77921280 : rxt_rates(:ncol,:, 91) = rxt_rates(:ncol,:, 91)*sol(:ncol,:, 72) ! rate_const*O2
102 77921280 : rxt_rates(:ncol,:, 92) = rxt_rates(:ncol,:, 92)*sol(:ncol,:, 72) ! rate_const*O2
103 77921280 : rxt_rates(:ncol,:, 93) = rxt_rates(:ncol,:, 93)*sol(:ncol,:, 127) ! rate_const*O2m
104 77921280 : rxt_rates(:ncol,:, 94) = rxt_rates(:ncol,:, 94)*sol(:ncol,:, 129) ! rate_const*O2p_H2O
105 77921280 : rxt_rates(:ncol,:, 95) = rxt_rates(:ncol,:, 95)*sol(:ncol,:, 130) ! rate_const*O3m
106 77921280 : rxt_rates(:ncol,:, 96) = rxt_rates(:ncol,:, 96)*sol(:ncol,:, 130) ! rate_const*O3m
107 77921280 : rxt_rates(:ncol,:, 97) = rxt_rates(:ncol,:, 97)*sol(:ncol,:, 131) ! rate_const*O4m
108 77921280 : rxt_rates(:ncol,:, 98) = rxt_rates(:ncol,:, 98)*sol(:ncol,:, 134) ! rate_const*OHm
109 77921280 : rxt_rates(:ncol,:, 99) = rxt_rates(:ncol,:, 99)*sol(:ncol,:, 135) ! rate_const*Om
110 77921280 : rxt_rates(:ncol,:, 100) = rxt_rates(:ncol,:, 100)*sol(:ncol,:, 44) ! rate_const*H2SO4
111 77921280 : rxt_rates(:ncol,:, 101) = rxt_rates(:ncol,:, 101)*sol(:ncol,:, 75) ! rate_const*OCS
112 77921280 : rxt_rates(:ncol,:, 102) = rxt_rates(:ncol,:, 102)*sol(:ncol,:, 80) ! rate_const*SO
113 77921280 : rxt_rates(:ncol,:, 103) = rxt_rates(:ncol,:, 103)*sol(:ncol,:, 81) ! rate_const*SO2
114 77921280 : rxt_rates(:ncol,:, 104) = rxt_rates(:ncol,:, 104)*sol(:ncol,:, 82) ! rate_const*SO3
115 77921280 : rxt_rates(:ncol,:, 105) = rxt_rates(:ncol,:, 105)*sol(:ncol,:, 90)*sol(:ncol,:, 40) ! rate_const*CLm*H
116 77921280 : rxt_rates(:ncol,:, 106) = rxt_rates(:ncol,:, 106)*sol(:ncol,:, 91)*sol(:ncol,:, 49) ! rate_const*CLm_H2O*HCL
117 77921280 : rxt_rates(:ncol,:, 107) = rxt_rates(:ncol,:, 107)*sol(:ncol,:, 90)*sol(:ncol,:, 139) ! rate_const*M*CLm*H2O
118 77921280 : rxt_rates(:ncol,:, 108) = rxt_rates(:ncol,:, 108)*sol(:ncol,:, 49)*sol(:ncol,:, 90) ! rate_const*M*HCL*CLm
119 77921280 : rxt_rates(:ncol,:, 109) = rxt_rates(:ncol,:, 109)*sol(:ncol,:, 90)*sol(:ncol,:, 51) ! rate_const*CLm*HNO3
120 77921280 : rxt_rates(:ncol,:, 110) = rxt_rates(:ncol,:, 110)*sol(:ncol,:, 90)*sol(:ncol,:, 63) ! rate_const*CLm*NO2
121 77921280 : rxt_rates(:ncol,:, 111) = rxt_rates(:ncol,:, 111)*sol(:ncol,:, 93)*sol(:ncol,:, 62) ! rate_const*CLOm*NO
122 77921280 : rxt_rates(:ncol,:, 112) = rxt_rates(:ncol,:, 112)*sol(:ncol,:, 93)*sol(:ncol,:, 62) ! rate_const*CLOm*NO
123 77921280 : rxt_rates(:ncol,:, 113) = rxt_rates(:ncol,:, 113)*sol(:ncol,:, 93)*sol(:ncol,:, 70) ! rate_const*CLOm*O
124 77921280 : rxt_rates(:ncol,:, 114) = rxt_rates(:ncol,:, 114)*sol(:ncol,:, 25)*sol(:ncol,:, 94) ! rate_const*CL*CO3m
125 77921280 : rxt_rates(:ncol,:, 115) = rxt_rates(:ncol,:, 115)*sol(:ncol,:, 25)*sol(:ncol,:, 94) ! rate_const*CL*CO3m
126 77921280 : rxt_rates(:ncol,:, 116) = rxt_rates(:ncol,:, 116)*sol(:ncol,:, 28)*sol(:ncol,:, 94) ! rate_const*CLO*CO3m
127 77921280 : rxt_rates(:ncol,:, 117) = rxt_rates(:ncol,:, 117)*sol(:ncol,:, 40)*sol(:ncol,:, 94) ! rate_const*H*CO3m
128 77921280 : rxt_rates(:ncol,:, 118) = rxt_rates(:ncol,:, 118)*sol(:ncol,:, 96)*sol(:ncol,:, 139) ! rate_const*M*CO3m_H2O*H2O
129 77921280 : rxt_rates(:ncol,:, 119) = rxt_rates(:ncol,:, 119)*sol(:ncol,:, 94)*sol(:ncol,:, 139) ! rate_const*M*CO3m*H2O
130 77921280 : rxt_rates(:ncol,:, 120) = rxt_rates(:ncol,:, 120)*sol(:ncol,:, 96)*sol(:ncol,:, 63) ! rate_const*CO3m_H2O*NO2
131 77921280 : rxt_rates(:ncol,:, 121) = rxt_rates(:ncol,:, 121)*sol(:ncol,:, 96)*sol(:ncol,:, 63) ! rate_const*CO3m_H2O*NO2
132 77921280 : rxt_rates(:ncol,:, 122) = rxt_rates(:ncol,:, 122)*sol(:ncol,:, 96)*sol(:ncol,:, 62) ! rate_const*CO3m_H2O*NO
133 77921280 : rxt_rates(:ncol,:, 123) = rxt_rates(:ncol,:, 123)*sol(:ncol,:, 96)*sol(:ncol,:, 62) ! rate_const*CO3m_H2O*NO
134 77921280 : rxt_rates(:ncol,:, 124) = rxt_rates(:ncol,:, 124)*sol(:ncol,:, 94)*sol(:ncol,:, 51) ! rate_const*CO3m*HNO3
135 77921280 : rxt_rates(:ncol,:, 125) = rxt_rates(:ncol,:, 125)*sol(:ncol,:, 94)*sol(:ncol,:, 70) ! rate_const*CO3m*O
136 77921280 : rxt_rates(:ncol,:, 126) = rxt_rates(:ncol,:, 126)*sol(:ncol,:, 72)*sol(:ncol,:, 94) ! rate_const*O2*CO3m
137 77921280 : rxt_rates(:ncol,:, 127) = rxt_rates(:ncol,:, 127)*sol(:ncol,:, 25)*sol(:ncol,:, 97) ! rate_const*CL*CO4m
138 77921280 : rxt_rates(:ncol,:, 128) = rxt_rates(:ncol,:, 128)*sol(:ncol,:, 28)*sol(:ncol,:, 97) ! rate_const*CLO*CO4m
139 77921280 : rxt_rates(:ncol,:, 129) = rxt_rates(:ncol,:, 129)*sol(:ncol,:, 97)*sol(:ncol,:, 40) ! rate_const*CO4m*H
140 77921280 : rxt_rates(:ncol,:, 130) = rxt_rates(:ncol,:, 130)*sol(:ncol,:, 97)*sol(:ncol,:, 49) ! rate_const*CO4m*HCL
141 77921280 : rxt_rates(:ncol,:, 131) = rxt_rates(:ncol,:, 131)*sol(:ncol,:, 97)*sol(:ncol,:, 70) ! rate_const*CO4m*O
142 77921280 : rxt_rates(:ncol,:, 132) = rxt_rates(:ncol,:, 132)*sol(:ncol,:, 97)*sol(:ncol,:, 73) ! rate_const*CO4m*O3
143 77921280 : rxt_rates(:ncol,:, 133) = rxt_rates(:ncol,:, 133)*sol(:ncol,:, 98)*sol(:ncol,:, 72) ! rate_const*N2*e*O2
144 77921280 : rxt_rates(:ncol,:, 134) = rxt_rates(:ncol,:, 134)*sol(:ncol,:, 73)*sol(:ncol,:, 98) ! rate_const*O3*e
145 77921280 : rxt_rates(:ncol,:, 135) = rxt_rates(:ncol,:, 135)*sol(:ncol,:, 72)*sol(:ncol,:, 98) ! rate_const*M*O2*e
146 77921280 : rxt_rates(:ncol,:, 136) = rxt_rates(:ncol,:, 136)*sol(:ncol,:, 62)*sol(:ncol,:, 135) ! rate_const*NO*Om
147 77921280 : rxt_rates(:ncol,:, 137) = rxt_rates(:ncol,:, 137)*sol(:ncol,:, 127) ! rate_const*N2*O2m
148 77921280 : rxt_rates(:ncol,:, 138) = rxt_rates(:ncol,:, 138)*sol(:ncol,:, 99)*sol(:ncol,:, 98) ! rate_const*H3Op_OH*e
149 77921280 : rxt_rates(:ncol,:, 139) = rxt_rates(:ncol,:, 139)*sol(:ncol,:, 139)*sol(:ncol,:, 99) ! rate_const*H2O*H3Op_OH
150 77921280 : rxt_rates(:ncol,:, 140) = rxt_rates(:ncol,:, 140)*sol(:ncol,:, 139)*sol(:ncol,:, 104) ! rate_const*H2O*Hp_3N1
151 77921280 : rxt_rates(:ncol,:, 141) = rxt_rates(:ncol,:, 141)*sol(:ncol,:, 105)*sol(:ncol,:, 98) ! rate_const*Hp_4H2O*e
152 77921280 : rxt_rates(:ncol,:, 142) = rxt_rates(:ncol,:, 142)*sol(:ncol,:, 105)*sol(:ncol,:, 58) ! rate_const*Hp_4H2O*N2O5
153 77921280 : rxt_rates(:ncol,:, 143) = rxt_rates(:ncol,:, 143)*sol(:ncol,:, 139)*sol(:ncol,:, 106) ! rate_const*H2O*Hp_4N1
154 77921280 : rxt_rates(:ncol,:, 144) = rxt_rates(:ncol,:, 144)*sol(:ncol,:, 107)*sol(:ncol,:, 98) ! rate_const*Hp_5H2O*e
155 77921280 : rxt_rates(:ncol,:, 145) = rxt_rates(:ncol,:, 145)*sol(:ncol,:, 107)*sol(:ncol,:, 58) ! rate_const*Hp_5H2O*N2O5
156 77921280 : rxt_rates(:ncol,:, 146) = rxt_rates(:ncol,:, 146)*sol(:ncol,:, 105)*sol(:ncol,:, 117) ! rate_const*Hp_4H2O*NO3mHNO3
157 77921280 : rxt_rates(:ncol,:, 147) = rxt_rates(:ncol,:, 147)*sol(:ncol,:, 90)*sol(:ncol,:, 105) ! rate_const*CLm*Hp_4H2O
158 77921280 : rxt_rates(:ncol,:, 148) = rxt_rates(:ncol,:, 148)*sol(:ncol,:, 113)*sol(:ncol,:, 128) ! rate_const*NO3m*O2p
159 77921280 : rxt_rates(:ncol,:, 149) = rxt_rates(:ncol,:, 149)*sol(:ncol,:, 100)*sol(:ncol,:, 128) ! rate_const*HCO3m*O2p
160 77921280 : rxt_rates(:ncol,:, 150) = rxt_rates(:ncol,:, 150)*sol(:ncol,:, 127)*sol(:ncol,:, 128) ! rate_const*O2m*O2p
161 77921280 : rxt_rates(:ncol,:, 151) = rxt_rates(:ncol,:, 151)*sol(:ncol,:, 97)*sol(:ncol,:, 128) ! rate_const*CO4m*O2p
162 77921280 : rxt_rates(:ncol,:, 152) = rxt_rates(:ncol,:, 152)*sol(:ncol,:, 115)*sol(:ncol,:, 128) ! rate_const*NO3m_H2O*O2p
163 77921280 : rxt_rates(:ncol,:, 153) = rxt_rates(:ncol,:, 153)*sol(:ncol,:, 95)*sol(:ncol,:, 128) ! rate_const*CO3m2H2O*O2p
164 77921280 : rxt_rates(:ncol,:, 154) = rxt_rates(:ncol,:, 154)*sol(:ncol,:, 90)*sol(:ncol,:, 128) ! rate_const*CLm*O2p
165 77921280 : rxt_rates(:ncol,:, 155) = rxt_rates(:ncol,:, 155)*sol(:ncol,:, 96)*sol(:ncol,:, 128) ! rate_const*CO3m_H2O*O2p
166 77921280 : rxt_rates(:ncol,:, 156) = rxt_rates(:ncol,:, 156)*sol(:ncol,:, 112)*sol(:ncol,:, 128) ! rate_const*NO2m_H2O*O2p
167 77921280 : rxt_rates(:ncol,:, 157) = rxt_rates(:ncol,:, 157)*sol(:ncol,:, 116)*sol(:ncol,:, 128) ! rate_const*NO3m_HCL*O2p
168 77921280 : rxt_rates(:ncol,:, 158) = rxt_rates(:ncol,:, 158)*sol(:ncol,:, 96)*sol(:ncol,:, 105) ! rate_const*CO3m_H2O*Hp_4H2O
169 77921280 : rxt_rates(:ncol,:, 159) = rxt_rates(:ncol,:, 159)*sol(:ncol,:, 128)*sol(:ncol,:, 91) ! rate_const*O2p*CLm_H2O
170 77921280 : rxt_rates(:ncol,:, 160) = rxt_rates(:ncol,:, 160)*sol(:ncol,:, 114)*sol(:ncol,:, 128) ! rate_const*NO3m2H2O*O2p
171 77921280 : rxt_rates(:ncol,:, 161) = rxt_rates(:ncol,:, 161)*sol(:ncol,:, 111)*sol(:ncol,:, 128) ! rate_const*NO2m*O2p
172 77921280 : rxt_rates(:ncol,:, 162) = rxt_rates(:ncol,:, 162)*sol(:ncol,:, 105)*sol(:ncol,:, 112) ! rate_const*Hp_4H2O*NO2m_H2O
173 77921280 : rxt_rates(:ncol,:, 163) = rxt_rates(:ncol,:, 163)*sol(:ncol,:, 105)*sol(:ncol,:, 116) ! rate_const*Hp_4H2O*NO3m_HCL
174 77921280 : rxt_rates(:ncol,:, 164) = rxt_rates(:ncol,:, 164)*sol(:ncol,:, 91)*sol(:ncol,:, 105) ! rate_const*CLm_H2O*Hp_4H2O
175 77921280 : rxt_rates(:ncol,:, 165) = rxt_rates(:ncol,:, 165)*sol(:ncol,:, 114)*sol(:ncol,:, 105) ! rate_const*NO3m2H2O*Hp_4H2O
176 77921280 : rxt_rates(:ncol,:, 166) = rxt_rates(:ncol,:, 166)*sol(:ncol,:, 105)*sol(:ncol,:, 111) ! rate_const*Hp_4H2O*NO2m
177 77921280 : rxt_rates(:ncol,:, 167) = rxt_rates(:ncol,:, 167)*sol(:ncol,:, 107)*sol(:ncol,:, 117) ! rate_const*Hp_5H2O*NO3mHNO3
178 77921280 : rxt_rates(:ncol,:, 168) = rxt_rates(:ncol,:, 168)*sol(:ncol,:, 94)*sol(:ncol,:, 107) ! rate_const*CO3m*Hp_5H2O
179 77921280 : rxt_rates(:ncol,:, 169) = rxt_rates(:ncol,:, 169)*sol(:ncol,:, 92)*sol(:ncol,:, 107) ! rate_const*CLm_HCL*Hp_5H2O
180 77921280 : rxt_rates(:ncol,:, 170) = rxt_rates(:ncol,:, 170)*sol(:ncol,:, 94)*sol(:ncol,:, 105) ! rate_const*CO3m*Hp_4H2O
181 77921280 : rxt_rates(:ncol,:, 171) = rxt_rates(:ncol,:, 171)*sol(:ncol,:, 113)*sol(:ncol,:, 107) ! rate_const*NO3m*Hp_5H2O
182 77921280 : rxt_rates(:ncol,:, 172) = rxt_rates(:ncol,:, 172)*sol(:ncol,:, 100)*sol(:ncol,:, 107) ! rate_const*HCO3m*Hp_5H2O
183 77921280 : rxt_rates(:ncol,:, 173) = rxt_rates(:ncol,:, 173)*sol(:ncol,:, 107)*sol(:ncol,:, 127) ! rate_const*Hp_5H2O*O2m
184 77921280 : rxt_rates(:ncol,:, 174) = rxt_rates(:ncol,:, 174)*sol(:ncol,:, 97)*sol(:ncol,:, 107) ! rate_const*CO4m*Hp_5H2O
185 77921280 : rxt_rates(:ncol,:, 175) = rxt_rates(:ncol,:, 175)*sol(:ncol,:, 107)*sol(:ncol,:, 115) ! rate_const*Hp_5H2O*NO3m_H2O
186 77921280 : rxt_rates(:ncol,:, 176) = rxt_rates(:ncol,:, 176)*sol(:ncol,:, 95)*sol(:ncol,:, 107) ! rate_const*CO3m2H2O*Hp_5H2O
187 77921280 : rxt_rates(:ncol,:, 177) = rxt_rates(:ncol,:, 177)*sol(:ncol,:, 90)*sol(:ncol,:, 107) ! rate_const*CLm*Hp_5H2O
188 77921280 : rxt_rates(:ncol,:, 178) = rxt_rates(:ncol,:, 178)*sol(:ncol,:, 96)*sol(:ncol,:, 107) ! rate_const*CO3m_H2O*Hp_5H2O
189 77921280 : rxt_rates(:ncol,:, 179) = rxt_rates(:ncol,:, 179)*sol(:ncol,:, 112)*sol(:ncol,:, 107) ! rate_const*NO2m_H2O*Hp_5H2O
190 77921280 : rxt_rates(:ncol,:, 180) = rxt_rates(:ncol,:, 180)*sol(:ncol,:, 107)*sol(:ncol,:, 116) ! rate_const*Hp_5H2O*NO3m_HCL
191 77921280 : rxt_rates(:ncol,:, 181) = rxt_rates(:ncol,:, 181)*sol(:ncol,:, 92)*sol(:ncol,:, 105) ! rate_const*CLm_HCL*Hp_4H2O
192 77921280 : rxt_rates(:ncol,:, 182) = rxt_rates(:ncol,:, 182)*sol(:ncol,:, 91)*sol(:ncol,:, 107) ! rate_const*CLm_H2O*Hp_5H2O
193 77921280 : rxt_rates(:ncol,:, 183) = rxt_rates(:ncol,:, 183)*sol(:ncol,:, 107)*sol(:ncol,:, 114) ! rate_const*Hp_5H2O*NO3m2H2O
194 77921280 : rxt_rates(:ncol,:, 184) = rxt_rates(:ncol,:, 184)*sol(:ncol,:, 107)*sol(:ncol,:, 111) ! rate_const*Hp_5H2O*NO2m
195 77921280 : rxt_rates(:ncol,:, 185) = rxt_rates(:ncol,:, 185)*sol(:ncol,:, 103)*sol(:ncol,:, 117) ! rate_const*Hp_3H2O*NO3mHNO3
196 77921280 : rxt_rates(:ncol,:, 186) = rxt_rates(:ncol,:, 186)*sol(:ncol,:, 103)*sol(:ncol,:, 94) ! rate_const*Hp_3H2O*CO3m
197 77921280 : rxt_rates(:ncol,:, 187) = rxt_rates(:ncol,:, 187)*sol(:ncol,:, 92)*sol(:ncol,:, 103) ! rate_const*CLm_HCL*Hp_3H2O
198 77921280 : rxt_rates(:ncol,:, 188) = rxt_rates(:ncol,:, 188)*sol(:ncol,:, 103)*sol(:ncol,:, 113) ! rate_const*Hp_3H2O*NO3m
199 77921280 : rxt_rates(:ncol,:, 189) = rxt_rates(:ncol,:, 189)*sol(:ncol,:, 100)*sol(:ncol,:, 103) ! rate_const*HCO3m*Hp_3H2O
200 77921280 : rxt_rates(:ncol,:, 190) = rxt_rates(:ncol,:, 190)*sol(:ncol,:, 103)*sol(:ncol,:, 127) ! rate_const*Hp_3H2O*O2m
201 77921280 : rxt_rates(:ncol,:, 191) = rxt_rates(:ncol,:, 191)*sol(:ncol,:, 97)*sol(:ncol,:, 103) ! rate_const*CO4m*Hp_3H2O
202 77921280 : rxt_rates(:ncol,:, 192) = rxt_rates(:ncol,:, 192)*sol(:ncol,:, 105)*sol(:ncol,:, 113) ! rate_const*Hp_4H2O*NO3m
203 77921280 : rxt_rates(:ncol,:, 193) = rxt_rates(:ncol,:, 193)*sol(:ncol,:, 103)*sol(:ncol,:, 115) ! rate_const*Hp_3H2O*NO3m_H2O
204 77921280 : rxt_rates(:ncol,:, 194) = rxt_rates(:ncol,:, 194)*sol(:ncol,:, 95)*sol(:ncol,:, 103) ! rate_const*CO3m2H2O*Hp_3H2O
205 77921280 : rxt_rates(:ncol,:, 195) = rxt_rates(:ncol,:, 195)*sol(:ncol,:, 90)*sol(:ncol,:, 103) ! rate_const*CLm*Hp_3H2O
206 77921280 : rxt_rates(:ncol,:, 196) = rxt_rates(:ncol,:, 196)*sol(:ncol,:, 96)*sol(:ncol,:, 103) ! rate_const*CO3m_H2O*Hp_3H2O
207 77921280 : rxt_rates(:ncol,:, 197) = rxt_rates(:ncol,:, 197)*sol(:ncol,:, 103)*sol(:ncol,:, 112) ! rate_const*Hp_3H2O*NO2m_H2O
208 77921280 : rxt_rates(:ncol,:, 198) = rxt_rates(:ncol,:, 198)*sol(:ncol,:, 103)*sol(:ncol,:, 116) ! rate_const*Hp_3H2O*NO3m_HCL
209 77921280 : rxt_rates(:ncol,:, 199) = rxt_rates(:ncol,:, 199)*sol(:ncol,:, 91)*sol(:ncol,:, 103) ! rate_const*CLm_H2O*Hp_3H2O
210 77921280 : rxt_rates(:ncol,:, 200) = rxt_rates(:ncol,:, 200)*sol(:ncol,:, 103)*sol(:ncol,:, 114) ! rate_const*Hp_3H2O*NO3m2H2O
211 77921280 : rxt_rates(:ncol,:, 201) = rxt_rates(:ncol,:, 201)*sol(:ncol,:, 103)*sol(:ncol,:, 111) ! rate_const*Hp_3H2O*NO2m
212 77921280 : rxt_rates(:ncol,:, 202) = rxt_rates(:ncol,:, 202)*sol(:ncol,:, 117)*sol(:ncol,:, 122) ! rate_const*NO3mHNO3*NOp_H2O
213 77921280 : rxt_rates(:ncol,:, 203) = rxt_rates(:ncol,:, 203)*sol(:ncol,:, 100)*sol(:ncol,:, 105) ! rate_const*HCO3m*Hp_4H2O
214 77921280 : rxt_rates(:ncol,:, 204) = rxt_rates(:ncol,:, 204)*sol(:ncol,:, 94)*sol(:ncol,:, 122) ! rate_const*CO3m*NOp_H2O
215 77921280 : rxt_rates(:ncol,:, 205) = rxt_rates(:ncol,:, 205)*sol(:ncol,:, 92)*sol(:ncol,:, 122) ! rate_const*CLm_HCL*NOp_H2O
216 77921280 : rxt_rates(:ncol,:, 206) = rxt_rates(:ncol,:, 206)*sol(:ncol,:, 113)*sol(:ncol,:, 122) ! rate_const*NO3m*NOp_H2O
217 77921280 : rxt_rates(:ncol,:, 207) = rxt_rates(:ncol,:, 207)*sol(:ncol,:, 100)*sol(:ncol,:, 122) ! rate_const*HCO3m*NOp_H2O
218 77921280 : rxt_rates(:ncol,:, 208) = rxt_rates(:ncol,:, 208)*sol(:ncol,:, 122)*sol(:ncol,:, 127) ! rate_const*NOp_H2O*O2m
219 77921280 : rxt_rates(:ncol,:, 209) = rxt_rates(:ncol,:, 209)*sol(:ncol,:, 97)*sol(:ncol,:, 122) ! rate_const*CO4m*NOp_H2O
220 77921280 : rxt_rates(:ncol,:, 210) = rxt_rates(:ncol,:, 210)*sol(:ncol,:, 115)*sol(:ncol,:, 122) ! rate_const*NO3m_H2O*NOp_H2O
221 77921280 : rxt_rates(:ncol,:, 211) = rxt_rates(:ncol,:, 211)*sol(:ncol,:, 95)*sol(:ncol,:, 122) ! rate_const*CO3m2H2O*NOp_H2O
222 77921280 : rxt_rates(:ncol,:, 212) = rxt_rates(:ncol,:, 212)*sol(:ncol,:, 90)*sol(:ncol,:, 122) ! rate_const*CLm*NOp_H2O
223 77921280 : rxt_rates(:ncol,:, 213) = rxt_rates(:ncol,:, 213)*sol(:ncol,:, 96)*sol(:ncol,:, 122) ! rate_const*CO3m_H2O*NOp_H2O
224 77921280 : rxt_rates(:ncol,:, 214) = rxt_rates(:ncol,:, 214)*sol(:ncol,:, 105)*sol(:ncol,:, 127) ! rate_const*Hp_4H2O*O2m
225 77921280 : rxt_rates(:ncol,:, 215) = rxt_rates(:ncol,:, 215)*sol(:ncol,:, 112)*sol(:ncol,:, 122) ! rate_const*NO2m_H2O*NOp_H2O
226 77921280 : rxt_rates(:ncol,:, 216) = rxt_rates(:ncol,:, 216)*sol(:ncol,:, 116)*sol(:ncol,:, 122) ! rate_const*NO3m_HCL*NOp_H2O
227 77921280 : rxt_rates(:ncol,:, 217) = rxt_rates(:ncol,:, 217)*sol(:ncol,:, 91)*sol(:ncol,:, 122) ! rate_const*CLm_H2O*NOp_H2O
228 77921280 : rxt_rates(:ncol,:, 218) = rxt_rates(:ncol,:, 218)*sol(:ncol,:, 114)*sol(:ncol,:, 122) ! rate_const*NO3m2H2O*NOp_H2O
229 77921280 : rxt_rates(:ncol,:, 219) = rxt_rates(:ncol,:, 219)*sol(:ncol,:, 111)*sol(:ncol,:, 122) ! rate_const*NO2m*NOp_H2O
230 77921280 : rxt_rates(:ncol,:, 220) = rxt_rates(:ncol,:, 220)*sol(:ncol,:, 117)*sol(:ncol,:, 119) ! rate_const*NO3mHNO3*NOp_2H2O
231 77921280 : rxt_rates(:ncol,:, 221) = rxt_rates(:ncol,:, 221)*sol(:ncol,:, 94)*sol(:ncol,:, 119) ! rate_const*CO3m*NOp_2H2O
232 77921280 : rxt_rates(:ncol,:, 222) = rxt_rates(:ncol,:, 222)*sol(:ncol,:, 92)*sol(:ncol,:, 119) ! rate_const*CLm_HCL*NOp_2H2O
233 77921280 : rxt_rates(:ncol,:, 223) = rxt_rates(:ncol,:, 223)*sol(:ncol,:, 119)*sol(:ncol,:, 113) ! rate_const*NOp_2H2O*NO3m
234 77921280 : rxt_rates(:ncol,:, 224) = rxt_rates(:ncol,:, 224)*sol(:ncol,:, 100)*sol(:ncol,:, 119) ! rate_const*HCO3m*NOp_2H2O
235 77921280 : rxt_rates(:ncol,:, 225) = rxt_rates(:ncol,:, 225)*sol(:ncol,:, 97)*sol(:ncol,:, 105) ! rate_const*CO4m*Hp_4H2O
236 77921280 : rxt_rates(:ncol,:, 226) = rxt_rates(:ncol,:, 226)*sol(:ncol,:, 119)*sol(:ncol,:, 127) ! rate_const*NOp_2H2O*O2m
237 77921280 : rxt_rates(:ncol,:, 227) = rxt_rates(:ncol,:, 227)*sol(:ncol,:, 119)*sol(:ncol,:, 97) ! rate_const*NOp_2H2O*CO4m
238 77921280 : rxt_rates(:ncol,:, 228) = rxt_rates(:ncol,:, 228)*sol(:ncol,:, 115)*sol(:ncol,:, 119) ! rate_const*NO3m_H2O*NOp_2H2O
239 77921280 : rxt_rates(:ncol,:, 229) = rxt_rates(:ncol,:, 229)*sol(:ncol,:, 95)*sol(:ncol,:, 119) ! rate_const*CO3m2H2O*NOp_2H2O
240 77921280 : rxt_rates(:ncol,:, 230) = rxt_rates(:ncol,:, 230)*sol(:ncol,:, 90)*sol(:ncol,:, 119) ! rate_const*CLm*NOp_2H2O
241 77921280 : rxt_rates(:ncol,:, 231) = rxt_rates(:ncol,:, 231)*sol(:ncol,:, 96)*sol(:ncol,:, 119) ! rate_const*CO3m_H2O*NOp_2H2O
242 77921280 : rxt_rates(:ncol,:, 232) = rxt_rates(:ncol,:, 232)*sol(:ncol,:, 119)*sol(:ncol,:, 112) ! rate_const*NOp_2H2O*NO2m_H2O
243 77921280 : rxt_rates(:ncol,:, 233) = rxt_rates(:ncol,:, 233)*sol(:ncol,:, 116)*sol(:ncol,:, 119) ! rate_const*NO3m_HCL*NOp_2H2O
244 77921280 : rxt_rates(:ncol,:, 234) = rxt_rates(:ncol,:, 234)*sol(:ncol,:, 119)*sol(:ncol,:, 91) ! rate_const*NOp_2H2O*CLm_H2O
245 77921280 : rxt_rates(:ncol,:, 235) = rxt_rates(:ncol,:, 235)*sol(:ncol,:, 119)*sol(:ncol,:, 114) ! rate_const*NOp_2H2O*NO3m2H2O
246 77921280 : rxt_rates(:ncol,:, 236) = rxt_rates(:ncol,:, 236)*sol(:ncol,:, 105)*sol(:ncol,:, 115) ! rate_const*Hp_4H2O*NO3m_H2O
247 77921280 : rxt_rates(:ncol,:, 237) = rxt_rates(:ncol,:, 237)*sol(:ncol,:, 119)*sol(:ncol,:, 111) ! rate_const*NOp_2H2O*NO2m
248 77921280 : rxt_rates(:ncol,:, 238) = rxt_rates(:ncol,:, 238)*sol(:ncol,:, 118)*sol(:ncol,:, 117) ! rate_const*NOp*NO3mHNO3
249 77921280 : rxt_rates(:ncol,:, 239) = rxt_rates(:ncol,:, 239)*sol(:ncol,:, 118)*sol(:ncol,:, 94) ! rate_const*NOp*CO3m
250 77921280 : rxt_rates(:ncol,:, 240) = rxt_rates(:ncol,:, 240)*sol(:ncol,:, 118)*sol(:ncol,:, 92) ! rate_const*NOp*CLm_HCL
251 77921280 : rxt_rates(:ncol,:, 241) = rxt_rates(:ncol,:, 241)*sol(:ncol,:, 113)*sol(:ncol,:, 118) ! rate_const*NO3m*NOp
252 77921280 : rxt_rates(:ncol,:, 242) = rxt_rates(:ncol,:, 242)*sol(:ncol,:, 118)*sol(:ncol,:, 100) ! rate_const*NOp*HCO3m
253 77921280 : rxt_rates(:ncol,:, 243) = rxt_rates(:ncol,:, 243)*sol(:ncol,:, 127)*sol(:ncol,:, 118) ! rate_const*O2m*NOp
254 77921280 : rxt_rates(:ncol,:, 244) = rxt_rates(:ncol,:, 244)*sol(:ncol,:, 118)*sol(:ncol,:, 97) ! rate_const*NOp*CO4m
255 77921280 : rxt_rates(:ncol,:, 245) = rxt_rates(:ncol,:, 245)*sol(:ncol,:, 118)*sol(:ncol,:, 115) ! rate_const*NOp*NO3m_H2O
256 77921280 : rxt_rates(:ncol,:, 246) = rxt_rates(:ncol,:, 246)*sol(:ncol,:, 118)*sol(:ncol,:, 95) ! rate_const*NOp*CO3m2H2O
257 77921280 : rxt_rates(:ncol,:, 247) = rxt_rates(:ncol,:, 247)*sol(:ncol,:, 95)*sol(:ncol,:, 105) ! rate_const*CO3m2H2O*Hp_4H2O
258 77921280 : rxt_rates(:ncol,:, 248) = rxt_rates(:ncol,:, 248)*sol(:ncol,:, 90)*sol(:ncol,:, 118) ! rate_const*CLm*NOp
259 77921280 : rxt_rates(:ncol,:, 249) = rxt_rates(:ncol,:, 249)*sol(:ncol,:, 96)*sol(:ncol,:, 118) ! rate_const*CO3m_H2O*NOp
260 77921280 : rxt_rates(:ncol,:, 250) = rxt_rates(:ncol,:, 250)*sol(:ncol,:, 112)*sol(:ncol,:, 118) ! rate_const*NO2m_H2O*NOp
261 77921280 : rxt_rates(:ncol,:, 251) = rxt_rates(:ncol,:, 251)*sol(:ncol,:, 116)*sol(:ncol,:, 118) ! rate_const*NO3m_HCL*NOp
262 77921280 : rxt_rates(:ncol,:, 252) = rxt_rates(:ncol,:, 252)*sol(:ncol,:, 91)*sol(:ncol,:, 118) ! rate_const*CLm_H2O*NOp
263 77921280 : rxt_rates(:ncol,:, 253) = rxt_rates(:ncol,:, 253)*sol(:ncol,:, 118)*sol(:ncol,:, 114) ! rate_const*NOp*NO3m2H2O
264 77921280 : rxt_rates(:ncol,:, 254) = rxt_rates(:ncol,:, 254)*sol(:ncol,:, 118)*sol(:ncol,:, 111) ! rate_const*NOp*NO2m
265 77921280 : rxt_rates(:ncol,:, 255) = rxt_rates(:ncol,:, 255)*sol(:ncol,:, 117)*sol(:ncol,:, 128) ! rate_const*NO3mHNO3*O2p
266 77921280 : rxt_rates(:ncol,:, 256) = rxt_rates(:ncol,:, 256)*sol(:ncol,:, 128)*sol(:ncol,:, 94) ! rate_const*O2p*CO3m
267 77921280 : rxt_rates(:ncol,:, 257) = rxt_rates(:ncol,:, 257)*sol(:ncol,:, 128)*sol(:ncol,:, 92) ! rate_const*O2p*CLm_HCL
268 77921280 : rxt_rates(:ncol,:, 258) = rxt_rates(:ncol,:, 258)*sol(:ncol,:, 105)*sol(:ncol,:, 94) ! rate_const*M*Hp_4H2O*CO3m
269 77921280 : rxt_rates(:ncol,:, 259) = rxt_rates(:ncol,:, 259)*sol(:ncol,:, 107)*sol(:ncol,:, 95) ! rate_const*M*Hp_5H2O*CO3m2H2O
270 77921280 : rxt_rates(:ncol,:, 260) = rxt_rates(:ncol,:, 260)*sol(:ncol,:, 96)*sol(:ncol,:, 105) ! rate_const*M*CO3m_H2O*Hp_4H2O
271 77921280 : rxt_rates(:ncol,:, 261) = rxt_rates(:ncol,:, 261)*sol(:ncol,:, 107)*sol(:ncol,:, 96) ! rate_const*M*Hp_5H2O*CO3m_H2O
272 77921280 : rxt_rates(:ncol,:, 262) = rxt_rates(:ncol,:, 262)*sol(:ncol,:, 115)*sol(:ncol,:, 105) ! rate_const*M*NO3m_H2O*Hp_4H2O
273 77921280 : rxt_rates(:ncol,:, 263) = rxt_rates(:ncol,:, 263)*sol(:ncol,:, 115)*sol(:ncol,:, 107) ! rate_const*M*NO3m_H2O*Hp_5H2O
274 77921280 : rxt_rates(:ncol,:, 264) = rxt_rates(:ncol,:, 264)*sol(:ncol,:, 113)*sol(:ncol,:, 105) ! rate_const*M*NO3m*Hp_4H2O
275 77921280 : rxt_rates(:ncol,:, 265) = rxt_rates(:ncol,:, 265)*sol(:ncol,:, 107)*sol(:ncol,:, 94) ! rate_const*M*Hp_5H2O*CO3m
276 77921280 : rxt_rates(:ncol,:, 266) = rxt_rates(:ncol,:, 266)*sol(:ncol,:, 107)*sol(:ncol,:, 113) ! rate_const*M*Hp_5H2O*NO3m
277 77921280 : rxt_rates(:ncol,:, 267) = rxt_rates(:ncol,:, 267)*sol(:ncol,:, 92)*sol(:ncol,:, 105) ! rate_const*M*CLm_HCL*Hp_4H2O
278 77921280 : rxt_rates(:ncol,:, 268) = rxt_rates(:ncol,:, 268)*sol(:ncol,:, 107)*sol(:ncol,:, 92) ! rate_const*M*Hp_5H2O*CLm_HCL
279 77921280 : rxt_rates(:ncol,:, 269) = rxt_rates(:ncol,:, 269)*sol(:ncol,:, 117)*sol(:ncol,:, 105) ! rate_const*M*NO3mHNO3*Hp_4H2O
280 77921280 : rxt_rates(:ncol,:, 270) = rxt_rates(:ncol,:, 270)*sol(:ncol,:, 107)*sol(:ncol,:, 117) ! rate_const*M*Hp_5H2O*NO3mHNO3
281 77921280 : rxt_rates(:ncol,:, 271) = rxt_rates(:ncol,:, 271)*sol(:ncol,:, 95)*sol(:ncol,:, 105) ! rate_const*M*CO3m2H2O*Hp_4H2O
282 77921280 : rxt_rates(:ncol,:, 272) = rxt_rates(:ncol,:, 272)*sol(:ncol,:, 62)*sol(:ncol,:, 130) ! rate_const*NO*O3m
283 77921280 : rxt_rates(:ncol,:, 273) = rxt_rates(:ncol,:, 273)*sol(:ncol,:, 112) ! rate_const*M*NO2m_H2O
284 77921280 : rxt_rates(:ncol,:, 274) = rxt_rates(:ncol,:, 274)*sol(:ncol,:, 114) ! rate_const*M*NO3m2H2O
285 77921280 : rxt_rates(:ncol,:, 275) = rxt_rates(:ncol,:, 275)*sol(:ncol,:, 117) ! rate_const*M*NO3mHNO3
286 77921280 : rxt_rates(:ncol,:, 276) = rxt_rates(:ncol,:, 276)*sol(:ncol,:, 49)*sol(:ncol,:, 113) ! rate_const*M*HCL*NO3m
287 77921280 : rxt_rates(:ncol,:, 277) = rxt_rates(:ncol,:, 277)*sol(:ncol,:, 63)*sol(:ncol,:, 130) ! rate_const*NO2*O3m
288 77921280 : rxt_rates(:ncol,:, 278) = rxt_rates(:ncol,:, 278)*sol(:ncol,:, 63)*sol(:ncol,:, 130) ! rate_const*NO2*O3m
289 77921280 : rxt_rates(:ncol,:, 279) = rxt_rates(:ncol,:, 279)*sol(:ncol,:, 62)*sol(:ncol,:, 130) ! rate_const*NO*O3m
290 77921280 : rxt_rates(:ncol,:, 280) = rxt_rates(:ncol,:, 280)*sol(:ncol,:, 94)*sol(:ncol,:, 62) ! rate_const*CO3m*NO
291 77921280 : rxt_rates(:ncol,:, 281) = rxt_rates(:ncol,:, 281)*sol(:ncol,:, 94)*sol(:ncol,:, 63) ! rate_const*CO3m*NO2
292 77921280 : rxt_rates(:ncol,:, 282) = rxt_rates(:ncol,:, 282)*sol(:ncol,:, 115) ! rate_const*M*NO3m_H2O
293 77921280 : rxt_rates(:ncol,:, 283) = rxt_rates(:ncol,:, 283)*sol(:ncol,:, 96) ! rate_const*M*CO3m_H2O
294 77921280 : rxt_rates(:ncol,:, 284) = rxt_rates(:ncol,:, 284)*sol(:ncol,:, 95) ! rate_const*M*CO3m2H2O
295 77921280 : rxt_rates(:ncol,:, 285) = rxt_rates(:ncol,:, 285)*sol(:ncol,:, 25)*sol(:ncol,:, 111) ! rate_const*CL*NO2m
296 77921280 : rxt_rates(:ncol,:, 286) = rxt_rates(:ncol,:, 286)*sol(:ncol,:, 28)*sol(:ncol,:, 111) ! rate_const*CLO*NO2m
297 77921280 : rxt_rates(:ncol,:, 287) = rxt_rates(:ncol,:, 287)*sol(:ncol,:, 40)*sol(:ncol,:, 111) ! rate_const*H*NO2m
298 77921280 : rxt_rates(:ncol,:, 288) = rxt_rates(:ncol,:, 288)*sol(:ncol,:, 111)*sol(:ncol,:, 139) ! rate_const*M*NO2m*H2O
299 77921280 : rxt_rates(:ncol,:, 289) = rxt_rates(:ncol,:, 289)*sol(:ncol,:, 49)*sol(:ncol,:, 111) ! rate_const*HCL*NO2m
300 77921280 : rxt_rates(:ncol,:, 290) = rxt_rates(:ncol,:, 290)*sol(:ncol,:, 51)*sol(:ncol,:, 111) ! rate_const*HNO3*NO2m
301 77921280 : rxt_rates(:ncol,:, 291) = rxt_rates(:ncol,:, 291)*sol(:ncol,:, 63)*sol(:ncol,:, 111) ! rate_const*NO2*NO2m
302 77921280 : rxt_rates(:ncol,:, 292) = rxt_rates(:ncol,:, 292)*sol(:ncol,:, 111)*sol(:ncol,:, 73) ! rate_const*NO2m*O3
303 77921280 : rxt_rates(:ncol,:, 293) = rxt_rates(:ncol,:, 293)*sol(:ncol,:, 114)*sol(:ncol,:, 58) ! rate_const*NO3m2H2O*N2O5
304 77921280 : rxt_rates(:ncol,:, 294) = rxt_rates(:ncol,:, 294)*sol(:ncol,:, 115)*sol(:ncol,:, 139) ! rate_const*M*NO3m_H2O*H2O
305 77921280 : rxt_rates(:ncol,:, 295) = rxt_rates(:ncol,:, 295)*sol(:ncol,:, 51)*sol(:ncol,:, 115) ! rate_const*HNO3*NO3m_H2O
306 77921280 : rxt_rates(:ncol,:, 296) = rxt_rates(:ncol,:, 296)*sol(:ncol,:, 139)*sol(:ncol,:, 113) ! rate_const*M*H2O*NO3m
307 77921280 : rxt_rates(:ncol,:, 297) = rxt_rates(:ncol,:, 297)*sol(:ncol,:, 115)*sol(:ncol,:, 58) ! rate_const*NO3m_H2O*N2O5
308 77921280 : rxt_rates(:ncol,:, 298) = rxt_rates(:ncol,:, 298)*sol(:ncol,:, 49)*sol(:ncol,:, 113) ! rate_const*HCL*NO3m
309 77921280 : rxt_rates(:ncol,:, 299) = rxt_rates(:ncol,:, 299)*sol(:ncol,:, 51)*sol(:ncol,:, 116) ! rate_const*HNO3*NO3m_HCL
310 77921280 : rxt_rates(:ncol,:, 300) = rxt_rates(:ncol,:, 300)*sol(:ncol,:, 113)*sol(:ncol,:, 51) ! rate_const*M*NO3m*HNO3
311 77921280 : rxt_rates(:ncol,:, 301) = rxt_rates(:ncol,:, 301)*sol(:ncol,:, 113)*sol(:ncol,:, 70) ! rate_const*NO3m*O
312 77921280 : rxt_rates(:ncol,:, 302) = rxt_rates(:ncol,:, 302)*sol(:ncol,:, 73)*sol(:ncol,:, 113) ! rate_const*O3*NO3m
313 77921280 : rxt_rates(:ncol,:, 303) = rxt_rates(:ncol,:, 303)*sol(:ncol,:, 119)*sol(:ncol,:, 98) ! rate_const*NOp_2H2O*e
314 77921280 : rxt_rates(:ncol,:, 304) = rxt_rates(:ncol,:, 304)*sol(:ncol,:, 120)*sol(:ncol,:, 98) ! rate_const*NOp_3H2O*e
315 77921280 : rxt_rates(:ncol,:, 305) = rxt_rates(:ncol,:, 305)*sol(:ncol,:, 139)*sol(:ncol,:, 120) ! rate_const*H2O*NOp_3H2O
316 77921280 : rxt_rates(:ncol,:, 306) = rxt_rates(:ncol,:, 306)*sol(:ncol,:, 121)*sol(:ncol,:, 98) ! rate_const*NOp_CO2*e
317 77921280 : rxt_rates(:ncol,:, 307) = rxt_rates(:ncol,:, 307)*sol(:ncol,:, 121)*sol(:ncol,:, 139) ! rate_const*NOp_CO2*H2O
318 77921280 : rxt_rates(:ncol,:, 308) = rxt_rates(:ncol,:, 308)*sol(:ncol,:, 122)*sol(:ncol,:, 98) ! rate_const*NOp_H2O*e
319 77921280 : rxt_rates(:ncol,:, 309) = rxt_rates(:ncol,:, 309)*sol(:ncol,:, 40)*sol(:ncol,:, 122) ! rate_const*H*NOp_H2O
320 77921280 : rxt_rates(:ncol,:, 310) = rxt_rates(:ncol,:, 310)*sol(:ncol,:, 122)*sol(:ncol,:, 101) ! rate_const*NOp_H2O*HO2
321 77921280 : rxt_rates(:ncol,:, 311) = rxt_rates(:ncol,:, 311)*sol(:ncol,:, 122)*sol(:ncol,:, 133) ! rate_const*NOp_H2O*OH
322 77921280 : rxt_rates(:ncol,:, 312) = rxt_rates(:ncol,:, 312)*sol(:ncol,:, 32)*sol(:ncol,:, 123) ! rate_const*CO2*NOp_N2
323 77921280 : rxt_rates(:ncol,:, 313) = rxt_rates(:ncol,:, 313)*sol(:ncol,:, 123)*sol(:ncol,:, 139) ! rate_const*NOp_N2*H2O
324 77921280 : rxt_rates(:ncol,:, 314) = rxt_rates(:ncol,:, 314)*sol(:ncol,:, 127)*sol(:ncol,:, 25) ! rate_const*O2m*CL
325 77921280 : rxt_rates(:ncol,:, 315) = rxt_rates(:ncol,:, 315)*sol(:ncol,:, 28)*sol(:ncol,:, 127) ! rate_const*CLO*O2m
326 77921280 : rxt_rates(:ncol,:, 316) = rxt_rates(:ncol,:, 316)*sol(:ncol,:, 32)*sol(:ncol,:, 127) ! rate_const*M*CO2*O2m
327 77921280 : rxt_rates(:ncol,:, 317) = rxt_rates(:ncol,:, 317)*sol(:ncol,:, 40)*sol(:ncol,:, 127) ! rate_const*H*O2m
328 77921280 : rxt_rates(:ncol,:, 318) = rxt_rates(:ncol,:, 318)*sol(:ncol,:, 127)*sol(:ncol,:, 49) ! rate_const*O2m*HCL
329 77921280 : rxt_rates(:ncol,:, 319) = rxt_rates(:ncol,:, 319)*sol(:ncol,:, 127)*sol(:ncol,:, 51) ! rate_const*O2m*HNO3
330 77921280 : rxt_rates(:ncol,:, 320) = rxt_rates(:ncol,:, 320)*sol(:ncol,:, 63)*sol(:ncol,:, 127) ! rate_const*NO2*O2m
331 77921280 : rxt_rates(:ncol,:, 321) = rxt_rates(:ncol,:, 321)*sol(:ncol,:, 125)*sol(:ncol,:, 127) ! rate_const*O2_1D*O2m
332 77921280 : rxt_rates(:ncol,:, 322) = rxt_rates(:ncol,:, 322)*sol(:ncol,:, 72)*sol(:ncol,:, 127) ! rate_const*M*O2*O2m
333 77921280 : rxt_rates(:ncol,:, 323) = rxt_rates(:ncol,:, 323)*sol(:ncol,:, 73)*sol(:ncol,:, 127) ! rate_const*O3*O2m
334 77921280 : rxt_rates(:ncol,:, 324) = rxt_rates(:ncol,:, 324)*sol(:ncol,:, 70)*sol(:ncol,:, 127) ! rate_const*O*O2m
335 77921280 : rxt_rates(:ncol,:, 325) = rxt_rates(:ncol,:, 325)*sol(:ncol,:, 127)*sol(:ncol,:, 70) ! rate_const*O2m*O
336 77921280 : rxt_rates(:ncol,:, 326) = rxt_rates(:ncol,:, 326)*sol(:ncol,:, 129)*sol(:ncol,:, 98) ! rate_const*O2p_H2O*e
337 77921280 : rxt_rates(:ncol,:, 327) = rxt_rates(:ncol,:, 327)*sol(:ncol,:, 129)*sol(:ncol,:, 139) ! rate_const*O2p_H2O*H2O
338 77921280 : rxt_rates(:ncol,:, 328) = rxt_rates(:ncol,:, 328)*sol(:ncol,:, 129)*sol(:ncol,:, 139) ! rate_const*O2p_H2O*H2O
339 77921280 : rxt_rates(:ncol,:, 329) = rxt_rates(:ncol,:, 329)*sol(:ncol,:, 139)*sol(:ncol,:, 128) ! rate_const*M*H2O*O2p
340 77921280 : rxt_rates(:ncol,:, 330) = rxt_rates(:ncol,:, 330)*sol(:ncol,:, 130)*sol(:ncol,:, 32) ! rate_const*O3m*CO2
341 77921280 : rxt_rates(:ncol,:, 331) = rxt_rates(:ncol,:, 331)*sol(:ncol,:, 130)*sol(:ncol,:, 40) ! rate_const*O3m*H
342 77921280 : rxt_rates(:ncol,:, 332) = rxt_rates(:ncol,:, 332)*sol(:ncol,:, 73)*sol(:ncol,:, 130) ! rate_const*O3*O3m
343 77921280 : rxt_rates(:ncol,:, 333) = rxt_rates(:ncol,:, 333)*sol(:ncol,:, 130)*sol(:ncol,:, 70) ! rate_const*O3m*O
344 77921280 : rxt_rates(:ncol,:, 334) = rxt_rates(:ncol,:, 334)*sol(:ncol,:, 70)*sol(:ncol,:, 130) ! rate_const*O*O3m
345 77921280 : rxt_rates(:ncol,:, 335) = rxt_rates(:ncol,:, 335)*sol(:ncol,:, 32)*sol(:ncol,:, 131) ! rate_const*CO2*O4m
346 77921280 : rxt_rates(:ncol,:, 336) = rxt_rates(:ncol,:, 336)*sol(:ncol,:, 70)*sol(:ncol,:, 131) ! rate_const*O*O4m
347 77921280 : rxt_rates(:ncol,:, 337) = rxt_rates(:ncol,:, 337)*sol(:ncol,:, 139)*sol(:ncol,:, 132) ! rate_const*H2O*O4p
348 77921280 : rxt_rates(:ncol,:, 338) = rxt_rates(:ncol,:, 338)*sol(:ncol,:, 132)*sol(:ncol,:, 70) ! rate_const*O4p*O
349 77921280 : rxt_rates(:ncol,:, 339) = rxt_rates(:ncol,:, 339)*sol(:ncol,:, 132)*sol(:ncol,:, 125) ! rate_const*O4p*O2_1D
350 77921280 : rxt_rates(:ncol,:, 340) = rxt_rates(:ncol,:, 340)*sol(:ncol,:, 55)*sol(:ncol,:, 133) ! rate_const*HONO*OH
351 77921280 : rxt_rates(:ncol,:, 341) = rxt_rates(:ncol,:, 341)*sol(:ncol,:, 25)*sol(:ncol,:, 134) ! rate_const*CL*OHm
352 77921280 : rxt_rates(:ncol,:, 342) = rxt_rates(:ncol,:, 342)*sol(:ncol,:, 28)*sol(:ncol,:, 134) ! rate_const*CLO*OHm
353 77921280 : rxt_rates(:ncol,:, 343) = rxt_rates(:ncol,:, 343)*sol(:ncol,:, 32)*sol(:ncol,:, 134) ! rate_const*M*CO2*OHm
354 77921280 : rxt_rates(:ncol,:, 344) = rxt_rates(:ncol,:, 344)*sol(:ncol,:, 40)*sol(:ncol,:, 134) ! rate_const*H*OHm
355 77921280 : rxt_rates(:ncol,:, 345) = rxt_rates(:ncol,:, 345)*sol(:ncol,:, 134)*sol(:ncol,:, 49) ! rate_const*OHm*HCL
356 77921280 : rxt_rates(:ncol,:, 346) = rxt_rates(:ncol,:, 346)*sol(:ncol,:, 63)*sol(:ncol,:, 134) ! rate_const*NO2*OHm
357 77921280 : rxt_rates(:ncol,:, 347) = rxt_rates(:ncol,:, 347)*sol(:ncol,:, 134)*sol(:ncol,:, 70) ! rate_const*OHm*O
358 77921280 : rxt_rates(:ncol,:, 348) = rxt_rates(:ncol,:, 348)*sol(:ncol,:, 134)*sol(:ncol,:, 73) ! rate_const*OHm*O3
359 77921280 : rxt_rates(:ncol,:, 349) = rxt_rates(:ncol,:, 349)*sol(:ncol,:, 133)*sol(:ncol,:, 62) ! rate_const*M*OH*NO
360 77921280 : rxt_rates(:ncol,:, 350) = rxt_rates(:ncol,:, 350)*sol(:ncol,:, 135)*sol(:ncol,:, 25) ! rate_const*Om*CL
361 77921280 : rxt_rates(:ncol,:, 351) = rxt_rates(:ncol,:, 351)*sol(:ncol,:, 28)*sol(:ncol,:, 135) ! rate_const*CLO*Om
362 77921280 : rxt_rates(:ncol,:, 352) = rxt_rates(:ncol,:, 352)*sol(:ncol,:, 135)*sol(:ncol,:, 32) ! rate_const*M*Om*CO2
363 77921280 : rxt_rates(:ncol,:, 353) = rxt_rates(:ncol,:, 353)*sol(:ncol,:, 41)*sol(:ncol,:, 135) ! rate_const*H2*Om
364 77921280 : rxt_rates(:ncol,:, 354) = rxt_rates(:ncol,:, 354)*sol(:ncol,:, 135)*sol(:ncol,:, 41) ! rate_const*Om*H2
365 77921280 : rxt_rates(:ncol,:, 355) = rxt_rates(:ncol,:, 355)*sol(:ncol,:, 135)*sol(:ncol,:, 139) ! rate_const*Om*H2O
366 77921280 : rxt_rates(:ncol,:, 356) = rxt_rates(:ncol,:, 356)*sol(:ncol,:, 135)*sol(:ncol,:, 49) ! rate_const*Om*HCL
367 77921280 : rxt_rates(:ncol,:, 357) = rxt_rates(:ncol,:, 357)*sol(:ncol,:, 135)*sol(:ncol,:, 51) ! rate_const*Om*HNO3
368 77921280 : rxt_rates(:ncol,:, 358) = rxt_rates(:ncol,:, 358)*sol(:ncol,:, 135) ! rate_const*M*Om
369 77921280 : rxt_rates(:ncol,:, 359) = rxt_rates(:ncol,:, 359)*sol(:ncol,:, 63)*sol(:ncol,:, 135) ! rate_const*NO2*Om
370 77921280 : rxt_rates(:ncol,:, 360) = rxt_rates(:ncol,:, 360)*sol(:ncol,:, 135)*sol(:ncol,:, 70) ! rate_const*Om*O
371 77921280 : rxt_rates(:ncol,:, 361) = rxt_rates(:ncol,:, 361)*sol(:ncol,:, 135)*sol(:ncol,:, 125) ! rate_const*Om*O2_1D
372 77921280 : rxt_rates(:ncol,:, 362) = rxt_rates(:ncol,:, 362)*sol(:ncol,:, 135)*sol(:ncol,:, 72) ! rate_const*M*Om*O2
373 77921280 : rxt_rates(:ncol,:, 363) = rxt_rates(:ncol,:, 363)*sol(:ncol,:, 73)*sol(:ncol,:, 135) ! rate_const*O3*Om
374 77921280 : rxt_rates(:ncol,:, 364) = rxt_rates(:ncol,:, 364)*sol(:ncol,:, 128)*sol(:ncol,:, 72) ! rate_const*M*O2p*O2
375 77921280 : rxt_rates(:ncol,:, 365) = rxt_rates(:ncol,:, 365)*sol(:ncol,:, 139)*sol(:ncol,:, 118) ! rate_const*M*H2O*NOp
376 77921280 : rxt_rates(:ncol,:, 366) = rxt_rates(:ncol,:, 366)*sol(:ncol,:, 139)*sol(:ncol,:, 122) ! rate_const*M*H2O*NOp_H2O
377 77921280 : rxt_rates(:ncol,:, 367) = rxt_rates(:ncol,:, 367)*sol(:ncol,:, 139)*sol(:ncol,:, 119) ! rate_const*M*H2O*NOp_2H2O
378 77921280 : rxt_rates(:ncol,:, 368) = rxt_rates(:ncol,:, 368)*sol(:ncol,:, 118)*sol(:ncol,:, 32) ! rate_const*M*NOp*CO2
379 77921280 : rxt_rates(:ncol,:, 369) = rxt_rates(:ncol,:, 369)*sol(:ncol,:, 121) ! rate_const*M*NOp_CO2
380 77921280 : rxt_rates(:ncol,:, 370) = rxt_rates(:ncol,:, 370)*sol(:ncol,:, 118) ! rate_const*N2*M*NOp
381 77921280 : rxt_rates(:ncol,:, 371) = rxt_rates(:ncol,:, 371)*sol(:ncol,:, 123) ! rate_const*M*NOp_N2
382 77921280 : rxt_rates(:ncol,:, 372) = rxt_rates(:ncol,:, 372)*sol(:ncol,:, 108)*sol(:ncol,:, 139) ! rate_const*M*Hp_H2O*H2O
383 77921280 : rxt_rates(:ncol,:, 373) = rxt_rates(:ncol,:, 373)*sol(:ncol,:, 102) ! rate_const*M*Hp_2H2O
384 77921280 : rxt_rates(:ncol,:, 374) = rxt_rates(:ncol,:, 374)*sol(:ncol,:, 139)*sol(:ncol,:, 102) ! rate_const*M*H2O*Hp_2H2O
385 77921280 : rxt_rates(:ncol,:, 375) = rxt_rates(:ncol,:, 375)*sol(:ncol,:, 103) ! rate_const*M*Hp_3H2O
386 77921280 : rxt_rates(:ncol,:, 376) = rxt_rates(:ncol,:, 376)*sol(:ncol,:, 103)*sol(:ncol,:, 139) ! rate_const*M*Hp_3H2O*H2O
387 77921280 : rxt_rates(:ncol,:, 377) = rxt_rates(:ncol,:, 377)*sol(:ncol,:, 105) ! rate_const*M*Hp_4H2O
388 77921280 : rxt_rates(:ncol,:, 378) = rxt_rates(:ncol,:, 378)*sol(:ncol,:, 105)*sol(:ncol,:, 139) ! rate_const*M*Hp_4H2O*H2O
389 77921280 : rxt_rates(:ncol,:, 379) = rxt_rates(:ncol,:, 379)*sol(:ncol,:, 107) ! rate_const*M*Hp_5H2O
390 77921280 : rxt_rates(:ncol,:, 380) = rxt_rates(:ncol,:, 380)*sol(:ncol,:, 98)*sol(:ncol,:, 132) ! rate_const*e*O4p
391 77921280 : rxt_rates(:ncol,:, 381) = rxt_rates(:ncol,:, 381)*sol(:ncol,:, 108)*sol(:ncol,:, 98) ! rate_const*Hp_H2O*e
392 77921280 : rxt_rates(:ncol,:, 382) = rxt_rates(:ncol,:, 382)*sol(:ncol,:, 102)*sol(:ncol,:, 98) ! rate_const*Hp_2H2O*e
393 77921280 : rxt_rates(:ncol,:, 383) = rxt_rates(:ncol,:, 383)*sol(:ncol,:, 103)*sol(:ncol,:, 98) ! rate_const*Hp_3H2O*e
394 77921280 : rxt_rates(:ncol,:, 384) = rxt_rates(:ncol,:, 384)*sol(:ncol,:, 98)*sol(:ncol,:, 123) ! rate_const*e*NOp_N2
395 77921280 : rxt_rates(:ncol,:, 385) = rxt_rates(:ncol,:, 385)*sol(:ncol,:, 91) ! rate_const*M*CLm_H2O
396 77921280 : rxt_rates(:ncol,:, 386) = rxt_rates(:ncol,:, 386)*sol(:ncol,:, 92) ! rate_const*M*CLm_HCL
397 77921280 : rxt_rates(:ncol,:, 387) = rxt_rates(:ncol,:, 387)*sol(:ncol,:, 125) ! rate_const*O2_1D
398 77921280 : rxt_rates(:ncol,:, 388) = rxt_rates(:ncol,:, 388)*sol(:ncol,:, 126) ! rate_const*O2_1S
399 77921280 : rxt_rates(:ncol,:, 389) = rxt_rates(:ncol,:, 389)*sol(:ncol,:, 71)*sol(:ncol,:, 41) ! rate_const*O1D*H2
400 77921280 : rxt_rates(:ncol,:, 390) = rxt_rates(:ncol,:, 390)*sol(:ncol,:, 71)*sol(:ncol,:, 139) ! rate_const*O1D*H2O
401 77921280 : rxt_rates(:ncol,:, 391) = rxt_rates(:ncol,:, 391)*sol(:ncol,:, 71) ! rate_const*N2*O1D
402 77921280 : rxt_rates(:ncol,:, 392) = rxt_rates(:ncol,:, 392)*sol(:ncol,:, 71)*sol(:ncol,:, 72) ! rate_const*O1D*O2
403 77921280 : rxt_rates(:ncol,:, 393) = rxt_rates(:ncol,:, 393)*sol(:ncol,:, 71)*sol(:ncol,:, 72) ! rate_const*O1D*O2
404 77921280 : rxt_rates(:ncol,:, 394) = rxt_rates(:ncol,:, 394)*sol(:ncol,:, 71)*sol(:ncol,:, 73) ! rate_const*O1D*O3
405 77921280 : rxt_rates(:ncol,:, 395) = rxt_rates(:ncol,:, 395)*sol(:ncol,:, 125) ! rate_const*N2*O2_1D
406 77921280 : rxt_rates(:ncol,:, 396) = rxt_rates(:ncol,:, 396)*sol(:ncol,:, 125)*sol(:ncol,:, 70) ! rate_const*O2_1D*O
407 77921280 : rxt_rates(:ncol,:, 397) = rxt_rates(:ncol,:, 397)*sol(:ncol,:, 125)*sol(:ncol,:, 72) ! rate_const*O2_1D*O2
408 77921280 : rxt_rates(:ncol,:, 398) = rxt_rates(:ncol,:, 398)*sol(:ncol,:, 126)*sol(:ncol,:, 32) ! rate_const*O2_1S*CO2
409 77921280 : rxt_rates(:ncol,:, 399) = rxt_rates(:ncol,:, 399)*sol(:ncol,:, 126) ! rate_const*N2*O2_1S
410 77921280 : rxt_rates(:ncol,:, 400) = rxt_rates(:ncol,:, 400)*sol(:ncol,:, 126)*sol(:ncol,:, 70) ! rate_const*O2_1S*O
411 77921280 : rxt_rates(:ncol,:, 401) = rxt_rates(:ncol,:, 401)*sol(:ncol,:, 126)*sol(:ncol,:, 72) ! rate_const*O2_1S*O2
412 77921280 : rxt_rates(:ncol,:, 402) = rxt_rates(:ncol,:, 402)*sol(:ncol,:, 126)*sol(:ncol,:, 73) ! rate_const*O2_1S*O3
413 77921280 : rxt_rates(:ncol,:, 403) = rxt_rates(:ncol,:, 403)*sol(:ncol,:, 70)*sol(:ncol,:, 73) ! rate_const*O*O3
414 77921280 : rxt_rates(:ncol,:, 404) = rxt_rates(:ncol,:, 404)*sol(:ncol,:, 70)*sol(:ncol,:, 70) ! rate_const*M*O*O
415 77921280 : rxt_rates(:ncol,:, 405) = rxt_rates(:ncol,:, 405)*sol(:ncol,:, 70)*sol(:ncol,:, 72) ! rate_const*M*O*O2
416 77921280 : rxt_rates(:ncol,:, 406) = rxt_rates(:ncol,:, 406)*sol(:ncol,:, 41)*sol(:ncol,:, 70) ! rate_const*H2*O
417 77921280 : rxt_rates(:ncol,:, 407) = rxt_rates(:ncol,:, 407)*sol(:ncol,:, 43)*sol(:ncol,:, 70) ! rate_const*H2O2*O
418 77921280 : rxt_rates(:ncol,:, 408) = rxt_rates(:ncol,:, 408)*sol(:ncol,:, 40)*sol(:ncol,:, 101) ! rate_const*H*HO2
419 77921280 : rxt_rates(:ncol,:, 409) = rxt_rates(:ncol,:, 409)*sol(:ncol,:, 40)*sol(:ncol,:, 101) ! rate_const*H*HO2
420 77921280 : rxt_rates(:ncol,:, 410) = rxt_rates(:ncol,:, 410)*sol(:ncol,:, 40)*sol(:ncol,:, 101) ! rate_const*H*HO2
421 77921280 : rxt_rates(:ncol,:, 411) = rxt_rates(:ncol,:, 411)*sol(:ncol,:, 40)*sol(:ncol,:, 72) ! rate_const*M*H*O2
422 77921280 : rxt_rates(:ncol,:, 412) = rxt_rates(:ncol,:, 412)*sol(:ncol,:, 101)*sol(:ncol,:, 70) ! rate_const*HO2*O
423 77921280 : rxt_rates(:ncol,:, 413) = rxt_rates(:ncol,:, 413)*sol(:ncol,:, 101)*sol(:ncol,:, 73) ! rate_const*HO2*O3
424 77921280 : rxt_rates(:ncol,:, 414) = rxt_rates(:ncol,:, 414)*sol(:ncol,:, 40)*sol(:ncol,:, 73) ! rate_const*H*O3
425 77921280 : rxt_rates(:ncol,:, 415) = rxt_rates(:ncol,:, 415)*sol(:ncol,:, 133)*sol(:ncol,:, 41) ! rate_const*OH*H2
426 77921280 : rxt_rates(:ncol,:, 416) = rxt_rates(:ncol,:, 416)*sol(:ncol,:, 133)*sol(:ncol,:, 43) ! rate_const*OH*H2O2
427 77921280 : rxt_rates(:ncol,:, 417) = rxt_rates(:ncol,:, 417)*sol(:ncol,:, 133)*sol(:ncol,:, 101) ! rate_const*OH*HO2
428 77921280 : rxt_rates(:ncol,:, 418) = rxt_rates(:ncol,:, 418)*sol(:ncol,:, 133)*sol(:ncol,:, 70) ! rate_const*OH*O
429 77921280 : rxt_rates(:ncol,:, 419) = rxt_rates(:ncol,:, 419)*sol(:ncol,:, 133)*sol(:ncol,:, 73) ! rate_const*OH*O3
430 77921280 : rxt_rates(:ncol,:, 420) = rxt_rates(:ncol,:, 420)*sol(:ncol,:, 133)*sol(:ncol,:, 133) ! rate_const*OH*OH
431 77921280 : rxt_rates(:ncol,:, 421) = rxt_rates(:ncol,:, 421)*sol(:ncol,:, 133)*sol(:ncol,:, 133) ! rate_const*M*OH*OH
432 77921280 : rxt_rates(:ncol,:, 422) = rxt_rates(:ncol,:, 422)*sol(:ncol,:, 101)*sol(:ncol,:, 101) ! rate_const*HO2*HO2
433 77921280 : rxt_rates(:ncol,:, 423) = rxt_rates(:ncol,:, 423)*sol(:ncol,:, 52)*sol(:ncol,:, 133) ! rate_const*HO2NO2*OH
434 77921280 : rxt_rates(:ncol,:, 424) = rxt_rates(:ncol,:, 424)*sol(:ncol,:, 109)*sol(:ncol,:, 70) ! rate_const*N2D*O
435 77921280 : rxt_rates(:ncol,:, 425) = rxt_rates(:ncol,:, 425)*sol(:ncol,:, 109)*sol(:ncol,:, 72) ! rate_const*N2D*O2
436 77921280 : rxt_rates(:ncol,:, 426) = rxt_rates(:ncol,:, 426)*sol(:ncol,:, 56)*sol(:ncol,:, 62) ! rate_const*N*NO
437 77921280 : rxt_rates(:ncol,:, 427) = rxt_rates(:ncol,:, 427)*sol(:ncol,:, 56)*sol(:ncol,:, 63) ! rate_const*N*NO2
438 77921280 : rxt_rates(:ncol,:, 428) = rxt_rates(:ncol,:, 428)*sol(:ncol,:, 56)*sol(:ncol,:, 63) ! rate_const*N*NO2
439 77921280 : rxt_rates(:ncol,:, 429) = rxt_rates(:ncol,:, 429)*sol(:ncol,:, 56)*sol(:ncol,:, 63) ! rate_const*N*NO2
440 77921280 : rxt_rates(:ncol,:, 430) = rxt_rates(:ncol,:, 430)*sol(:ncol,:, 56)*sol(:ncol,:, 72) ! rate_const*N*O2
441 77921280 : rxt_rates(:ncol,:, 431) = rxt_rates(:ncol,:, 431)*sol(:ncol,:, 63)*sol(:ncol,:, 70) ! rate_const*NO2*O
442 77921280 : rxt_rates(:ncol,:, 432) = rxt_rates(:ncol,:, 432)*sol(:ncol,:, 63)*sol(:ncol,:, 73) ! rate_const*NO2*O3
443 77921280 : rxt_rates(:ncol,:, 433) = rxt_rates(:ncol,:, 433)*sol(:ncol,:, 63)*sol(:ncol,:, 70) ! rate_const*M*NO2*O
444 77921280 : rxt_rates(:ncol,:, 434) = rxt_rates(:ncol,:, 434)*sol(:ncol,:, 64)*sol(:ncol,:, 101) ! rate_const*NO3*HO2
445 77921280 : rxt_rates(:ncol,:, 435) = rxt_rates(:ncol,:, 435)*sol(:ncol,:, 64)*sol(:ncol,:, 62) ! rate_const*NO3*NO
446 77921280 : rxt_rates(:ncol,:, 436) = rxt_rates(:ncol,:, 436)*sol(:ncol,:, 64)*sol(:ncol,:, 70) ! rate_const*NO3*O
447 77921280 : rxt_rates(:ncol,:, 437) = rxt_rates(:ncol,:, 437)*sol(:ncol,:, 64)*sol(:ncol,:, 133) ! rate_const*NO3*OH
448 77921280 : rxt_rates(:ncol,:, 438) = rxt_rates(:ncol,:, 438)*sol(:ncol,:, 56)*sol(:ncol,:, 133) ! rate_const*N*OH
449 77921280 : rxt_rates(:ncol,:, 439) = rxt_rates(:ncol,:, 439)*sol(:ncol,:, 62)*sol(:ncol,:, 101) ! rate_const*NO*HO2
450 77921280 : rxt_rates(:ncol,:, 440) = rxt_rates(:ncol,:, 440)*sol(:ncol,:, 62)*sol(:ncol,:, 73) ! rate_const*NO*O3
451 77921280 : rxt_rates(:ncol,:, 441) = rxt_rates(:ncol,:, 441)*sol(:ncol,:, 62)*sol(:ncol,:, 70) ! rate_const*M*NO*O
452 77921280 : rxt_rates(:ncol,:, 442) = rxt_rates(:ncol,:, 442)*sol(:ncol,:, 71)*sol(:ncol,:, 57) ! rate_const*O1D*N2O
453 77921280 : rxt_rates(:ncol,:, 443) = rxt_rates(:ncol,:, 443)*sol(:ncol,:, 71)*sol(:ncol,:, 57) ! rate_const*O1D*N2O
454 77921280 : rxt_rates(:ncol,:, 444) = rxt_rates(:ncol,:, 444)*sol(:ncol,:, 63)*sol(:ncol,:, 101) ! rate_const*M*NO2*HO2
455 77921280 : rxt_rates(:ncol,:, 445) = rxt_rates(:ncol,:, 445)*sol(:ncol,:, 63)*sol(:ncol,:, 64) ! rate_const*M*NO2*NO3
456 77921280 : rxt_rates(:ncol,:, 446) = rxt_rates(:ncol,:, 446)*sol(:ncol,:, 63)*sol(:ncol,:, 133) ! rate_const*M*NO2*OH
457 77921280 : rxt_rates(:ncol,:, 447) = rxt_rates(:ncol,:, 447)*sol(:ncol,:, 51)*sol(:ncol,:, 133) ! rate_const*HNO3*OH
458 77921280 : rxt_rates(:ncol,:, 448) = rxt_rates(:ncol,:, 448)*sol(:ncol,:, 52) ! rate_const*M*HO2NO2
459 77921280 : rxt_rates(:ncol,:, 449) = rxt_rates(:ncol,:, 449)*sol(:ncol,:, 58) ! rate_const*M*N2O5
460 77921280 : rxt_rates(:ncol,:, 450) = rxt_rates(:ncol,:, 450)*sol(:ncol,:, 25)*sol(:ncol,:, 17) ! rate_const*CL*CH2O
461 77921280 : rxt_rates(:ncol,:, 451) = rxt_rates(:ncol,:, 451)*sol(:ncol,:, 25)*sol(:ncol,:, 23) ! rate_const*CL*CH4
462 77921280 : rxt_rates(:ncol,:, 452) = rxt_rates(:ncol,:, 452)*sol(:ncol,:, 25)*sol(:ncol,:, 41) ! rate_const*CL*H2
463 77921280 : rxt_rates(:ncol,:, 453) = rxt_rates(:ncol,:, 453)*sol(:ncol,:, 25)*sol(:ncol,:, 43) ! rate_const*CL*H2O2
464 77921280 : rxt_rates(:ncol,:, 454) = rxt_rates(:ncol,:, 454)*sol(:ncol,:, 25)*sol(:ncol,:, 101) ! rate_const*CL*HO2
465 77921280 : rxt_rates(:ncol,:, 455) = rxt_rates(:ncol,:, 455)*sol(:ncol,:, 25)*sol(:ncol,:, 101) ! rate_const*CL*HO2
466 77921280 : rxt_rates(:ncol,:, 456) = rxt_rates(:ncol,:, 456)*sol(:ncol,:, 25)*sol(:ncol,:, 73) ! rate_const*CL*O3
467 77921280 : rxt_rates(:ncol,:, 457) = rxt_rates(:ncol,:, 457)*sol(:ncol,:, 28)*sol(:ncol,:, 21) ! rate_const*CLO*CH3O2
468 77921280 : rxt_rates(:ncol,:, 458) = rxt_rates(:ncol,:, 458)*sol(:ncol,:, 28)*sol(:ncol,:, 28) ! rate_const*CLO*CLO
469 77921280 : rxt_rates(:ncol,:, 459) = rxt_rates(:ncol,:, 459)*sol(:ncol,:, 28)*sol(:ncol,:, 28) ! rate_const*CLO*CLO
470 77921280 : rxt_rates(:ncol,:, 460) = rxt_rates(:ncol,:, 460)*sol(:ncol,:, 28)*sol(:ncol,:, 28) ! rate_const*CLO*CLO
471 77921280 : rxt_rates(:ncol,:, 461) = rxt_rates(:ncol,:, 461)*sol(:ncol,:, 28)*sol(:ncol,:, 101) ! rate_const*CLO*HO2
472 77921280 : rxt_rates(:ncol,:, 462) = rxt_rates(:ncol,:, 462)*sol(:ncol,:, 28)*sol(:ncol,:, 62) ! rate_const*CLO*NO
473 77921280 : rxt_rates(:ncol,:, 463) = rxt_rates(:ncol,:, 463)*sol(:ncol,:, 29)*sol(:ncol,:, 25) ! rate_const*CLONO2*CL
474 77921280 : rxt_rates(:ncol,:, 464) = rxt_rates(:ncol,:, 464)*sol(:ncol,:, 28)*sol(:ncol,:, 63) ! rate_const*M*CLO*NO2
475 77921280 : rxt_rates(:ncol,:, 465) = rxt_rates(:ncol,:, 465)*sol(:ncol,:, 29)*sol(:ncol,:, 70) ! rate_const*CLONO2*O
476 77921280 : rxt_rates(:ncol,:, 466) = rxt_rates(:ncol,:, 466)*sol(:ncol,:, 29)*sol(:ncol,:, 133) ! rate_const*CLONO2*OH
477 77921280 : rxt_rates(:ncol,:, 467) = rxt_rates(:ncol,:, 467)*sol(:ncol,:, 28)*sol(:ncol,:, 70) ! rate_const*CLO*O
478 77921280 : rxt_rates(:ncol,:, 468) = rxt_rates(:ncol,:, 468)*sol(:ncol,:, 28)*sol(:ncol,:, 133) ! rate_const*CLO*OH
479 77921280 : rxt_rates(:ncol,:, 469) = rxt_rates(:ncol,:, 469)*sol(:ncol,:, 28)*sol(:ncol,:, 133) ! rate_const*CLO*OH
480 77921280 : rxt_rates(:ncol,:, 470) = rxt_rates(:ncol,:, 470)*sol(:ncol,:, 49)*sol(:ncol,:, 70) ! rate_const*HCL*O
481 77921280 : rxt_rates(:ncol,:, 471) = rxt_rates(:ncol,:, 471)*sol(:ncol,:, 49)*sol(:ncol,:, 133) ! rate_const*HCL*OH
482 77921280 : rxt_rates(:ncol,:, 472) = rxt_rates(:ncol,:, 472)*sol(:ncol,:, 54)*sol(:ncol,:, 25) ! rate_const*HOCL*CL
483 77921280 : rxt_rates(:ncol,:, 473) = rxt_rates(:ncol,:, 473)*sol(:ncol,:, 54)*sol(:ncol,:, 70) ! rate_const*HOCL*O
484 77921280 : rxt_rates(:ncol,:, 474) = rxt_rates(:ncol,:, 474)*sol(:ncol,:, 54)*sol(:ncol,:, 133) ! rate_const*HOCL*OH
485 77921280 : rxt_rates(:ncol,:, 475) = rxt_rates(:ncol,:, 475)*sol(:ncol,:, 71)*sol(:ncol,:, 8) ! rate_const*O1D*CCL4
486 77921280 : rxt_rates(:ncol,:, 476) = rxt_rates(:ncol,:, 476)*sol(:ncol,:, 71)*sol(:ncol,:, 9) ! rate_const*O1D*CF2CLBR
487 77921280 : rxt_rates(:ncol,:, 477) = rxt_rates(:ncol,:, 477)*sol(:ncol,:, 71)*sol(:ncol,:, 11) ! rate_const*O1D*CFC11
488 77921280 : rxt_rates(:ncol,:, 478) = rxt_rates(:ncol,:, 478)*sol(:ncol,:, 71)*sol(:ncol,:, 12) ! rate_const*O1D*CFC113
489 77921280 : rxt_rates(:ncol,:, 479) = rxt_rates(:ncol,:, 479)*sol(:ncol,:, 71)*sol(:ncol,:, 13) ! rate_const*O1D*CFC114
490 77921280 : rxt_rates(:ncol,:, 480) = rxt_rates(:ncol,:, 480)*sol(:ncol,:, 71)*sol(:ncol,:, 14) ! rate_const*O1D*CFC115
491 77921280 : rxt_rates(:ncol,:, 481) = rxt_rates(:ncol,:, 481)*sol(:ncol,:, 71)*sol(:ncol,:, 15) ! rate_const*O1D*CFC12
492 77921280 : rxt_rates(:ncol,:, 482) = rxt_rates(:ncol,:, 482)*sol(:ncol,:, 71)*sol(:ncol,:, 49) ! rate_const*O1D*HCL
493 77921280 : rxt_rates(:ncol,:, 483) = rxt_rates(:ncol,:, 483)*sol(:ncol,:, 71)*sol(:ncol,:, 49) ! rate_const*O1D*HCL
494 77921280 : rxt_rates(:ncol,:, 484) = rxt_rates(:ncol,:, 484)*sol(:ncol,:, 28)*sol(:ncol,:, 28) ! rate_const*M*CLO*CLO
495 77921280 : rxt_rates(:ncol,:, 485) = rxt_rates(:ncol,:, 485)*sol(:ncol,:, 27) ! rate_const*M*CL2O2
496 77921280 : rxt_rates(:ncol,:, 486) = rxt_rates(:ncol,:, 486)*sol(:ncol,:, 3)*sol(:ncol,:, 17) ! rate_const*BR*CH2O
497 77921280 : rxt_rates(:ncol,:, 487) = rxt_rates(:ncol,:, 487)*sol(:ncol,:, 3)*sol(:ncol,:, 101) ! rate_const*BR*HO2
498 77921280 : rxt_rates(:ncol,:, 488) = rxt_rates(:ncol,:, 488)*sol(:ncol,:, 3)*sol(:ncol,:, 73) ! rate_const*BR*O3
499 77921280 : rxt_rates(:ncol,:, 489) = rxt_rates(:ncol,:, 489)*sol(:ncol,:, 5)*sol(:ncol,:, 5) ! rate_const*BRO*BRO
500 77921280 : rxt_rates(:ncol,:, 490) = rxt_rates(:ncol,:, 490)*sol(:ncol,:, 5)*sol(:ncol,:, 28) ! rate_const*BRO*CLO
501 77921280 : rxt_rates(:ncol,:, 491) = rxt_rates(:ncol,:, 491)*sol(:ncol,:, 5)*sol(:ncol,:, 28) ! rate_const*BRO*CLO
502 77921280 : rxt_rates(:ncol,:, 492) = rxt_rates(:ncol,:, 492)*sol(:ncol,:, 5)*sol(:ncol,:, 28) ! rate_const*BRO*CLO
503 77921280 : rxt_rates(:ncol,:, 493) = rxt_rates(:ncol,:, 493)*sol(:ncol,:, 5)*sol(:ncol,:, 101) ! rate_const*BRO*HO2
504 77921280 : rxt_rates(:ncol,:, 494) = rxt_rates(:ncol,:, 494)*sol(:ncol,:, 5)*sol(:ncol,:, 62) ! rate_const*BRO*NO
505 77921280 : rxt_rates(:ncol,:, 495) = rxt_rates(:ncol,:, 495)*sol(:ncol,:, 5)*sol(:ncol,:, 63) ! rate_const*M*BRO*NO2
506 77921280 : rxt_rates(:ncol,:, 496) = rxt_rates(:ncol,:, 496)*sol(:ncol,:, 6)*sol(:ncol,:, 70) ! rate_const*BRONO2*O
507 77921280 : rxt_rates(:ncol,:, 497) = rxt_rates(:ncol,:, 497)*sol(:ncol,:, 5)*sol(:ncol,:, 70) ! rate_const*BRO*O
508 77921280 : rxt_rates(:ncol,:, 498) = rxt_rates(:ncol,:, 498)*sol(:ncol,:, 5)*sol(:ncol,:, 133) ! rate_const*BRO*OH
509 77921280 : rxt_rates(:ncol,:, 499) = rxt_rates(:ncol,:, 499)*sol(:ncol,:, 45)*sol(:ncol,:, 70) ! rate_const*HBR*O
510 77921280 : rxt_rates(:ncol,:, 500) = rxt_rates(:ncol,:, 500)*sol(:ncol,:, 45)*sol(:ncol,:, 133) ! rate_const*HBR*OH
511 77921280 : rxt_rates(:ncol,:, 501) = rxt_rates(:ncol,:, 501)*sol(:ncol,:, 53)*sol(:ncol,:, 70) ! rate_const*HOBR*O
512 77921280 : rxt_rates(:ncol,:, 502) = rxt_rates(:ncol,:, 502)*sol(:ncol,:, 71)*sol(:ncol,:, 10) ! rate_const*O1D*CF3BR
513 77921280 : rxt_rates(:ncol,:, 503) = rxt_rates(:ncol,:, 503)*sol(:ncol,:, 71)*sol(:ncol,:, 24) ! rate_const*O1D*CHBR3
514 77921280 : rxt_rates(:ncol,:, 504) = rxt_rates(:ncol,:, 504)*sol(:ncol,:, 71)*sol(:ncol,:, 42) ! rate_const*O1D*H2402
515 77921280 : rxt_rates(:ncol,:, 505) = rxt_rates(:ncol,:, 505)*sol(:ncol,:, 71)*sol(:ncol,:, 45) ! rate_const*O1D*HBR
516 77921280 : rxt_rates(:ncol,:, 506) = rxt_rates(:ncol,:, 506)*sol(:ncol,:, 71)*sol(:ncol,:, 45) ! rate_const*O1D*HBR
517 77921280 : rxt_rates(:ncol,:, 507) = rxt_rates(:ncol,:, 507)*sol(:ncol,:, 39)*sol(:ncol,:, 23) ! rate_const*F*CH4
518 77921280 : rxt_rates(:ncol,:, 508) = rxt_rates(:ncol,:, 508)*sol(:ncol,:, 39)*sol(:ncol,:, 41) ! rate_const*F*H2
519 77921280 : rxt_rates(:ncol,:, 509) = rxt_rates(:ncol,:, 509)*sol(:ncol,:, 39)*sol(:ncol,:, 139) ! rate_const*F*H2O
520 77921280 : rxt_rates(:ncol,:, 510) = rxt_rates(:ncol,:, 510)*sol(:ncol,:, 39)*sol(:ncol,:, 51) ! rate_const*F*HNO3
521 77921280 : rxt_rates(:ncol,:, 511) = rxt_rates(:ncol,:, 511)*sol(:ncol,:, 71)*sol(:ncol,:, 33) ! rate_const*O1D*COF2
522 77921280 : rxt_rates(:ncol,:, 512) = rxt_rates(:ncol,:, 512)*sol(:ncol,:, 71)*sol(:ncol,:, 34) ! rate_const*O1D*COFCL
523 77921280 : rxt_rates(:ncol,:, 513) = rxt_rates(:ncol,:, 513)*sol(:ncol,:, 16)*sol(:ncol,:, 25) ! rate_const*CH2BR2*CL
524 77921280 : rxt_rates(:ncol,:, 514) = rxt_rates(:ncol,:, 514)*sol(:ncol,:, 16)*sol(:ncol,:, 133) ! rate_const*CH2BR2*OH
525 77921280 : rxt_rates(:ncol,:, 515) = rxt_rates(:ncol,:, 515)*sol(:ncol,:, 18)*sol(:ncol,:, 25) ! rate_const*CH3BR*CL
526 77921280 : rxt_rates(:ncol,:, 516) = rxt_rates(:ncol,:, 516)*sol(:ncol,:, 18)*sol(:ncol,:, 133) ! rate_const*CH3BR*OH
527 77921280 : rxt_rates(:ncol,:, 517) = rxt_rates(:ncol,:, 517)*sol(:ncol,:, 19)*sol(:ncol,:, 133) ! rate_const*CH3CCL3*OH
528 77921280 : rxt_rates(:ncol,:, 518) = rxt_rates(:ncol,:, 518)*sol(:ncol,:, 20)*sol(:ncol,:, 25) ! rate_const*CH3CL*CL
529 77921280 : rxt_rates(:ncol,:, 519) = rxt_rates(:ncol,:, 519)*sol(:ncol,:, 20)*sol(:ncol,:, 133) ! rate_const*CH3CL*OH
530 77921280 : rxt_rates(:ncol,:, 520) = rxt_rates(:ncol,:, 520)*sol(:ncol,:, 24)*sol(:ncol,:, 25) ! rate_const*CHBR3*CL
531 77921280 : rxt_rates(:ncol,:, 521) = rxt_rates(:ncol,:, 521)*sol(:ncol,:, 24)*sol(:ncol,:, 133) ! rate_const*CHBR3*OH
532 77921280 : rxt_rates(:ncol,:, 522) = rxt_rates(:ncol,:, 522)*sol(:ncol,:, 46)*sol(:ncol,:, 133) ! rate_const*HCFC141B*OH
533 77921280 : rxt_rates(:ncol,:, 523) = rxt_rates(:ncol,:, 523)*sol(:ncol,:, 47)*sol(:ncol,:, 133) ! rate_const*HCFC142B*OH
534 77921280 : rxt_rates(:ncol,:, 524) = rxt_rates(:ncol,:, 524)*sol(:ncol,:, 48)*sol(:ncol,:, 133) ! rate_const*HCFC22*OH
535 77921280 : rxt_rates(:ncol,:, 525) = rxt_rates(:ncol,:, 525)*sol(:ncol,:, 71)*sol(:ncol,:, 16) ! rate_const*O1D*CH2BR2
536 77921280 : rxt_rates(:ncol,:, 526) = rxt_rates(:ncol,:, 526)*sol(:ncol,:, 71)*sol(:ncol,:, 18) ! rate_const*O1D*CH3BR
537 77921280 : rxt_rates(:ncol,:, 527) = rxt_rates(:ncol,:, 527)*sol(:ncol,:, 71)*sol(:ncol,:, 46) ! rate_const*O1D*HCFC141B
538 77921280 : rxt_rates(:ncol,:, 528) = rxt_rates(:ncol,:, 528)*sol(:ncol,:, 71)*sol(:ncol,:, 47) ! rate_const*O1D*HCFC142B
539 77921280 : rxt_rates(:ncol,:, 529) = rxt_rates(:ncol,:, 529)*sol(:ncol,:, 71)*sol(:ncol,:, 48) ! rate_const*O1D*HCFC22
540 77921280 : rxt_rates(:ncol,:, 530) = rxt_rates(:ncol,:, 530)*sol(:ncol,:, 17)*sol(:ncol,:, 64) ! rate_const*CH2O*NO3
541 77921280 : rxt_rates(:ncol,:, 531) = rxt_rates(:ncol,:, 531)*sol(:ncol,:, 17)*sol(:ncol,:, 70) ! rate_const*CH2O*O
542 77921280 : rxt_rates(:ncol,:, 532) = rxt_rates(:ncol,:, 532)*sol(:ncol,:, 17)*sol(:ncol,:, 133) ! rate_const*CH2O*OH
543 77921280 : rxt_rates(:ncol,:, 533) = rxt_rates(:ncol,:, 533)*sol(:ncol,:, 21)*sol(:ncol,:, 101) ! rate_const*CH3O2*HO2
544 77921280 : rxt_rates(:ncol,:, 534) = rxt_rates(:ncol,:, 534)*sol(:ncol,:, 21)*sol(:ncol,:, 62) ! rate_const*CH3O2*NO
545 77921280 : rxt_rates(:ncol,:, 535) = rxt_rates(:ncol,:, 535)*sol(:ncol,:, 22)*sol(:ncol,:, 133) ! rate_const*CH3OOH*OH
546 77921280 : rxt_rates(:ncol,:, 536) = rxt_rates(:ncol,:, 536)*sol(:ncol,:, 23)*sol(:ncol,:, 133) ! rate_const*CH4*OH
547 77921280 : rxt_rates(:ncol,:, 537) = rxt_rates(:ncol,:, 537)*sol(:ncol,:, 71)*sol(:ncol,:, 23) ! rate_const*O1D*CH4
548 77921280 : rxt_rates(:ncol,:, 538) = rxt_rates(:ncol,:, 538)*sol(:ncol,:, 71)*sol(:ncol,:, 23) ! rate_const*O1D*CH4
549 77921280 : rxt_rates(:ncol,:, 539) = rxt_rates(:ncol,:, 539)*sol(:ncol,:, 71)*sol(:ncol,:, 23) ! rate_const*O1D*CH4
550 77921280 : rxt_rates(:ncol,:, 540) = rxt_rates(:ncol,:, 540)*sol(:ncol,:, 31)*sol(:ncol,:, 133) ! rate_const*CO*OH
551 77921280 : rxt_rates(:ncol,:, 541) = rxt_rates(:ncol,:, 541)*sol(:ncol,:, 35)*sol(:ncol,:, 64) ! rate_const*DMS*NO3
552 77921280 : rxt_rates(:ncol,:, 542) = rxt_rates(:ncol,:, 542)*sol(:ncol,:, 35)*sol(:ncol,:, 133) ! rate_const*DMS*OH
553 77921280 : rxt_rates(:ncol,:, 543) = rxt_rates(:ncol,:, 543)*sol(:ncol,:, 75)*sol(:ncol,:, 70) ! rate_const*OCS*O
554 77921280 : rxt_rates(:ncol,:, 544) = rxt_rates(:ncol,:, 544)*sol(:ncol,:, 75)*sol(:ncol,:, 133) ! rate_const*OCS*OH
555 77921280 : rxt_rates(:ncol,:, 545) = rxt_rates(:ncol,:, 545)*sol(:ncol,:, 78)*sol(:ncol,:, 72) ! rate_const*S*O2
556 77921280 : rxt_rates(:ncol,:, 546) = rxt_rates(:ncol,:, 546)*sol(:ncol,:, 81)*sol(:ncol,:, 133) ! rate_const*M*SO2*OH
557 77921280 : rxt_rates(:ncol,:, 547) = rxt_rates(:ncol,:, 547)*sol(:ncol,:, 78)*sol(:ncol,:, 73) ! rate_const*S*O3
558 77921280 : rxt_rates(:ncol,:, 548) = rxt_rates(:ncol,:, 548)*sol(:ncol,:, 80)*sol(:ncol,:, 5) ! rate_const*SO*BRO
559 77921280 : rxt_rates(:ncol,:, 549) = rxt_rates(:ncol,:, 549)*sol(:ncol,:, 80)*sol(:ncol,:, 28) ! rate_const*SO*CLO
560 77921280 : rxt_rates(:ncol,:, 550) = rxt_rates(:ncol,:, 550)*sol(:ncol,:, 78)*sol(:ncol,:, 133) ! rate_const*S*OH
561 77921280 : rxt_rates(:ncol,:, 551) = rxt_rates(:ncol,:, 551)*sol(:ncol,:, 80)*sol(:ncol,:, 63) ! rate_const*SO*NO2
562 77921280 : rxt_rates(:ncol,:, 552) = rxt_rates(:ncol,:, 552)*sol(:ncol,:, 80)*sol(:ncol,:, 72) ! rate_const*SO*O2
563 77921280 : rxt_rates(:ncol,:, 553) = rxt_rates(:ncol,:, 553)*sol(:ncol,:, 80)*sol(:ncol,:, 73) ! rate_const*SO*O3
564 77921280 : rxt_rates(:ncol,:, 554) = rxt_rates(:ncol,:, 554)*sol(:ncol,:, 80)*sol(:ncol,:, 74) ! rate_const*SO*OCLO
565 77921280 : rxt_rates(:ncol,:, 555) = rxt_rates(:ncol,:, 555)*sol(:ncol,:, 80)*sol(:ncol,:, 133) ! rate_const*SO*OH
566 77921280 : rxt_rates(:ncol,:, 556) = rxt_rates(:ncol,:, 556)*sol(:ncol,:, 35)*sol(:ncol,:, 133) ! rate_const*DMS*OH
567 77921280 : rxt_rates(:ncol,:, 557) = rxt_rates(:ncol,:, 557)*sol(:ncol,:, 82)*sol(:ncol,:, 139) ! rate_const*SO3*H2O
568 77921280 : rxt_rates(:ncol,:, 558) = rxt_rates(:ncol,:, 558)*sol(:ncol,:, 101) ! rate_const*HO2
569 77921280 : rxt_rates(:ncol,:, 559) = rxt_rates(:ncol,:, 559)*sol(:ncol,:, 58) ! rate_const*N2O5
570 77921280 : rxt_rates(:ncol,:, 560) = rxt_rates(:ncol,:, 560)*sol(:ncol,:, 63) ! rate_const*NO2
571 77921280 : rxt_rates(:ncol,:, 561) = rxt_rates(:ncol,:, 561)*sol(:ncol,:, 64) ! rate_const*NO3
572 77921280 : rxt_rates(:ncol,:, 562) = rxt_rates(:ncol,:, 562)*sol(:ncol,:, 58) ! rate_const*N2O5
573 77921280 : rxt_rates(:ncol,:, 563) = rxt_rates(:ncol,:, 563)*sol(:ncol,:, 54)*sol(:ncol,:, 49) ! rate_const*HOCL*HCL
574 77921280 : rxt_rates(:ncol,:, 564) = rxt_rates(:ncol,:, 564)*sol(:ncol,:, 6) ! rate_const*BRONO2
575 77921280 : rxt_rates(:ncol,:, 565) = rxt_rates(:ncol,:, 565)*sol(:ncol,:, 58) ! rate_const*N2O5
576 77921280 : rxt_rates(:ncol,:, 566) = rxt_rates(:ncol,:, 566)*sol(:ncol,:, 29) ! rate_const*CLONO2
577 77921280 : rxt_rates(:ncol,:, 567) = rxt_rates(:ncol,:, 567)*sol(:ncol,:, 6) ! rate_const*BRONO2
578 77921280 : rxt_rates(:ncol,:, 568) = rxt_rates(:ncol,:, 568)*sol(:ncol,:, 29)*sol(:ncol,:, 49) ! rate_const*CLONO2*HCL
579 77921280 : rxt_rates(:ncol,:, 569) = rxt_rates(:ncol,:, 569)*sol(:ncol,:, 54)*sol(:ncol,:, 49) ! rate_const*HOCL*HCL
580 77921280 : rxt_rates(:ncol,:, 570) = rxt_rates(:ncol,:, 570)*sol(:ncol,:, 53)*sol(:ncol,:, 49) ! rate_const*HOBR*HCL
581 77921280 : rxt_rates(:ncol,:, 571) = rxt_rates(:ncol,:, 571)*sol(:ncol,:, 29) ! rate_const*CLONO2
582 77921280 : rxt_rates(:ncol,:, 572) = rxt_rates(:ncol,:, 572)*sol(:ncol,:, 6) ! rate_const*BRONO2
583 77921280 : rxt_rates(:ncol,:, 573) = rxt_rates(:ncol,:, 573)*sol(:ncol,:, 29)*sol(:ncol,:, 49) ! rate_const*CLONO2*HCL
584 77921280 : rxt_rates(:ncol,:, 574) = rxt_rates(:ncol,:, 574)*sol(:ncol,:, 54)*sol(:ncol,:, 49) ! rate_const*HOCL*HCL
585 77921280 : rxt_rates(:ncol,:, 575) = rxt_rates(:ncol,:, 575)*sol(:ncol,:, 53)*sol(:ncol,:, 49) ! rate_const*HOBR*HCL
586 77921280 : rxt_rates(:ncol,:, 576) = rxt_rates(:ncol,:, 576)*sol(:ncol,:, 58) ! rate_const*N2O5
587 77921280 : rxt_rates(:ncol,:, 577) = rxt_rates(:ncol,:, 577)*sol(:ncol,:, 29) ! rate_const*CLONO2
588 77921280 : rxt_rates(:ncol,:, 578) = rxt_rates(:ncol,:, 578)*sol(:ncol,:, 29)*sol(:ncol,:, 49) ! rate_const*CLONO2*HCL
589 77921280 : rxt_rates(:ncol,:, 579) = rxt_rates(:ncol,:, 579)*sol(:ncol,:, 138) ! rate_const*Op2P
590 77921280 : rxt_rates(:ncol,:, 580) = rxt_rates(:ncol,:, 580)*sol(:ncol,:, 137) ! rate_const*Op2D
591 77921280 : rxt_rates(:ncol,:, 581) = rxt_rates(:ncol,:, 581)*sol(:ncol,:, 138) ! rate_const*Op2P
592 77921280 : rxt_rates(:ncol,:, 582) = rxt_rates(:ncol,:, 582)*sol(:ncol,:, 118)*sol(:ncol,:, 98) ! rate_const*NOp*e
593 77921280 : rxt_rates(:ncol,:, 583) = rxt_rates(:ncol,:, 583)*sol(:ncol,:, 128)*sol(:ncol,:, 98) ! rate_const*O2p*e
594 77921280 : rxt_rates(:ncol,:, 584) = rxt_rates(:ncol,:, 584)*sol(:ncol,:, 110)*sol(:ncol,:, 98) ! rate_const*N2p*e
595 77921280 : rxt_rates(:ncol,:, 585) = rxt_rates(:ncol,:, 585)*sol(:ncol,:, 110)*sol(:ncol,:, 72) ! rate_const*N2p*O2
596 77921280 : rxt_rates(:ncol,:, 586) = rxt_rates(:ncol,:, 586)*sol(:ncol,:, 110)*sol(:ncol,:, 70) ! rate_const*N2p*O
597 77921280 : rxt_rates(:ncol,:, 587) = rxt_rates(:ncol,:, 587)*sol(:ncol,:, 110)*sol(:ncol,:, 70) ! rate_const*N2p*O
598 77921280 : rxt_rates(:ncol,:, 588) = rxt_rates(:ncol,:, 588)*sol(:ncol,:, 124)*sol(:ncol,:, 70) ! rate_const*Np*O
599 77921280 : rxt_rates(:ncol,:, 589) = rxt_rates(:ncol,:, 589)*sol(:ncol,:, 124)*sol(:ncol,:, 72) ! rate_const*Np*O2
600 77921280 : rxt_rates(:ncol,:, 590) = rxt_rates(:ncol,:, 590)*sol(:ncol,:, 124)*sol(:ncol,:, 72) ! rate_const*Np*O2
601 77921280 : rxt_rates(:ncol,:, 591) = rxt_rates(:ncol,:, 591)*sol(:ncol,:, 128)*sol(:ncol,:, 56) ! rate_const*O2p*N
602 77921280 : rxt_rates(:ncol,:, 592) = rxt_rates(:ncol,:, 592)*sol(:ncol,:, 128) ! rate_const*N2*O2p
603 77921280 : rxt_rates(:ncol,:, 593) = rxt_rates(:ncol,:, 593)*sol(:ncol,:, 128)*sol(:ncol,:, 62) ! rate_const*O2p*NO
604 77921280 : rxt_rates(:ncol,:, 594) = rxt_rates(:ncol,:, 594)*sol(:ncol,:, 136)*sol(:ncol,:, 32) ! rate_const*Op*CO2
605 77921280 : rxt_rates(:ncol,:, 595) = rxt_rates(:ncol,:, 595)*sol(:ncol,:, 136) ! rate_const*N2*Op
606 77921280 : rxt_rates(:ncol,:, 596) = rxt_rates(:ncol,:, 596)*sol(:ncol,:, 136)*sol(:ncol,:, 109) ! rate_const*Op*N2D
607 77921280 : rxt_rates(:ncol,:, 597) = rxt_rates(:ncol,:, 597)*sol(:ncol,:, 136)*sol(:ncol,:, 72) ! rate_const*Op*O2
608 77921280 : rxt_rates(:ncol,:, 598) = rxt_rates(:ncol,:, 598)*sol(:ncol,:, 137)*sol(:ncol,:, 98) ! rate_const*Op2D*e
609 77921280 : rxt_rates(:ncol,:, 599) = rxt_rates(:ncol,:, 599)*sol(:ncol,:, 137) ! rate_const*N2*Op2D
610 77921280 : rxt_rates(:ncol,:, 600) = rxt_rates(:ncol,:, 600)*sol(:ncol,:, 137)*sol(:ncol,:, 70) ! rate_const*Op2D*O
611 77921280 : rxt_rates(:ncol,:, 601) = rxt_rates(:ncol,:, 601)*sol(:ncol,:, 137)*sol(:ncol,:, 72) ! rate_const*Op2D*O2
612 77921280 : rxt_rates(:ncol,:, 602) = rxt_rates(:ncol,:, 602)*sol(:ncol,:, 138)*sol(:ncol,:, 98) ! rate_const*Op2P*e
613 77921280 : rxt_rates(:ncol,:, 603) = rxt_rates(:ncol,:, 603)*sol(:ncol,:, 138)*sol(:ncol,:, 98) ! rate_const*Op2P*e
614 77921280 : rxt_rates(:ncol,:, 604) = rxt_rates(:ncol,:, 604)*sol(:ncol,:, 138) ! rate_const*N2*Op2P
615 77921280 : rxt_rates(:ncol,:, 605) = rxt_rates(:ncol,:, 605)*sol(:ncol,:, 138) ! rate_const*N2*Op2P
616 77921280 : rxt_rates(:ncol,:, 606) = rxt_rates(:ncol,:, 606)*sol(:ncol,:, 138)*sol(:ncol,:, 70) ! rate_const*Op2P*O
617 46080 : end subroutine set_rates
618 : end module mo_rxt_rates_conv
|