int shr_timemgr_clock_info_orb_mode ;
shr_timemgr_clock_info_orb_mode:long_name = "Clock info orbital mode" ;
shr_timemgr_clock_info_orb_mode:units = "list" ;
shr_timemgr_clock_info_orb_mode:_FillValue = 2000000000 ;
shr_timemgr_clock_info_orb_mode:missing_value = 2000000000 ;
shr_timemgr_clock_info_orb_mode:type = "Integer list" ;
shr_timemgr_clock_info_orb_mode:Orb_mode_calculated_based_on_fixed_year = 1 ;
shr_timemgr_clock_info_orb_mode:Orb_mode_fixed_by_orbit_parameters = 2 ;
|
! ! PUBLIC TYPES: public :: shr_timemgr_clockType ! Wrapped clock object public :: shr_timemgr_setupType ! Information to setup a clock public :: shr_timemgr_clockInfoType ! Miscellaneous clock information ! !PUBLIC MEMBER FUNCTIONS public :: shr_timemgr_setupClock ! Setup the clock public :: shr_timemgr_setupFromClock ! Setup the clock based on an input clock public :: shr_timemgr_clockGet ! Get data from the clock public :: shr_timemgr_getYMD ! Get YYYYMMDD from an ESMF time instance public :: shr_timemgr_isLastStep ! Return true if this is the last time-step public :: shr_timemgr_readRestart ! Read time-manager restart information public :: shr_timemgr_writeRestart ! Write restart information out to file public :: shr_timemgr_restartAlarmOff ! Turn the restart alarm off public :: shr_timemgr_readNL ! Read in the namelist for clock information public :: shr_timemgr_setDefaults ! Set the default values for clock setup object public :: shr_timemgr_check ! Check the setup object for valid settings public :: shr_timemgr_change ! Change clock setup object values public :: shr_timemgr_get ! Get clock setup object values public :: shr_timemgr_clockInfoGet ! Get values from clock Info object public :: shr_timemgr_advanceClock ! Advance the clock public :: shr_timemgr_setRestartAlarm ! Turn the restart alarm on public :: shr_timemgr_isRestartAlarm ! Return true if the restart alarm is on public :: shr_timemgr_print ! Print clock information |
(D) Same as (E) but added a few methods, (*) indicates methods that could be
removed because a more generic method is available.
! ! PUBLIC TYPES:
public :: shr_timemgr_clockType ! clock object
public :: shr_timemgr_NMLinfoType ! namelist info used to init a clock
! !PUBLIC MEMBER FUNCTIONS
public :: shr_timemgr_clockInitNMLinfo ! init clock using nml info only
public :: shr_timemgr_clockInitRestart ! init clock using nml info AND restart file
public :: shr_timemgr_clockInitClock ! init clock using another clock
public :: shr_timemgr_clockGetData ! get misc data from clock (overloaded)
* public :: shr_timemgr_clockGetDataSec ! get elapsed-sec-on-day data from a clock
* public :: shr_timemgr_clockGetDataYMD ! get YYYYMMDD data from a clock
public :: shr_timemgr_clockRestartWrite ! put clock info into a restart file
public :: shr_timemgr_clockPrint ! print clock information
public :: shr_timemgr_clockAdvance ! advance the clock
public :: shr_timemgr_clockAlarmIsOn ! return true if the an alarm is on
* public :: shr_timemgr_clockIsOnLastStep ! return true if the clock is at stop_time
* public :: shr_timemgr_clockAlarmIsOnRestart ! return true if the restart alarm is on
public :: shr_timemgr_clockAlarmTurnOn ! turn an alarm on
public :: shr_timemgr_clockAlarmTurnOff ! turn an alarm off
* public :: shr_timemgr_clockAlarmTurnOffRestart ! turn the restart alarm off
public :: shr_timemgr_clockAlarmTurnOnRestart ! turn the restart alarm on
public :: shr_timemgr_NMLinfoRead ! read clock nml info from a file
public :: shr_timemgr_NMLinfoSetDefault ! set the default values for NMLinfo object
public :: shr_timemgr_NMLinfoCheck ! verify valid settings of NMLinfo object
public :: shr_timemgr_NMLinfoPutData ! put misc values into NMLinfo object
public :: shr_timemgr_NMLinfoGetData ! get misc values from NMLinfo object
|
call shr_timemgr_setDefaults( perpetual_run=perp_run, &
perpetual_ymd=perp_ymd, Setup )
! Change some values in the setup object
call shr_timemgr_change( Setup, start_ymd=my_start )
! Read in the timemgr namelist
call shr_timemgr_readNL( nlfilename, LogPrint, MPICom, MasterTask, &
SetupOut )
! Get info from the clock-setup object
! call shr_timemgr_get( setup, stop_option=stop_option )
! Setup the clock
call shr_timemgr_setupClock( setup, LogPrint=.true.,
desc="my_clock", &
ClockOut=clock )
! Print out the clock
call shr_timemgr_print( clock )
! Get info from the clock
call shr_timemgr_clockGet( clock, CurrentYMD=ymd, currentTOD=tod )
|
call shr_timemgr_setDefaults( Setup )
call shr_timemgr_setDefaultValue( Setup, "perpetual_run", perp_run )
call shr_timemgr_setDefaultValue( Setup, "perpetual_ymd", perp_ymd )
! Change some values in the setup object
call shr_timemgr_change( Setup, "start_ymd", my_start )
! Read in the timemgr namelist
call shr_timemgr_readNL( nlfilename, LogPrint, MPICom, MasterTask, &
SetupOut )
! Get info from the clock-setup object
call shr_timemgr_get( setup, "stop_option", value=stop_option )
! Setup the clock
call shr_timemgr_setupClock( setup, LogPrint=.true.,
desc="my_clock", &
ClockOut=clock )
! Print out the clock
call shr_timemgr_print( clock )
! Get info from the clock
ymd = shr_timemgr_clockGet( clock, "CurrentYMD" )
tod = shr_timemgr_clockGet( clock, "CurrentTOD" )
|