dc_calendar_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_calendar_types
  !
 
  use dc_types, only: dp, token
  implicit none
 
  private
  public:: dc_cal, dc_cal_date
  public:: cal_user_defined, cal_cyclic, cal_noleap, cal_julian, &
    &      cal_gregorian, cal_360day
  public:: unit_sec, unit_min, unit_hour, &
    &      unit_day, unit_month, unit_year
  public:: unit_symbol_sec, unit_symbol_min, &
    &      unit_symbol_hour, unit_symbol_day, unit_symbol_month, &
    &      unit_symbol_year, unit_symbol_err
 
  integer, parameter:: cal_user_defined = 1
                                         ! 利用者が任意で指定する暦. 
                                         ! User defined calendar. 
                                         !
  integer, parameter:: cal_cyclic = 2    ! 1 ヵ月を 30.6 日 (CYCLIC_MDAYS) 
                                         ! とする暦. 
                                         !
                                         ! All months are 30.6 day. 
                                         !
  integer, parameter:: cal_noleap = 3    ! 1 年 365 日 (閏年無し) の暦. 
                                         !
                                         ! Gregorian calendar without
                                         ! leap years, i.e., all years
                                         ! are 365 days long.
                                         !
  integer, parameter:: cal_julian = 4    ! ユリウス暦. 
                                         ! Julian calendar. 
                                         !
  integer, parameter:: cal_gregorian = 5 ! グレゴリオ暦. 
                                         ! Gregorian calendar. 
                                         !
  integer, parameter:: cal_360day = 6    ! 1 年 360 日 (1 月 30 日) の暦. 
                                         !
                                         ! All years are 360 days 
                                         ! divided into 30 day months.
 
  type dc_cal
    logical:: initialized = .false.            
    integer:: month_in_year
    integer, pointer:: day_in_month(:) => null() 
    integer:: hour_in_day
    integer:: min_in_hour
    real(dp):: sec_in_min
    integer:: cal_type
  end type dc_cal
 
  type dc_cal_date
    logical:: initialized = .false.  
    integer:: year
    integer:: month
    integer:: day
    integer:: hour
    integer:: min
    real(dp):: sec
    character(TOKEN):: zone
  end type dc_cal_date
 
  ! 日時の単位として認識される文字列
  ! Strings recognized as units of date and time 
  !
  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   '/)         ! 年の単位を示す文字列
 
 
  ! 日時の単位のシンボル
  ! Synbols of units of date and time
  !
  integer, parameter:: unit_symbol_err    = -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 ! 年の単位を示すシンボル
 
end module dc_calendar_types