This module provides a number of routines/functions and variables related to the mode time in GOTM. The basic concept used in this module is that time is expressed as two integers -- one is the true Julian day and the other is seconds since midnight. All calculations with time then become very simple operations on integers.
IMPLICIT NONE default: all is private. privatePUBLIC MEMBER FUNCTIONS:
public :: init_time, calendar_date public :: julian_day, update_time public :: write_time_string public :: time_diff public :: sunrise_sunset ifdef _PRINTSTATE_ public :: print_state_time endifPUBLIC DATA MEMBERS:
character(len=19), public :: timestr character(len=19), public :: start character(len=19), public :: stop REALTYPE, public :: timestep REALTYPE, public :: fsecs,simtime integer,target, public :: julianday,secondsofday integer,target, public :: yearday integer, public :: timefmt integer, public :: MinN,MaxNREVISION HISTORY:
Original author(s): Karsten Bolding & Hans Burchard