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    33852099 :       subroutine increment_age (dt, iage)
      25             : 
      26             :       real (kind=dbl_kind), intent(in) :: &
      27             :          dt                    ! time step
      28             : 
      29             :       real (kind=dbl_kind), intent(inout) :: &
      30             :          iage
      31             : 
      32             :       character(len=*),parameter :: subname='(increment_age)'
      33             : 
      34    33852099 :       iage = iage + dt
      35             : 
      36    33852099 :       end subroutine increment_age
      37             : 
      38             : !=======================================================================
      39             : 
      40             :       end module icepack_age
      41             : 
      42             : !=======================================================================