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 58824 : 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 91405656 : rxt_rates(:ncol,:, 1) = rxt_rates(:ncol,:, 1)*sol(:ncol,:, 11) ! rate_const*H2O2
12 91405656 : rxt_rates(:ncol,:, 2) = rxt_rates(:ncol,:, 2)*sol(:ncol,:, 27) ! rate_const*soa_a1
13 91405656 : rxt_rates(:ncol,:, 3) = rxt_rates(:ncol,:, 3)*sol(:ncol,:, 28) ! rate_const*soa_a2
14 91405656 : rxt_rates(:ncol,:, 4) = rxt_rates(:ncol,:, 4)*sol(:ncol,:, 31) ! rate_const*H2O
15 91405656 : rxt_rates(:ncol,:, 5) = rxt_rates(:ncol,:, 5)*sol(:ncol,:, 11) ! rate_const*OH*H2O2
16 : ! rate_const
17 91405656 : rxt_rates(:ncol,:, 7) = rxt_rates(:ncol,:, 7)*sol(:ncol,:, 13) ! rate_const*N2O
18 91405656 : rxt_rates(:ncol,:, 8) = rxt_rates(:ncol,:, 8)*sol(:ncol,:, 3) ! rate_const*CFC11
19 91405656 : rxt_rates(:ncol,:, 9) = rxt_rates(:ncol,:, 9)*sol(:ncol,:, 4) ! rate_const*CFC12
20 91405656 : rxt_rates(:ncol,:, 10) = rxt_rates(:ncol,:, 10)*sol(:ncol,:, 5) ! rate_const*CH4
21 91405656 : rxt_rates(:ncol,:, 11) = rxt_rates(:ncol,:, 11)*sol(:ncol,:, 7) ! rate_const*NO3*DMS
22 91405656 : rxt_rates(:ncol,:, 12) = rxt_rates(:ncol,:, 12)*sol(:ncol,:, 7) ! rate_const*OH*DMS
23 91405656 : rxt_rates(:ncol,:, 13) = rxt_rates(:ncol,:, 13)*sol(:ncol,:, 23) ! rate_const*OH*M*SO2
24 91405656 : rxt_rates(:ncol,:, 14) = rxt_rates(:ncol,:, 14)*sol(:ncol,:, 7) ! rate_const*OH*DMS
25 91405656 : rxt_rates(:ncol,:, 15) = rxt_rates(:ncol,:, 15)*sol(:ncol,:, 29) ! rate_const*SOAE
26 58824 : end subroutine set_rates
27 : end module mo_rxt_rates_conv
|