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: 2025-03-13 19:12:29 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       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

Generated by: LCOV version 1.14