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   802593280 :       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   802593280 :       iage = iage + dt 
      36             : 
      37   802593280 :       end subroutine increment_age
      38             : 
      39             : !=======================================================================
      40             : 
      41             :       end module icepack_age
      42             : 
      43             : !=======================================================================