Subroutine DCDateTimeEval

subroutine DCDateTimeEval

        ! Uses
    use dc_types, only: DP
    use dc_date_types, only: DC_DATETIME,  caltype, cyclic_mdays, CAL_NOLEAP, CAL_JULIAN, CAL_CYCLIC

        ! Variables
    type (DC_DATETIME), intent(in) :: time
    integer, intent(out) :: mon
    integer, intent(out) :: day
    real (kind=DP), intent(out) :: sec
    integer :: year
    integer :: month
    integer, parameter :: four_years = 365 * 4 + 1
    integer, parameter :: four_century = 365 * 400 + 97

end subroutine DCDateTimeEval

Description of Variables

type (DC_DATETIME), intent(in) :: time

integer, intent(out) :: mon

integer, intent(out) :: day

real (kind=DP), intent(out) :: sec

integer :: year

integer :: month

integer, parameter :: four_years = 365 * 4 + 1

integer, parameter :: four_century = 365 * 400 + 97