SUBROUTINE LASTTIME( SDATE, STIME, TSTEP, NSTEPS, EDATE, ETIME ) INTEGER, INTENT(IN ) :: SDATE ! date, YYYDDD = 1000*year + day(1...365,6) INTEGER, INTENT(IN ) :: STIME ! time (encoded HHMMSS) INTEGER, INTENT(IN ) :: TSTEP ! timestep (encoded HHMMSS) INTEGER, INTENT(IN ) :: NSTEPS ! number of timesteps INTEGER, INTENT( OUT) :: EDATE ! date, YYYDDD = 1000*year + day(1...365,6) INTEGER, INTENT( OUT) :: ETIME ! time (encoded HHMMSS)
EDATE:ETIME
in the
time step sequence starting at SDATE:STIME
, with
time step TSTEP
and NSTEPS
time
steps. Uses high precision arithemetic internally, so that it
is safe for very long (even multi-century) applications.
See also subroutines CURRSTEP() and NEXTIME().
USE M3UTILIO
Up: Date-Time Manipulation Routines
To: Models-3/EDSS I/O API: The Help Pages