Line data    Source code

       1             : 
       2             :       module mo_setrxt
       3             : 
       4             :       use shr_kind_mod, only : r8 => shr_kind_r8
       5             : 
       6             :       private
       7             :       public :: setrxt
       8             :       public :: setrxt_hrates
       9             : 
      10             :       contains
      11             : 
      12           0 :       subroutine setrxt( rate, temp, m, ncol )
      13             : 
      14             :       use ppgrid,       only : pver, pcols
      15             :       use shr_kind_mod, only : r8 => shr_kind_r8
      16             :       use chem_mods, only : rxntot
      17             :       use mo_jpl,    only : jpl
      18             : 
      19             :       implicit none
      20             : 
      21             : !-------------------------------------------------------
      22             : !       ... dummy arguments
      23             : !-------------------------------------------------------
      24             :       integer, intent(in) :: ncol
      25             :       real(r8), intent(in)    :: temp(pcols,pver)
      26             :       real(r8), intent(in)    :: m(ncol,pver)
      27             :       real(r8), intent(inout) :: rate(ncol,pver,rxntot)
      28             : 
      29           0 :       end subroutine setrxt
      30             : 
      31             : 
      32           0 :       subroutine setrxt_hrates( rate, temp, m, ncol, kbot )
      33             : 
      34             :       use ppgrid,       only : pver, pcols
      35             :       use shr_kind_mod, only : r8 => shr_kind_r8
      36             :       use chem_mods, only : rxntot
      37             :       use mo_jpl,    only : jpl
      38             : 
      39             :       implicit none
      40             : 
      41             : !-------------------------------------------------------
      42             : !       ... dummy arguments
      43             : !-------------------------------------------------------
      44             :       integer, intent(in) :: ncol
      45             :       integer, intent(in) :: kbot
      46             :       real(r8), intent(in)    :: temp(pcols,pver)
      47             :       real(r8), intent(in)    :: m(ncol,pver)
      48             :       real(r8), intent(inout) :: rate(ncol,pver,rxntot)
      49             : 
      50           0 :       end subroutine setrxt_hrates
      51             : 
      52             :       end module mo_setrxt