LCOV - code coverage report
Current view: | top level - chemistry/pp_ghg_mam4 - mo_rxt_rates_conv.F90 (source / functions) |  |  | Hit | Total | Coverage
Test: | coverage.info |  | Lines: | 16 | 16 | 100.0 %
Date: | 2024-12-17 22:39:59 |  | 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     1489176 :    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  2314006344 :       rxt_rates(:ncol,:,     1) = rxt_rates(:ncol,:,     1)*sol(:ncol,:,    11)                                                ! rate_const*H2O2
          12  2314006344 :       rxt_rates(:ncol,:,     2) = rxt_rates(:ncol,:,     2)*sol(:ncol,:,    27)                                                ! rate_const*soa_a1
          13  2314006344 :       rxt_rates(:ncol,:,     3) = rxt_rates(:ncol,:,     3)*sol(:ncol,:,    28)                                                ! rate_const*soa_a2
          14  2314006344 :       rxt_rates(:ncol,:,     4) = rxt_rates(:ncol,:,     4)*sol(:ncol,:,    31)                                                ! rate_const*H2O
          15  2314006344 :       rxt_rates(:ncol,:,     5) = rxt_rates(:ncol,:,     5)*sol(:ncol,:,    11)                                                ! rate_const*OH*H2O2
          16             :                                                                                                                                ! rate_const
          17  2314006344 :       rxt_rates(:ncol,:,     7) = rxt_rates(:ncol,:,     7)*sol(:ncol,:,    13)                                                ! rate_const*N2O
          18  2314006344 :       rxt_rates(:ncol,:,     8) = rxt_rates(:ncol,:,     8)*sol(:ncol,:,     3)                                                ! rate_const*CFC11
          19  2314006344 :       rxt_rates(:ncol,:,     9) = rxt_rates(:ncol,:,     9)*sol(:ncol,:,     4)                                                ! rate_const*CFC12
          20  2314006344 :       rxt_rates(:ncol,:,    10) = rxt_rates(:ncol,:,    10)*sol(:ncol,:,     5)                                                ! rate_const*CH4
          21  2314006344 :       rxt_rates(:ncol,:,    11) = rxt_rates(:ncol,:,    11)*sol(:ncol,:,     7)                                                ! rate_const*NO3*DMS
          22  2314006344 :       rxt_rates(:ncol,:,    12) = rxt_rates(:ncol,:,    12)*sol(:ncol,:,     7)                                                ! rate_const*OH*DMS
          23  2314006344 :       rxt_rates(:ncol,:,    13) = rxt_rates(:ncol,:,    13)*sol(:ncol,:,    23)                                                ! rate_const*OH*M*SO2
          24  2314006344 :       rxt_rates(:ncol,:,    14) = rxt_rates(:ncol,:,    14)*sol(:ncol,:,     7)                                                ! rate_const*OH*DMS
          25  2314006344 :       rxt_rates(:ncol,:,    15) = rxt_rates(:ncol,:,    15)*sol(:ncol,:,    29)                                                ! rate_const*SOAE
          26     1489176 :   end subroutine set_rates
          27             : end module mo_rxt_rates_conv

Generated by: LCOV version 1.14