cable_timing_utils_mod Module


Uses


Variables

Type Visibility Attributes Name Initial
integer, private, parameter :: seconds_per_hour = 3600
integer, private, parameter :: hours_per_day = 24
integer, private, parameter :: months_in_year = 12
integer, private, parameter, dimension(months_in_year) :: daysm = [31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31]
integer, private, parameter, dimension(months_in_year) :: daysml = [31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31]
integer, private, parameter, dimension(months_in_year) :: lastday = [31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334, 365]
integer, private, parameter, dimension(months_in_year) :: lastdayl = [31, 60, 91, 121, 152, 182, 213, 244, 274, 305, 335, 366]

Functions

public function time_step_matches(dels, ktau, frequency, leaps, start_year) result(match)

Arguments

Type IntentOptional Attributes Name
real, intent(in) :: dels

Model time step in seconds
integer, intent(in) :: ktau

Current time step index
character(len=*), intent(in) :: frequency

Frequency string: 'all', 'daily', 'monthly'
logical, intent(in) :: leaps

Are we using leap years?
integer, intent(in) :: start_year

Start year of the simulation

Return Value logical