Line data    Source code

       1             :       module mo_nln_matrix
       2             :       use shr_kind_mod, only : r8 => shr_kind_r8
       3             :       private
       4             :       public :: nlnmat
       5             :       contains
       6           0 :       subroutine nlnmat( mat, y, rxt, lmat, dti )
       7             :       use chem_mods, only : gas_pcnst, rxntot, nzcnt
       8             :       implicit none
       9             : !----------------------------------------------
      10             : ! ... dummy arguments
      11             : !----------------------------------------------
      12             :       real(r8), intent(in) :: dti
      13             :       real(r8), intent(in) :: lmat(nzcnt)
      14             :       real(r8), intent(in) :: y(gas_pcnst)
      15             :       real(r8), intent(in) :: rxt(rxntot)
      16             :       real(r8), intent(inout) :: mat(nzcnt)
      17           0 :       end subroutine nlnmat
      18             :       end module mo_nln_matrix