gtool5 Fortran 90/95 Library 1.0.0-rc5
日本語
Loading...
Searching...
No Matches
dc_date_types.f90 File Reference

Go to the source code of this file.

Data Types

type  dc_date_types::dc_datetime
type  dc_date_types::dc_difftime

Modules

module  dc_date_types
 Derived types and parameters for date and time.

Variables

Calendar type parameters
integer, parameter, public dc_date_types::cal_cyclic = 1
 Cyclic calendar (30.6 days per month)
integer, parameter, public dc_date_types::cal_noleap = 2
 Calendar without leap years (365 days per year)
integer, parameter, public dc_date_types::cal_julian = 3
 Julian calendar
integer, parameter, public dc_date_types::cal_gregorian = 4
 Gregorian calendar
integer, dimension(0:3), parameter, public dc_date_types::prepared_caltypes = (/CAL_CYCLIC, CAL_NOLEAP, CAL_JULIAN, CAL_GREGORIAN/)
 Array of prepared calendar types
integer, save, public dc_date_types::caltype = CAL_GREGORIAN
 Default calendar type (Gregorian)
Time unit conversion parameters
real(dp), parameter, public dc_date_types::cyclic_mdays = 30.6_DP
 Days per month for cyclic calendar (also used for DC_DIFFTIME)
integer, parameter, public dc_date_types::min_seconds = 60
 Seconds per minute
integer, parameter, public dc_date_types::hour_seconds = 3600
 Seconds per hour
real(dp), parameter, public dc_date_types::day_seconds_earth = 86400.0_DP
 Seconds per day on Earth
real(dp), save, public dc_date_types::day_seconds = DAY_SECONDS_EARTH
 Seconds per day (variable, default is Earth day)
type(dc_scaled_sec), save, public dc_date_types::day_seconds_scl
 Seconds per day (DC_SCALED_SEC type)
logical, save, public dc_date_types::flag_set_day_seconds_scl = .false.
 Flag indicating if day_seconds_scl is set
integer, parameter, public dc_date_types::year_days = 365
 Days per year (non-leap year)
integer, parameter, public dc_date_types::year_months = 12
 Months per year
integer, parameter, public dc_date_types::four_years = YEAR_DAYS * 4 + 1
 Days in 4 years (including leap year)
integer, parameter, public dc_date_types::four_century = YEAR_DAYS * 400 + 97
 Days in 400 years
Unit string parameters
character(*), dimension(1), parameter, public dc_date_types::unit_nondim = (/ '1' /)
 Strings recognized as nondimensional unit
character(*), dimension(8), parameter, public dc_date_types::unit_sec = (/ 'seconds', 'second ', 'secs. ', 'secs ', 'sec. ', 'sec ', 's. ', 's '/)
 Strings recognized as second unit
character(*), dimension(4), parameter, public dc_date_types::unit_min = (/ 'minutes', 'minute ', 'min. ', 'min '/)
 Strings recognized as minute unit
character(*), dimension(8), parameter, public dc_date_types::unit_hour = (/ 'hours', 'hour ', 'hrs. ', 'hrs ', 'hr. ', 'hr ', 'h. ', 'h '/)
 Strings recognized as hour unit
character(*), dimension(4), parameter, public dc_date_types::unit_day = (/ 'days', 'day ', 'd. ', 'd '/)
 Strings recognized as day unit
character(*), dimension(6), parameter, public dc_date_types::unit_month = (/ 'months', 'month ', 'mon. ', 'mon ', 'mo. ', 'mo '/)
 Strings recognized as month unit
character(*), dimension(4), parameter, public dc_date_types::unit_year = (/ 'years', 'year ', 'yr. ', 'yr '/)
 Strings recognized as year unit
Unit symbol parameters
integer, parameter, public dc_date_types::unit_symbol_err = -1
 Symbol for invalid unit
integer, parameter, public dc_date_types::unit_symbol_nondim = 1
 Symbol for nondimensional unit
integer, parameter, public dc_date_types::unit_symbol_sec = 2
 Symbol for second unit
integer, parameter, public dc_date_types::unit_symbol_min = 3
 Symbol for minute unit
integer, parameter, public dc_date_types::unit_symbol_hour = 4
 Symbol for hour unit
integer, parameter, public dc_date_types::unit_symbol_day = 5
 Symbol for day unit
integer, parameter, public dc_date_types::unit_symbol_month = 6
 Symbol for month unit
integer, parameter, public dc_date_types::unit_symbol_year = 7
 Symbol for year unit