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

public type DC_DATETIME
    sequence
    integer :: day
    real (kind=DP) :: sec
end type DC_DATETIME

public type DC_DIFFTIME
    sequence
    integer :: mon
    integer :: day
    real (kind=DP) :: sec
end type DC_DIFFTIME

Description of 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