Loading...
Searching...
No Matches
Data Types | Variables
dc_date_types Module Reference

Data Types

type  dc_datetime
type  dc_difftime

Variables

integer, parameter, public cal_cyclic = 1
integer, parameter, public cal_noleap = 2
integer, parameter, public cal_julian = 3
integer, parameter, public cal_gregorian = 4
integer, dimension(0:3), parameter, public prepared_caltypes = (/CAL_CYCLIC, CAL_NOLEAP, CAL_JULIAN, CAL_GREGORIAN/)
integer, save, public caltype = CAL_GREGORIAN
real(dp), parameter, public cyclic_mdays = 30.6_DP
integer, parameter, public min_seconds = 60
integer, parameter, public hour_seconds = 3600
real(dp), parameter, public day_seconds_earth = 86400.0_DP
real(dp), save, public day_seconds = DAY_SECONDS_EARTH
type(dc_scaled_sec), save, public day_seconds_scl
logical, save, public flag_set_day_seconds_scl = .false.
integer, parameter, public year_days = 365
integer, parameter, public year_months = 12
integer, parameter, public four_years = YEAR_DAYS * 4 + 1
integer, parameter, public four_century = YEAR_DAYS * 400 + 97
character(*), dimension(1), parameter, public unit_nondim = (/ '1' /)
character(*), dimension(8), parameter, public unit_sec = (/ 'seconds', 'second ', 'secs. ', 'secs ', 'sec. ', 'sec ', 's. ', 's '/)
character(*), dimension(4), parameter, public unit_min = (/ 'minutes', 'minute ', 'min. ', 'min '/)
character(*), dimension(8), parameter, public unit_hour = (/ 'hours', 'hour ', 'hrs. ', 'hrs ', 'hr. ', 'hr ', 'h. ', 'h '/)
character(*), dimension(4), parameter, public unit_day = (/ 'days', 'day ', 'd. ', 'd '/)
character(*), dimension(6), parameter, public unit_month = (/ 'months', 'month ', 'mon. ', 'mon ', 'mo. ', 'mo '/)
character(*), dimension(4), parameter, public unit_year = (/ 'years', 'year ', 'yr. ', 'yr '/)
integer, parameter, public unit_symbol_err = -1
integer, parameter, public unit_symbol_nondim = 1
integer, parameter, public unit_symbol_sec = 2
integer, parameter, public unit_symbol_min = 3
integer, parameter, public unit_symbol_hour = 4
integer, parameter, public unit_symbol_day = 5
integer, parameter, public unit_symbol_month = 6
integer, parameter, public unit_symbol_year = 7

Variable Documentation

◆ cal_cyclic

integer, parameter, public dc_date_types::cal_cyclic = 1

Definition at line 89 of file dc_date_types.f90.

89 integer, parameter:: CAL_CYCLIC = 1 ! 1 ヵ月を 30.6 日 (CYCLIC_MDAYS)

◆ cal_gregorian

integer, parameter, public dc_date_types::cal_gregorian = 4

Definition at line 105 of file dc_date_types.f90.

105 integer, parameter:: CAL_GREGORIAN = 4! グレゴリオ暦

◆ cal_julian

integer, parameter, public dc_date_types::cal_julian = 3

Definition at line 103 of file dc_date_types.f90.

103 integer, parameter:: CAL_JULIAN = 3 ! ユリウス暦

◆ cal_noleap

integer, parameter, public dc_date_types::cal_noleap = 2

Definition at line 101 of file dc_date_types.f90.

101 integer, parameter:: CAL_NOLEAP = 2 ! 1 年 365 日の暦

◆ caltype

integer, save, public dc_date_types::caltype = CAL_GREGORIAN

Definition at line 110 of file dc_date_types.f90.

110 integer, save:: caltype = cal_gregorian ! デフォルトの暦

◆ cyclic_mdays

real(dp), parameter, public dc_date_types::cyclic_mdays = 30.6_DP

Definition at line 115 of file dc_date_types.f90.

