dc_date_types.f90

Go to the documentation of this file.

! -*- mode: f90; coding: utf-8 -*-
!-----------------------------------------------------------------------
! Copyright (c) 2000-2026 Gtool Development Group. All rights reserved.
!-----------------------------------------------------------------------
 
module dc_date_types
 
  use dc_types, only: dp, string
  use dc_scaledsec, only: dc_scaled_sec
 
  implicit none
 
  private
  public:: dc_datetime, dc_difftime
  public:: unit_nondim, unit_sec, unit_min, unit_hour, unit_day, unit_month, unit_year
  public:: unit_symbol_nondim, unit_symbol_sec, unit_symbol_min
  public:: unit_symbol_hour, unit_symbol_day, unit_symbol_month, unit_symbol_year
  public:: unit_symbol_err
  public:: cal_cyclic, cal_noleap, cal_julian, cal_gregorian
  public:: cyclic_mdays, day_seconds_earth, min_seconds, hour_seconds
  public:: year_months, year_days, four_years, four_century
  public:: prepared_caltypes
  public:: caltype, day_seconds, day_seconds_scl, flag_set_day_seconds_scl
 
 
  integer, parameter:: cal_cyclic = 1
 
  integer, parameter:: cal_noleap = 2
 
  integer, parameter:: cal_julian = 3
 
  integer, parameter:: cal_gregorian = 4
 
  integer, parameter:: prepared_caltypes(0:3) = &
    & (/CAL_CYCLIC, CAL_NOLEAP, CAL_JULIAN, CAL_GREGORIAN/)
 
  integer, save:: caltype = cal_gregorian
 
 
 
  real(dp), parameter:: cyclic_mdays = 30.6_dp
 
  integer, parameter:: min_seconds  = 60
 
  integer, parameter:: hour_seconds = 3600
 
  real(dp), parameter:: day_seconds_earth  = 86400.0_dp
 
  real(dp), save :: day_seconds = day_seconds_earth
 
  type(dc_scaled_sec), save :: day_seconds_scl
 
  logical, save :: flag_set_day_seconds_scl = .false.
 
  integer, parameter:: year_days = 365
 
  integer, parameter:: year_months = 12
 
  integer, parameter:: four_years = year_days * 4 + 1
 
  integer, parameter:: four_century = year_days * 400 + 97
 
 
 
  character(*), parameter, dimension(1) :: unit_nondim = (/ &
    & '1' /)
 
  character(*), parameter, dimension(8) :: unit_sec = (/ &
    & 'seconds', 'second ', 'secs.  ', 'secs   ', &
    & 'sec.   ', 'sec    ', 's.     ', 's      '/)
 
  character(*), parameter, dimension(4) :: unit_min = (/ &
    & 'minutes', 'minute ', 'min.   ', 'min    '/)
 
  character(*), parameter, dimension(8) :: unit_hour = (/ &
    & 'hours', 'hour ', 'hrs. ', 'hrs  ', &
    & 'hr.  ', 'hr   ', 'h.   ', 'h    '/)
 
  character(*), parameter, dimension(4) :: unit_day = (/ &
    & 'days', 'day ', 'd.  ', 'd   '/)
 
  character(*), parameter, dimension(6) :: unit_month = (/ &
    & 'months', 'month ', 'mon.  ', &
    & 'mon   ', 'mo.   ', 'mo    '/)
 
  character(*), parameter, dimension(4) :: unit_year = (/ &
    & 'years', 'year ', 'yr.  ', 'yr   '/)
 
 
 
  integer, parameter:: unit_symbol_err    = -1
 
  integer, parameter:: unit_symbol_nondim = 1
 
  integer, parameter:: unit_symbol_sec    = 2
 
  integer, parameter:: unit_symbol_min    = 3
 
  integer, parameter:: unit_symbol_hour   = 4
 
  integer, parameter:: unit_symbol_day    = 5
 
  integer, parameter:: unit_symbol_month  = 6
 
  integer, parameter:: unit_symbol_year   = 7
 
 
  type dc_datetime
    sequence
    integer :: caltype = cal_gregorian 
    type(dc_scaled_sec):: day
    type(dc_scaled_sec):: sec
    logical:: dummy = .false.          
    type(dc_scaled_sec):: day_seconds
    character(STRING) :: zone = '+00:00'
  end type dc_datetime
 
  type dc_difftime
    sequence
    type(dc_scaled_sec):: mon
    type(dc_scaled_sec):: day
    type(dc_scaled_sec):: sec
    logical:: dummy0 = .false.         
    type(dc_scaled_sec):: day_seconds
    logical:: nondim_flag = .false.    
    logical:: dummy1 = .false.         
  end type dc_difftime
 
end module dc_date_types