Line data    Source code

       1             :       module mo_lin_matrix
       2             :       private
       3             :       public :: linmat
       4             :       contains
       5           0 :       subroutine linmat( mat, y, rxt, het_rates )
       6             : !----------------------------------------------
       7             : ! ... linear matrix entries for implicit species
       8             : !----------------------------------------------
       9             :       use chem_mods, only : gas_pcnst, rxntot, nzcnt
      10             :       use shr_kind_mod, only : r8 => shr_kind_r8
      11             :       implicit none
      12             : !----------------------------------------------
      13             : ! ... dummy arguments
      14             : !----------------------------------------------
      15             :       real(r8), intent(in) :: y(gas_pcnst)
      16             :       real(r8), intent(in) :: rxt(rxntot)
      17             :       real(r8), intent(in) :: het_rates(max(1,gas_pcnst))
      18             :       real(r8), intent(inout) :: mat(nzcnt)
      19           0 :       end subroutine linmat
      20             :       end module mo_lin_matrix