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 : !=======================================================================