115 real(DP), parameter:: CYCLIC_MDAYS = 30.6_dp ! CAL_CYCLIC で使用される

◆ day_seconds

real(dp), save, public dc_date_types::day_seconds = DAY_SECONDS_EARTH

Definition at line 125 of file dc_date_types.f90.

125 real(DP), save :: day_seconds = day_seconds_earth

◆ day_seconds_earth

real(dp), parameter, public dc_date_types::day_seconds_earth = 86400.0_DP

Definition at line 123 of file dc_date_types.f90.

123 real(DP), parameter:: DAY_SECONDS_EARTH = 86400.0_dp

◆ day_seconds_scl

type(dc_scaled_sec), save, public dc_date_types::day_seconds_scl

Definition at line 127 of file dc_date_types.f90.

127 type(DC_SCALED_SEC), save :: day_seconds_scl

◆ flag_set_day_seconds_scl

logical, save, public dc_date_types::flag_set_day_seconds_scl = .false.

Definition at line 129 of file dc_date_types.f90.

129 logical, save :: flag_set_day_seconds_scl = .false.

◆ four_century

integer, parameter, public dc_date_types::four_century = YEAR_DAYS * 400 + 97

Definition at line 135 of file dc_date_types.f90.

135 integer, parameter:: FOUR_CENTURY = year_days * 400 + 97

◆ four_years

integer, parameter, public dc_date_types::four_years = YEAR_DAYS * 4 + 1

Definition at line 133 of file dc_date_types.f90.

133 integer, parameter:: FOUR_YEARS = year_days * 4 + 1

◆ hour_seconds

integer, parameter, public dc_date_types::hour_seconds = 3600

Definition at line 122 of file dc_date_types.f90.

122 integer, parameter:: HOUR_SECONDS = 3600 ! 1 時間の秒数

◆ min_seconds

integer, parameter, public dc_date_types::min_seconds = 60

Definition at line 121 of file dc_date_types.f90.

121 integer, parameter:: MIN_SECONDS = 60 ! 1 分の秒数

◆ prepared_caltypes

integer, dimension(0:3), parameter, public dc_date_types::prepared_caltypes = (/CAL_CYCLIC, CAL_NOLEAP, CAL_JULIAN, CAL_GREGORIAN/)

Definition at line 107 of file dc_date_types.f90.

107 integer, parameter:: PREPARED_CALTYPES(0:3) = &
108 & (/CAL_CYCLIC, CAL_NOLEAP, CAL_JULIAN, CAL_GREGORIAN/)

◆ unit_day

character(*), dimension(4), parameter, public dc_date_types::unit_day = (/ 'days', 'day ', 'd. ', 'd '/)

Definition at line 153 of file dc_date_types.f90.

153 character(*), parameter, dimension(4) :: UNIT_DAY = (/ &
154 & 'days', 'day ', 'd. ', 'd '/) ! 日の単位を示す文字列

◆ unit_hour

character(*), dimension(8), parameter, public dc_date_types::unit_hour = (/ 'hours', 'hour ', 'hrs. ', 'hrs ', 'hr. ', 'hr ', 'h. ', 'h '/)

Definition at line 150 of file dc_date_types.f90.

150 character(*), parameter, dimension(8) :: UNIT_HOUR = (/ &
151 & 'hours', 'hour ', 'hrs. ', 'hrs ', &
152 & 'hr. ', 'hr ', 'h. ', 'h '/) ! 時の単位を示す文字列

◆ unit_min

character(*), dimension(4), parameter, public dc_date_types::unit_min = (/ 'minutes', 'minute ', 'min. ', 'min '/)

Definition at line 148 of file dc_date_types.f90.

148 character(*), parameter, dimension(4) :: UNIT_MIN = (/ &
149 & 'minutes', 'minute ', 'min. ', 'min '/) ! 分の単位を示す文字列

◆ unit_month

character(*), dimension(6), parameter, public dc_date_types::unit_month = (/ 'months', 'month ', 'mon. ', 'mon ', 'mo. ', 'mo '/)

Definition at line 155 of file dc_date_types.f90.

