LCOV - code coverage report
Current view: | top level - chemistry/pp_none - mo_phtadj.F90 (source / functions) |  |  | Hit | Total | Coverage
Test: | coverage.info |  | Lines: | 0 | 3 | 0.0 %
Date: | 2024-12-17 17:57:11 |  | Functions: | 0 | 1 | 0.0 %

              Line data    Source code
           1             :       module mo_phtadj
           2             :       private
           3             :       public :: phtadj
           4             :       contains
           5           0 :       subroutine phtadj( p_rate, inv, m, ncol, nlev )
           6             :       use chem_mods, only : nfs, phtcnt
           7             :       use shr_kind_mod, only : r8 => shr_kind_r8
           8             :       implicit none
           9             : !--------------------------------------------------------------------
          10             : ! ... dummy arguments
          11             : !--------------------------------------------------------------------
          12             :       integer, intent(in) :: ncol, nlev
          13             :       real(r8), intent(in) :: inv(ncol,nlev,max(1,nfs))
          14             :       real(r8), intent(in) :: m(ncol,nlev)
          15             :       real(r8), intent(inout) :: p_rate(ncol,nlev,max(1,phtcnt))
          16             : !--------------------------------------------------------------------
          17             : ! ... local variables
          18             : !--------------------------------------------------------------------
          19             :       integer :: k
          20             :       real(r8) :: im(ncol,nlev)
          21           0 :       do k = 1,nlev
          22             :       end do
          23           0 :       end subroutine phtadj
          24             :       end module mo_phtadj

Generated by: LCOV version 1.14