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" ) |