155 character(*), parameter, dimension(6) :: UNIT_MONTH = (/ &
156 & 'months', 'month ', 'mon. ', &
157 & 'mon ', 'mo. ', 'mo '/) ! 月の単位を示す文字列

◆ unit_nondim

character(*), dimension(1), parameter, public dc_date_types::unit_nondim = (/ '1' /)

Definition at line 141 of file dc_date_types.f90.

141 character(*), parameter, dimension(1) :: UNIT_NONDIM = (/ &
142 & '1' /) ! 無次元時間の単位を示す文字列

◆ unit_sec

character(*), dimension(8), parameter, public dc_date_types::unit_sec = (/ 'seconds', 'second ', 'secs. ', 'secs ', 'sec. ', 'sec ', 's. ', 's '/)

Definition at line 144 of file dc_date_types.f90.

144 character(*), parameter, dimension(8) :: UNIT_SEC = (/ &
145 & 'seconds', 'second ', 'secs. ', 'secs ', &
146 & 'sec. ', 'sec ', 's. ', 's '/) ! 秒の単位を示す文字列

◆ unit_symbol_day

integer, parameter, public dc_date_types::unit_symbol_day = 5

Definition at line 169 of file dc_date_types.f90.

169 integer, parameter:: UNIT_SYMBOL_DAY = 5 ! 日の単位を示すシンボル

◆ unit_symbol_err

integer, parameter, public dc_date_types::unit_symbol_err = -1

Definition at line 164 of file dc_date_types.f90.

164 integer, parameter:: UNIT_SYMBOL_ERR = -1 ! 無効な単位を示すシンボル

◆ unit_symbol_hour

integer, parameter, public dc_date_types::unit_symbol_hour = 4

Definition at line 168 of file dc_date_types.f90.

168 integer, parameter:: UNIT_SYMBOL_HOUR = 4 ! 時間の単位を示すシンボル

◆ unit_symbol_min

integer, parameter, public dc_date_types::unit_symbol_min = 3

Definition at line 167 of file dc_date_types.f90.

167 integer, parameter:: UNIT_SYMBOL_MIN = 3 ! 分の単位を示すシンボル

◆ unit_symbol_month

integer, parameter, public dc_date_types::unit_symbol_month = 6

Definition at line 170 of file dc_date_types.f90.

170 integer, parameter:: UNIT_SYMBOL_MONTH = 6 ! 月の単位を示すシンボル

◆ unit_symbol_nondim

integer, parameter, public dc_date_types::unit_symbol_nondim = 1

Definition at line 165 of file dc_date_types.f90.

165 integer, parameter:: UNIT_SYMBOL_NONDIM = 1 ! 無時限時間の単位を示すシンボル

◆ unit_symbol_sec

integer, parameter, public dc_date_types::unit_symbol_sec = 2

Definition at line 166 of file dc_date_types.f90.

166 integer, parameter:: UNIT_SYMBOL_SEC = 2 ! 秒の単位を示すシンボル

◆ unit_symbol_year

integer, parameter, public dc_date_types::unit_symbol_year = 7

Definition at line 171 of file dc_date_types.f90.

171 integer, parameter:: UNIT_SYMBOL_YEAR = 7 ! 年の単位を示すシンボル

◆ unit_year

character(*), dimension(4), parameter, public dc_date_types::unit_year = (/ 'years', 'year ', 'yr. ', 'yr '/)

Definition at line 158 of file dc_date_types.f90.

158 character(*), parameter, dimension(4) :: UNIT_YEAR = (/ &
159 & 'years', 'year ', 'yr. ', 'yr '/) ! 年の単位を示す文字列

◆ year_days

integer, parameter, public dc_date_types::year_days = 365

Definition at line 131 of file dc_date_types.f90.

131 integer, parameter:: YEAR_DAYS = 365 ! 1 年 (非閏年) の日数

◆ year_months

integer, parameter, public dc_date_types::year_months = 12

Definition at line 132 of file dc_date_types.f90.

132 integer, parameter:: YEAR_MONTHS = 12 ! 1 年の月数