LCOV - code coverage report
Current view: top level - icepack/columnphysics - icepack_age.F90 (source / functions) Hit Total Coverage
Test: 200617-180449:aec9683041:7:first,base,travis,decomp,reprosum,io,quick Lines: 3 3 100.00 %
Date: 2020-06-17 18:05:09 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   662004188 :       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   662004188 :       iage = iage + dt 
      36             : 
      37   662004188 :       end subroutine increment_age
      38             : 
      39             : !=======================================================================
      40             : 
      41             :       end module icepack_age
      42             : 
      43             : !=======================================================================

Generated by: LCOV version 1.14-6-g40580cd