LCOV - code coverage report
Current view: top level - chemistry/pp_waccm_ma_noaero - mo_rxt_rates_conv.F90 (source / functions) Hit Total Coverage
Test: coverage.info Lines: 306 306 100.0 %
Date: 2025-03-14 01:33:33 Functions: 1 1 100.0 %

          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

Generated by: LCOV version 1.14