module mo_phtadj private public :: phtadj contains subroutine phtadj( p_rate, inv, m, ncol ) use chem_mods, only : nfs, phtcnt use shr_kind_mod, only : r8 => shr_kind_r8 use ppgrid, only : pver implicit none !-------------------------------------------------------------------- ! ... dummy arguments !-------------------------------------------------------------------- integer, intent(in) :: ncol real(r8), intent(in) :: inv(:,:,:) real(r8), intent(in) :: m(:,:) real(r8), intent(inout) :: p_rate(:,:,:) !-------------------------------------------------------------------- ! ... local variables !-------------------------------------------------------------------- integer :: k real(r8) :: im(ncol) do k = 1,pver end do end subroutine phtadj end module mo_phtadj