Module dc_date_types
module dc_date_types
! Uses
use dc_types, only: DP
! Types
public type DC_DATETIME
public type DC_DIFFTIME
! Variables
integer, public, parameter :: CAL_CYCLIC = 1
integer, public, parameter :: CAL_NOLEAP = 2
integer, public, parameter :: CAL_JULIAN = 3
integer, public, parameter :: CAL_GREGORIAN = 4
integer, public, save :: caltype = CAL_GREGORIAN
real (kind=DP), public, save :: cyclic_mdays = 30.6
real (kind=DP), public, save :: day_seconds = 86400.0
end module dc_date_types
Description of Types
DC_DATETIME
public type DC_DATETIME
sequence
integer :: day
real (kind=DP) :: sec
end type DC_DATETIME
DC_DIFFTIME
public type DC_DIFFTIME
sequence
integer :: mon
integer :: day
real (kind=DP) :: sec
end type DC_DIFFTIME
Description of Variables
CAL_CYCLIC
integer, public, parameter :: CAL_CYCLIC = 1
CAL_NOLEAP
integer, public, parameter :: CAL_NOLEAP = 2
CAL_JULIAN
integer, public, parameter :: CAL_JULIAN = 3
CAL_GREGORIAN
integer, public, parameter :: CAL_GREGORIAN = 4
caltype
integer, public, save :: caltype = CAL_GREGORIAN
cyclic_mdays
real (kind=DP), public, save :: cyclic_mdays = 30.6
day_seconds
real (kind=DP), public, save :: day_seconds = 86400.0