dccaldatechkleapyear.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
logical function	dccaldatechkleapyear1 (elapse_sec, date, cal)
	Judge whether it is a leap year.

Function/Subroutine Documentation

dccaldatechkleapyear1()

logical function dccaldatechkleapyear1	(	real(dp), intent(in)	elapse_sec,
		type(dc_cal_date), intent(in), optional, target	date,
		type(dc_cal), intent(in), optional, target	cal )

Judge whether it is a leap year.

Author

Youhei SASAKI, Yasuhiro MORIKAWA

Copyright

Copyright (C) GFD Dennou Club, 2009-2026. All rights reserved.
License is BSD-2-Clause. see COPYRIGHT in detail

Procedures described in this file are provided from "dc_calendar" module.

Judge whether the specified date is in a leap year

Judge whether it is a leap year.

If an optional argument date is omitted, information of date that is stored in the "dc_calendar" is used as date of origin. If date is not omitted, information of the variable is used as date of origin.

If an optional argument cal is omitted, information of calendar that is stored in the "dc_calendar" is used for conversion of elapsed seconds elapse_sec into year-month-day etc. If cal is not omitted, information of the variable is used.

Parameters

[in]	elapse_sec	Elapsed seconds from date
[in]	date	An object that stores information of date of origin
[in]	cal	An object that stores information of calendar

Returns

.true. if leap year, .false. otherwise

Definition at line 64 of file dccaldatechkleapyear.f90.

 
  use dc_calendar_types, only: dc_cal_date, dc_cal, &
    & cal_julian, cal_gregorian
  use dc_calendar_internal, only: default_cal, default_cal_set, default_date, &
    & dccaldate_normalize, dccaldate_ym2d
  use dc_calendar_generic, only: dccaldateinquire
  use dc_types, only: dp
  implicit none
  logical:: result
  real(DP), intent(in):: elapse_sec
  type(DC_CAL_DATE), intent(in), optional, target:: date
  type(DC_CAL), intent(in), optional, target:: cal
 
  ! 作業変数
  ! Work variables
  !
  type(DC_CAL_DATE), pointer:: datep =>null()
  type(DC_CAL), pointer:: calp =>null()
  integer:: year, month, day, hour, min
  real(DP):: sec
continue
 
  ! オブジェクトのポインタ割付
  ! Associate pointer of an object
  !
  if ( present( date ) ) then
    datep => date
  else
    datep => default_date
  end if
 
  if ( present( cal ) ) then
    calp => cal
  else
    calp => default_cal
    if ( .not. calp % initialized ) call default_cal_set
  end if
 
  ! 初期設定のチェック
  ! Check initialization
  !
  result = .false.
  if ( .not. datep % initialized ) return
  if ( .not. calp % initialized ) return
 
  ! 経過時間を与えた場合の日時を取得
  ! Inquire date and time when elapse time is given
  !
  call dccaldateinquire( year, month, day, hour, min, sec, & ! (out)
    & elapse_sec = elapse_sec, date = datep , cal = calp )   ! (in)
 
  ! 閏年の判定
  ! Judge leap year
  !
  select case( calp % cal_type )
  case( cal_julian )
    if ( mod( year, 4 ) == 0 ) then
      result = .true.
    else
      result = .false.
    end if
 
  case( cal_gregorian )
    if ( mod( year, 400 ) == 0 ) then
      result = .true.
    elseif ( mod( year, 100 ) == 0 ) then
      result = .false.
    elseif ( mod( year, 4 ) == 0 ) then
      result = .true.
    else
      result = .false.
    end if
 
  case default
    result = .false.
  end select
 

References dc_calendar_types::cal_gregorian, dc_calendar_types::cal_julian, dc_calendar_internal::dccaldate_normalize(), dc_calendar_internal::dccaldate_ym2d(), dc_calendar_internal::default_cal, dc_calendar_internal::default_cal_set(), dc_calendar_internal::default_date, and dc_types::dp.

Here is the call graph for this function: