day,   &! day of month      tod     ! time of day (seconds past 0Z)! Local variables   character(len=*), parameter :: sub = 'get_start_date'   integer :: rc   type(esmf_date) :: date   integer :: ymd!-----------------------------------------------------------------------------------------   date = esmf_timemgrgetstartdate(tm_id, rc)   call chkrc(rc, sub//': error return from esmf_timemgrgetstartdate')   call esmf_dateget(date, ymd, tod, rc)   call chkrc(rc, sub//': error return from esmf_dateget')   yr = ymd/10000   mon = mod(ymd, 10000) / 100   day = mod(ymd, 100)end subroutine get_start_date!=========================================================================================subroutine get_ref_date(yr, mon, day, tod)! Return date components of the reference date.   implicit none   ! Arguments   integer, intent(out) ::&      yr,    &! year      mon,   &! month      day,   &! day of month      tod     ! time of day (seconds past 0Z)! Local variables   character(len=*), parameter :: sub = 'get_ref_date'   integer :: rc   type(esmf_date) :: date   integer :: ymd!-----------------------------------------------------------------------------------------   date = esmf_timemgrgetbasedate(tm_id, rc)   call chkrc(rc, sub//': error return from esmf_timemgrgetbasedate')   call esmf_dateget(date, ymd, tod, rc)   call chkrc(rc, sub//': error return from esmf_dateget')   yr = ymd/10000   mon = mod(ymd, 10000) / 100   day = mod(ymd, 100)end subroutine get_ref_date!=========================================================================================subroutine get_curr_time(days, seconds)! Return time components valid at end of current timestep.! Current time is the time interval between the current date and the reference date.   implicit none   ! Arguments   integer, intent(out) ::&      days,   &! number of whole days in time interval      seconds  ! remaining seconds in time interval! Local variables   character(len=*), parameter :: sub = 'get_curr_time'   integer :: rc   type(esmf_date) :: cdate, rdate   type(esmf_time) :: diff   logical :: islater!-----------------------------------------------------------------------------------------   cdate = esmf_timemgrgetcurrdate(tm_id, rc)   call chkrc(rc, sub//': error return from esmf_timemgrgetcurrdate')   rdate = esmf_timemgrgetbasedate(tm_id, rc)   call chkrc(rc, sub//': error return from esmf_timemgrgetbasedate')   call esmf_datediff(rdate, cdate, diff, islater, rc)   call chkrc(rc, sub//': error return from esmf_datediff')   call esmf_timeget(diff, days, seconds, rc)   call chkrc(rc, sub//': error return from esmf_timeget')end subroutine get_curr_time!=========================================================================================function get_curr_calday(offset)! Return calendar day at end of current timestep with optional offset.! Calendar day 1.0 = 0Z on Jan 1.   implicit none   ! Arguments   integer, optional, intent(in) :: offset  ! Offset from current time in seconds.                                            ! Positive for future times, negative                                             ! for previous times.! Return value   real(r8) :: get_curr_calday! Local variables   character(len=*), parameter :: sub = 'get_curr_calday'   integer :: rc   type(esmf_date) :: date   type(esmf_time) :: off   integer :: ymd, tod!-----------------------------------------------------------------------------------------   date = esmf_timemgrgetcurrdate(tm_id, rc)   call chkrc(rc, sub//': error return from esmf_timemgrgetcurrdate')   if (present(offset)) then      if (offset > 0) then         date = esmf_dateincrementsec(date, offset, rc)         call chkrc(rc, sub//': error incrementing current date')      else if (offset < 0) then         off = esmf_timeinit(0, -offset, rc)         call chkrc(rc, sub//': error setting offset time type')         date = esmf_datedecrement(date, off, rc)         call chkrc(rc, sub//': error decrementing current date')      end if   end if   if ( tm_perp_calendar ) then      call esmf_dateget(date, ymd, tod, rc)      call chkrc(rc, sub//': error return from esmf_dateget')      date = esmf_dateincrementsec(tm_perp_date, tod, rc)      call chkrc(rc, sub//': error return from esmf_dateincrementsec')   end if   get_curr_calday = esmf_dategetfltdayofyear(date, rc)   call chkrc(rc, sub//': error return from esmf_dategetfltdayofyear')end function get_curr_calday!=========================================================================================function is_end_curr_day()! Return true if current timestep is last timestep in current day.   implicit none   ! Return value   logical :: is_end_curr_day! Local variables   integer ::&      yr,    &! year      mon,   &! month      day,   &! day of month      tod     ! time of day (seconds past 0Z)!-----------------------------------------------------------------------------------------   call get_curr_date(yr, mon, day, tod)   is_end_curr_day = (tod == 0)end function is_end_curr_day!=========================================================================================function is_end_curr_month()! Return true if current timestep is last timestep in current month.   implicit none   ! Return value   logical :: is_end_curr_month! Local variables   integer ::&      yr,    &! year      mon,   &! month      day,   &! day of month      tod     ! time of day (seconds past 0Z)!-----------------------------------------------------------------------------------------   call get_curr_date(yr, mon, day, tod)   is_end_curr_month = (day == 1  .and.  tod == 0)end function is_end_curr_month!=========================================================================================function is_first_step()! Return true on first step of initial run only.   implicit none   ! Return value   logical :: is_first_step! Local variables   character(len=*), parameter :: sub = 'is_first_step'   integer :: rc   integer :: nstep!-----------------------------------------------------------------------------------------   nstep = esmf_timemgrgetnstep(tm_id, rc)   call chkrc(rc, sub//': error return from esmf_timemgrgetnstep')   is_first_step = (nstep == 0)end function is_first_step!=========================================================================================function is_first_restart_step()! Return true on first step of restart run only.   implicit none   ! Return value   logical :: is_first_restart_step!-----------------------------------------------------------------------------------------   is_first_restart_step = tm_first_restart_stepend function is_first_restart_step!=========================================================================================function is_last_step()! Return true on last timestep.   implicit none   ! Return value   logical :: is_last_step! Local variables   character(len=*), parameter :: sub = 'is_last_step'   integer :: rc!-----------------------------------------------------------------------------------------   is_last_step = esmf_timemgrlaststep(tm_id, rc)   call chkrc(rc, sub//': error return from esmf_timemgrlaststep')end function is_last_step!=========================================================================================function is_perpetual()! Return true on last timestep.   implicit none   ! Return value   logical :: is_perpetual!-----------------------------------------------------------------------------------------   is_perpetual = tm_perp_calendarend function is_perpetual!=========================================================================================subroutine timemgr_write_restart(ftn_unit)! Write information needed on restart to a binary Fortran file.! It is assumed that this routine is called only from the master proc if in SPMD mode.   implicit none! Arguments   integer, intent(in) :: ftn_unit  ! Fortran unit number! Local variables   character(len=*), parameter :: sub = 'timemgr_write_restart'   integer :: rc   ! return code   integer :: tod!-----------------------------------------------------------------------------------------   call esmf_timemgrrestartwrite(tm_id, rst_type, rst_nstep, rst_step_days, rst_step_sec, &                                rst_start_ymd, rst_start_tod, rst_stop_ymd, rst_stop_tod, rst_ref_ymd, &                                rst_ref_tod, rst_curr_ymd, rst_curr_tod, rc)   call chkrc(rc, sub//': error return from esmf_timemgrrestartwrite')   if ( tm_perp_calendar ) then      call esmf_dateget(tm_perp_date, rst_perp_ymd, tod, rc)      call chkrc(rc, sub//': error return from esmf_dateget')      rst_perp_cal = tm_perp_calendar   end if   write(ftn_unit, iostat=rc) rst_type, rst_nstep, rst_step_days, rst_step_sec, &                              rst_start_ymd, rst_start_tod, rst_stop_ymd, rst_stop_tod, rst_ref_ymd, &                              rst_ref_tod, rst_curr_ymd, rst_curr_tod, rst_perp_ymd, rst_perp_cal   if (rc /= 0 ) then      write (6,*) 'WRITE iostat= ',rc,' on i/o unit = ',ftn_unit      call endrun   end ifend subroutine timemgr_write_restart!=========================================================================================subroutine timemgr_read_restart(ftn_unit)! Read information needed to restart from a binary Fortran file.! It is assumed that this routine is called only from the master proc if in SPMD mode.   implicit none! Arguments   integer, intent(in) :: ftn_unit  ! Fortran unit number! Local variables   character(len=*), parameter :: sub = 'timemgr_read_restart'   integer :: rc   ! return code!-----------------------------------------------------------------------------------------   read(ftn_unit, iostat=rc) rst_type, rst_nstep, rst_step_days, rst_step_sec, &                             rst_start_ymd, rst_start_tod, rst_stop_ymd, rst_stop_tod, rst_ref_ymd, &                             rst_ref_tod, rst_curr_ymd, rst_curr_tod, rst_perp_ymd, rst_perp_cal   if (rc /= 0 ) then      write (6,*) 'READ iostat= ',rc,' on i/o unit = ',ftn_unit      call endrun   end ifend subroutine timemgr_read_restart!=========================================================================================subroutine chkrc(rc, mes)   implicit none   integer, intent(in)          :: rc   ! return code from time management library   character(len=*), intent(in) :: mes  ! error message   if ( rc == esmf_success ) return   write(6,*) mes   call esmf_errprint(rc)   call endrunend subroutine chkrcend module time_manager