Line data    Source code

       1             :       module mo_prod_loss
       2             :       use shr_kind_mod, only : r8 => shr_kind_r8
       3             :       private
       4             :       public :: exp_prod_loss
       5             :       public :: imp_prod_loss
       6             :       contains
       7           0 :       subroutine exp_prod_loss( prod, loss, y, rxt, het_rates )
       8             :       use ppgrid, only : pver
       9             :       implicit none
      10             : !--------------------------------------------------------------------
      11             : ! ... dummy args
      12             : !--------------------------------------------------------------------
      13             :       real(r8), dimension(:,:,:), intent(out) :: &
      14             :             prod, &
      15             :             loss
      16             :       real(r8), intent(in) :: y(:,:,:)
      17             :       real(r8), intent(in) :: rxt(:,:,:)
      18             :       real(r8), intent(in) :: het_rates(:,:,:)
      19           0 :       end subroutine exp_prod_loss
      20           0 :       subroutine imp_prod_loss( prod, loss, y, rxt, het_rates )
      21             :       use ppgrid, only : pver
      22             :       implicit none
      23             : !--------------------------------------------------------------------
      24             : ! ... dummy args
      25             : !--------------------------------------------------------------------
      26             :       real(r8), dimension(:), intent(out) :: &
      27             :             prod, &
      28             :             loss
      29             :       real(r8), intent(in) :: y(:)
      30             :       real(r8), intent(in) :: rxt(:)
      31             :       real(r8), intent(in) :: het_rates(:)
      32           0 :       end subroutine imp_prod_loss
      33             :       end module mo_prod_loss