dcdatetimesetcaltype.f90

Go to the documentation of this file.

! -*- mode: f90; coding: utf-8 -*-
!-----------------------------------------------------------------------
! Copyright (c) 2000-2026 Gtool Development Group. All rights reserved.
!-----------------------------------------------------------------------
!>
!> @author    Yasuhiro MORIKAWA
!> @copyright Copyright (C) GFD Dennou Club, 2000-2026. All rights reserved. <br/>
!>            License is BSD-2-Clause. see [COPYRIGHT](@ref COPYRIGHT) in detail
!> @en
!> @brief Set the calendar type
!> @details
!> Procedures described in this file are provided from "dc_date" module.
!> @enden
!>
!> @ja
!> @brief 暦法の設定
!> @details
!> このファイルで提供される手続き群は dc_date モジュールにて提供されます。
!> @endja
!>
 
!> @en
!> @brief Set the default calendar type
!> @details
!> Set the default calendar type.
!> Specify one of dc_date_types#CAL_CYCLIC, dc_date_types#CAL_NOLEAP,
!> dc_date_types#CAL_JULIAN, or dc_date_types#CAL_GREGORIAN
!> in the argument `caltype`.
!>
!> If this procedure is not called, the default calendar type is
!> set to dc_date_types#CAL_GREGORIAN.
!>
!> @param[in] caltype Calendar type to set as default
!> @enden
!>
!> @ja
!> @brief 暦法のデフォルトを設定
!> @details
!> 暦法のデフォルトを設定します.
!> dc_date_types#CAL_CYCLIC, dc_date_types#CAL_NOLEAP,
!> dc_date_types#CAL_JULIAN, dc_date_types#CAL_GREGORIAN
!> のいづれかを引数 `caltype` に与えてください.
!>
!> なお, この手続きを呼ばない場合, デフォルトの暦法は
!> dc_date_types#CAL_GREGORIAN に設定されています.
!>
!> @param[in] caltype デフォルトに設定する暦法
!> @endja
subroutine dcdatetimesetcaltype(caltype)
 
  use dc_date_types, only: caltype_default => caltype
  use dc_trace, only: beginsub, endsub
  use dc_message, only: messagenotify
  use dc_date_generic, only: validcaltype
  implicit none
  integer, intent(in):: caltype
  character(*), parameter :: subname = 'DCDateTimeSetCaltype'
continue
  call beginsub(subname, 'caltype=<%d>', i=(/caltype/))
  if (validcaltype(caltype)) then
    caltype_default = caltype
  else
    call messagenotify('W', subname, &
      & 'caltype=<%d> is invalid calender type.', &
      & i=(/caltype/))
  end if
  call endsub(subname, 'dc_date_types#caltype_default=<%d>', i=(/caltype_default/))
end subroutine dcdatetimesetcaltype