LCOV - code coverage report
Current view: top level - chemistry/pp_ghg_mam4 - mo_lu_factor.F90 (source / functions) Hit Total Coverage
Test: coverage.info Lines: 39 39 100.0 %
Date: 2025-03-13 19:04:48 Functions: 2 2 100.0 %

          Line data    Source code
       1             :       module mo_lu_factor
       2             :       private
       3             :       public :: lu_fac
       4             :       contains
       5   171752400 :       subroutine lu_fac01( lu )
       6             :       use shr_kind_mod, only : r8 => shr_kind_r8
       7             :       implicit none
       8             : !-----------------------------------------------------------------------
       9             : ! ... dummy args
      10             : !-----------------------------------------------------------------------
      11             :       real(r8), intent(inout) :: lu(:)
      12   171752400 :          lu(1) = 1._r8 / lu(1)
      13   171752400 :          lu(2) = 1._r8 / lu(2)
      14   171752400 :          lu(3) = 1._r8 / lu(3)
      15   171752400 :          lu(4) = 1._r8 / lu(4)
      16   171752400 :          lu(5) = 1._r8 / lu(5)
      17   171752400 :          lu(6) = lu(6) * lu(5)
      18   171752400 :          lu(7) = 1._r8 / lu(7)
      19   171752400 :          lu(8) = lu(8) * lu(7)
      20   171752400 :          lu(9) = 1._r8 / lu(9)
      21   171752400 :          lu(10) = 1._r8 / lu(10)
      22   171752400 :          lu(11) = 1._r8 / lu(11)
      23   171752400 :          lu(12) = 1._r8 / lu(12)
      24   171752400 :          lu(13) = lu(13) * lu(12)
      25   171752400 :          lu(14) = 1._r8 / lu(14)
      26   171752400 :          lu(15) = 1._r8 / lu(15)
      27   171752400 :          lu(16) = 1._r8 / lu(16)
      28   171752400 :          lu(17) = 1._r8 / lu(17)
      29   171752400 :          lu(18) = 1._r8 / lu(18)
      30   171752400 :          lu(19) = 1._r8 / lu(19)
      31   171752400 :          lu(20) = 1._r8 / lu(20)
      32   171752400 :          lu(21) = 1._r8 / lu(21)
      33   171752400 :          lu(22) = 1._r8 / lu(22)
      34   171752400 :          lu(23) = 1._r8 / lu(23)
      35   171752400 :          lu(24) = 1._r8 / lu(24)
      36   171752400 :          lu(26) = 1._r8 / lu(26)
      37   171752400 :          lu(27) = 1._r8 / lu(27)
      38   171752400 :          lu(28) = 1._r8 / lu(28)
      39   171752400 :          lu(29) = 1._r8 / lu(29)
      40   171752400 :          lu(30) = 1._r8 / lu(30)
      41   171752400 :          lu(31) = 1._r8 / lu(31)
      42   171752400 :          lu(32) = 1._r8 / lu(32)
      43   171752400 :          lu(33) = lu(33) * lu(32)
      44   171752400 :          lu(34) = 1._r8 / lu(34)
      45   171752400 :          lu(35) = 1._r8 / lu(35)
      46   171752400 :       end subroutine lu_fac01
      47   171752400 :       subroutine lu_fac( lu )
      48             :       use shr_kind_mod, only : r8 => shr_kind_r8
      49             :       implicit none
      50             : !-----------------------------------------------------------------------
      51             : ! ... dummy args
      52             : !-----------------------------------------------------------------------
      53             :       real(r8), intent(inout) :: lu(:)
      54   171752400 :       call lu_fac01( lu )
      55   171752400 :       end subroutine lu_fac
      56             :       end module mo_lu_factor

Generated by: LCOV version 1.14