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