LCOV - code coverage report
Current view: top level - columnphysics - icepack_age.F90 (source / functions) Hit Total Coverage
Test: 200804-015008:4c42a82e3d:3:base,travis,quick Lines: 3 3 100.00 %
Date: 2020-08-03 20:10:57 Functions: 1 1 100.00 %

          Line data    Source code
       1             : !=======================================================================
       2             : !
       3             : ! authors Elizabeth Hunke
       4             : 
       5             :       module icepack_age
       6             : 
       7             :       use icepack_kinds
       8             :       use icepack_warnings, only: warnstr, icepack_warnings_add
       9             :       use icepack_warnings, only: icepack_warnings_setabort, icepack_warnings_aborted
      10             : 
      11             :       implicit none
      12             : 
      13             :       private
      14             :       public :: increment_age
      15             : 
      16             : !=======================================================================
      17             : 
      18             :       contains
      19             : 
      20             : !=======================================================================
      21             : 
      22             : !  Increase ice age tracer by timestep length.
      23             : 
      24      229760 :       subroutine increment_age (dt, iage)
      25             : 
      26             :       real (kind=dbl_kind), intent(in) :: &
      27             :          dt                    ! time step
      28             : 
      29             :       real (kind=dbl_kind), &
      30             :          intent(inout) :: &
      31             :          iage
      32             : 
      33             :       character(len=*),parameter :: subname='(increment_age)'
      34             : 
      35      229760 :       iage = iage + dt 
      36             : 
      37      229760 :       end subroutine increment_age
      38             : 
      39             : !=======================================================================
      40             : 
      41             :       end module icepack_age
      42             : 
      43             : !=======================================================================

Generated by: LCOV version 1.14-6-g40580cd