dccaldateeval.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	dccaldateevalymdhms1 (year, month, day, hour, min, sec, elapse_sec, cal, date, err)
	Evaluate date.
subroutine	dccaldateevalymdhms2 (year, month, day, hour, min, sec, elapse_time, units, cal, date, err)
subroutine	dccaldateevalid1 (init_date, elapse_sec, cal, date, err)
subroutine	dccaldateevalid2 (init_date, elapse_time, units, cal, date, err)
subroutine	dccaldateevalym2ym1 (year1, month1, day1, hour1, min1, sec1, elapse_sec, year2, month2, day2, hour2, min2, sec2, cal, err)
subroutine	dccaldateevalym2ym2 (year1, month1, day1, hour1, min1, sec1, elapse_time, units, year2, month2, day2, hour2, min2, sec2, cal, err)
real(dp) function	dccaldateevalsecofyear1 (elapse_sec, date, cal)
real(dp) function	dccaldateevaldayofyear1 (elapse_sec, date, cal)
real(dp) function	dccaldateevalsecofday1 (elapse_sec, date, cal)

Function/Subroutine Documentation

dccaldateevaldayofyear1()

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

Evaluate day of year

Evaluate day of 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

Day of year

Definition at line 1318 of file dccaldateeval.f90.

  use dc_calendar_types, only: dc_cal_date, dc_cal
  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
  real(DP), intent(in):: elapse_sec
  type(DC_CAL_DATE), intent(in), optional, target:: date
  type(DC_CAL), intent(in), optional, target:: cal
  real(DP):: result
 
  ! 作業変数
  ! Work variables
  !
  integer:: year, month, day, hour, min
  integer:: stat
  real(DP):: sec
  type(DC_CAL_DATE), pointer:: datep =>null()
  type(DC_CAL), pointer:: calp =>null()
 
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 = 0.0
  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 = date , cal = calp )  ! (in)
 
  ! 年初めからの通日を取得
  ! Day of year is inquire
  !
  stat = dccaldate_ym2d( year, month, day, calp, & ! (in)
    &                    result )                  ! (out)
  if ( stat /= 0 ) return
 

References 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:

dccaldateevalid1()

subroutine dccaldateevalid1	(	type(dc_cal_date), intent(in)	init_date,
		real(dp), intent(in)	elapse_sec,
		type(dc_cal), intent(in), optional, target	cal,
		type(dc_cal_date), intent(out), optional, target	date,
		logical, intent(out), optional	err )

Evaluate and set date from initial date object with elapsed seconds

Evaluate and set date.

If an optional argument date is omitted, the date setting is stored to a "dc_calendar_types#DC_CAL_DATE" variable that is saved in the "dc_calendar". When date is omitted in subsequent procedures, the internal date is used. If date is not omitted, the settings is stored to the date. In order to use the date setting, use the "dc_calendar_types#DC_CAL_DATE" variable to subsequent procedures.

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]	init_date	An object that stores information of date of origin
[in]	elapse_sec	Elapsed seconds from init_date
[in]	cal	An object that stores information of calendar
[out]	date	An object that stores information of date and time after elapsed time
[out]	err	Exception handling flag

Definition at line 478 of file dccaldateeval.f90.

 
  use dc_calendar_types, only: dc_cal, dc_cal_date
  use dc_calendar_internal, only: default_cal, default_cal_set, default_date, &
    & dccaldate_normalize
  use dc_calendar_generic, only: dccaldatecreate, dccaldatetochar, dccaltochar
  use dc_message, only: messagenotify
  use dc_trace, only: beginsub, endsub
  use dc_error, only: storeerror, dc_noerr, dc_enotinit, &
    & dc_einconsistcaldate, dc_ebaddate
  use dc_types, only: string, dp, token
  implicit none
  type(DC_CAL_DATE), intent(in):: init_date
  real(DP), intent(in):: elapse_sec
  type(DC_CAL), intent(in), optional, target:: cal
  type(DC_CAL_DATE), intent(out), optional, target:: date
  logical, intent(out), optional:: err
 
  ! 作業変数
  ! Work variables
  !
  integer:: wyear, wmonth, wday, whour, wmin
  real(DP):: wsec
  character(TOKEN):: wzone
  type(DC_CAL_DATE), pointer:: datep =>null()
  type(DC_CAL), pointer:: calp =>null()
  character(STRING):: e_date_str, e_cal_str
  integer:: stat
  character(STRING):: cause_c
  character(*), parameter:: subname = 'DCCalDateEvalID1'
continue
  call beginsub( subname )
  stat = dc_noerr
  cause_c = ''
 
  ! オブジェクトのポインタ割付
  ! 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
  !
!!$  if ( .not. datep % initialized ) then
!!$    stat = DC_ENOTINIT
!!$    cause_c = 'DC_CAL_DATE'
!!$    goto 999
!!$  end if
 
  if ( .not. calp % initialized ) then
    stat = dc_enotinit
    cause_c = 'DC_CAL'
    goto 999
  end if
 
  ! 各要素への値の参照
  ! Refer elements
  !
  wyear  = init_date % year
  wmonth = init_date % month
  wday   = init_date % day
  whour  = init_date % hour
  wmin   = init_date % min
  wsec   = init_date % sec
  wzone  = init_date % zone
 
  ! 経過時間(秒)の追加
  ! Add elapsed time (seconds)
  !
!!$  if ( elapse_sec < 0.0_DP ) then
!!$    stat = DC_ENEGATIVE
!!$    cause_c = 'elapse_sec'
!!$    goto 999
!!$  end if
 
  wsec = wsec + elapse_sec
 
  ! 日時の正規化
  ! Normalize date and time
  !
  stat = dccaldate_normalize( wyear, wmonth, wday, whour, wmin, wsec, & ! (inout)
    &                         calp )                                    ! (in)
  if ( stat == dc_einconsistcaldate ) then
    e_cal_str = dccaltochar( calp )
    e_date_str = dccaldatetochar( wyear, wmonth, wday, whour, wmin, wsec, zone = "" )
    call messagenotify('W', subname, 'cal=<%c> and date=<%c> are inconsistency', &
      & c1 = trim(e_cal_str), c2 = trim(e_date_str) )
    goto 999
  end if
 
  ! オブジェクトの作成
  ! Create an object
  !
  call dccaldatecreate( &
    & wyear, wmonth, wday, whour, wmin, wsec, & ! (in)
    & datep, zone = wzone, err = err )          ! (out) optional
  if ( present(err) ) then
    if ( err ) then
      stat = dc_ebaddate
      goto 999
    end if
  end if
 
  ! 終了処理, 例外処理
  ! Termination and Exception handling
  !
999 continue
  nullify( calp, datep )
  call storeerror( stat, subname, err, cause_c )
  call endsub( subname )

References dc_trace::beginsub(), dc_error::dc_ebaddate, dc_error::dc_einconsistcaldate, dc_error::dc_enotinit, dc_error::dc_noerr, dc_calendar_internal::dccaldate_normalize(), dc_calendar_internal::default_cal, dc_calendar_internal::default_cal_set(), dc_calendar_internal::default_date, dc_types::dp, dc_trace::endsub(), dc_error::storeerror(), dc_types::string, and dc_types::token.

Here is the call graph for this function:

dccaldateevalid2()

subroutine dccaldateevalid2	(	type(dc_cal_date), intent(in)	init_date,
		real(dp), intent(in)	elapse_time,
		character(*), intent(in)	units,
		type(dc_cal), intent(in), optional, target	cal,
		type(dc_cal_date), intent(out), optional, target	date,
		logical, intent(out), optional	err )

Evaluate and set date from initial date object with elapsed time and units

Evaluate and set date.

If an optional argument date is omitted, the date setting is stored to a "dc_calendar_types#DC_CAL_DATE" variable that is saved in the "dc_calendar". When date is omitted in subsequent procedures, the internal date is used. If date is not omitted, the settings is stored to the date. In order to use the date setting, use the "dc_calendar_types#DC_CAL_DATE" variable to subsequent procedures.

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

Parameters

[in]	init_date	An object that stores information of date of origin
[in]	elapse_time	Elapsed time from init_date. Unit is specified as units.
[in]	units	Unit of elapse_time
[in]	cal	An object that stores information of calendar
[out]	date	An object that stores information of date and time after elapsed time
[out]	err	Exception handling flag

Definition at line 655 of file dccaldateeval.f90.

  use dc_calendar_types, only: dc_cal, dc_cal_date, &
    & unit_symbol_day, unit_symbol_hour, unit_symbol_min, unit_symbol_sec
  use dc_calendar_internal, only: default_cal, default_cal_set, default_date, &
    & dccaldate_normalize, dccaldate_str2usym
  use dc_calendar_generic, only: dccaldatecreate, dccaldatetochar, dccaltochar
  use dc_message, only: messagenotify
  use dc_trace, only: beginsub, endsub
  use dc_error, only: storeerror, dc_noerr, dc_enotinit, &
    & dc_einconsistcaldate, dc_ebaddate, dc_ebadunit
  use dc_types, only: string, dp, token
  implicit none
  type(DC_CAL_DATE), intent(in):: init_date
  real(DP), intent(in):: elapse_time
  character(*), intent(in):: units
  type(DC_CAL), intent(in), optional, target:: cal
  type(DC_CAL_DATE), intent(out), optional, target:: date
  logical, intent(out), optional:: err
 
  ! 作業変数
  ! Work variables
  !
  integer:: wyear, wmonth, wday, whour, wmin
  real(DP):: wsec
  character(TOKEN):: wzone
  type(DC_CAL_DATE), pointer:: datep =>null()
  type(DC_CAL), pointer:: calp =>null()
  character(STRING):: e_date_str, e_cal_str
  integer:: tusym
  integer:: stat
  character(STRING):: cause_c
  character(*), parameter:: subname = 'DCCalDateEvalID2'
continue
  call beginsub( subname )
  stat = dc_noerr
  cause_c = ''
 
  ! オブジェクトのポインタ割付
  ! 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
  !
!!$  if ( .not. datep % initialized ) then
!!$    stat = DC_ENOTINIT
!!$    cause_c = 'DC_CAL_DATE'
!!$    goto 999
!!$  end if
 
  if ( .not. calp % initialized ) then
    stat = dc_enotinit
    cause_c = 'DC_CAL'
    goto 999
  end if
 
  ! 各要素への値の参照
  ! Refer elements
  !
  wyear  = init_date % year
  wmonth = init_date % month
  wday   = init_date % day
  whour  = init_date % hour
  wmin   = init_date % min
  wsec   = init_date % sec
  wzone  = init_date % zone
 
  ! 経過時間(秒)の追加
  ! Add elapsed time (seconds)
  !
!!$  if ( elapse_time < 0.0_DP ) then
!!$    stat = DC_ENEGATIVE
!!$    cause_c = 'elapse_time'
!!$    goto 999
!!$  end if
 
  tusym = dccaldate_str2usym(units)
  select case(tusym)
  case(unit_symbol_day)
    wsec = wsec + elapse_time * calp % hour_in_day &
      &                       * calp % min_in_hour &
      &                       * calp % sec_in_min
  case(unit_symbol_hour)
    wsec = wsec + elapse_time * calp % min_in_hour &
      &                       * calp % sec_in_min
  case(unit_symbol_min)
    wsec = wsec + elapse_time * calp % sec_in_min
  case(unit_symbol_sec)
    wsec = wsec + elapse_time
  case default
    cause_c = units
    call messagenotify('W', subname, 'units=<%c> is invalid. (ONLY day,hrs,min,sec are valid)', &
      & c1 = trim(units) )
    stat = dc_ebadunit
    goto 999
  end select
 
  ! 日時の正規化
  ! Normalize date and time
  !
  stat = dccaldate_normalize( wyear, wmonth, wday, whour, wmin, wsec, & ! (inout)
    &                         calp )                                    ! (in)
  if ( stat == dc_einconsistcaldate ) then
    e_cal_str = dccaltochar( calp )
    e_date_str = dccaldatetochar( wyear, wmonth, wday, whour, wmin, wsec, zone = "" )
    call messagenotify('W', subname, 'cal=<%c> and date=<%c> are inconsistency', &
      & c1 = trim(e_cal_str), c2 = trim(e_date_str) )
    goto 999
  end if
 
  ! オブジェクトの作成
  ! Create an object
  !
  call dccaldatecreate( &
    & wyear, wmonth, wday, whour, wmin, wsec, & ! (in)
    & datep, zone = wzone, err = err )          ! (out) optional
  if ( present(err) ) then
    if ( err ) then
      stat = dc_ebaddate
      goto 999
    end if
  end if
 
  ! 終了処理, 例外処理
  ! Termination and Exception handling
  !
999 continue
  nullify( calp, datep )
  call storeerror( stat, subname, err, cause_c )
  call endsub( subname )

References dc_trace::beginsub(), dc_error::dc_ebaddate, dc_error::dc_ebadunit, dc_error::dc_einconsistcaldate, dc_error::dc_enotinit, dc_error::dc_noerr, dc_calendar_internal::dccaldate_normalize(), dc_calendar_internal::dccaldate_str2usym(), dc_calendar_internal::default_cal, dc_calendar_internal::default_cal_set(), dc_calendar_internal::default_date, dc_types::dp, dc_trace::endsub(), dc_error::storeerror(), dc_types::string, dc_types::token, dc_calendar_types::unit_symbol_day, dc_calendar_types::unit_symbol_hour, dc_calendar_types::unit_symbol_min, and dc_calendar_types::unit_symbol_sec.

Here is the call graph for this function:

dccaldateevalsecofday1()

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

Evaluate second of day

Evaluate second of day.

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

Second of day

Definition at line 1423 of file dccaldateeval.f90.

  use dc_calendar_types, only: dc_cal_date, dc_cal
  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
  real(DP), intent(in):: elapse_sec
  type(DC_CAL_DATE), intent(in), optional, target:: date
  type(DC_CAL), intent(in), optional, target:: cal
  real(DP):: result
 
  ! 作業変数
  ! 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 = 0.0
  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 = date , cal = calp )  ! (in)
 
  ! 通秒へ変換
  ! Convert into sec of year
  !
  result = &
      &                   hour * calp % min_in_hour &
      &                        * calp % sec_in_min  &
      &                 + min  * calp % sec_in_min  &
      &                 + sec
 

References 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:

dccaldateevalsecofyear1()

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

Evaluate second of year

Evaluate second of 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

Second of year

Definition at line 1202 of file dccaldateeval.f90.

  use dc_calendar_types, only: dc_cal_date, dc_cal
  use dc_calendar_internal, only: default_cal, default_cal_set, default_date, &
    & dccaldate_normalize, dccaldate_ym2d
  use dc_calendar_generic, only: dccaldateinquire, dccaldateevaldayofyear
  use dc_types, only: dp
  implicit none
  real(DP), intent(in):: elapse_sec
  type(DC_CAL_DATE), intent(in), optional, target:: date
  type(DC_CAL), intent(in), optional, target:: cal
  real(DP):: result
 
  ! 作業変数
  ! Work variables
  !
  real(DP):: day_of_year
  type(DC_CAL_DATE), pointer:: datep =>null()
  type(DC_CAL), pointer:: calp =>null()
  integer:: year, month, day, hour, min
  integer:: stat
  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 = 0.0
  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 = date , cal = calp )  ! (in)
 
  ! 年初めからの通日を取得
  ! Day of year is inquire
  !
  stat = dccaldate_ym2d( year, month, day, calp, & ! (in)
    &                    day_of_year )             ! (out)
  if ( stat /= 0 ) return
 
  ! 通秒へ変換
  ! Convert into sec of year
  !
  result = ( day_of_year - 1 ) * calp % hour_in_day &
      &                        * calp % min_in_hour &
      &                        * calp % sec_in_min  &
      &                 + hour * calp % min_in_hour &
      &                        * calp % sec_in_min  &
      &                 + min  * calp % sec_in_min  &
      &                 + sec
 

References 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:

dccaldateevalym2ym1()

subroutine dccaldateevalym2ym1	(	integer, intent(in)	year1,
		integer, intent(in)	month1,
		integer, intent(in)	day1,
		integer, intent(in)	hour1,
		integer, intent(in)	min1,
		real(dp), intent(in)	sec1,
		real(dp), intent(in)	elapse_sec,
		integer, intent(out)	year2,
		integer, intent(out)	month2,
		integer, intent(out)	day2,
		integer, intent(out)	hour2,
		integer, intent(out)	min2,
		real(dp), intent(out)	sec2,
		type(dc_cal), intent(in), optional, target	cal,
		logical, intent(out), optional	err )

Evaluate date and return as individual variables with elapsed seconds

Evaluate and set date.

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]	year1	Year of origin
[in]	month1	Month of origin
[in]	day1	Day of origin
[in]	hour1	Hour of origin
[in]	min1	Minute of origin
[in]	sec1	Second of origin
[in]	elapse_sec	Elapsed seconds from year1 – sec1
[out]	year2	Year after elapsed time
[out]	month2	Month after elapsed time
[out]	day2	Day after elapsed time
[out]	hour2	Hour after elapsed time
[out]	min2	Minute after elapsed time
[out]	sec2	Second after elapsed time
[in]	cal	An object that stores information of calendar
[out]	err	Exception handling flag

Definition at line 854 of file dccaldateeval.f90.

  use dc_calendar_types, only: dc_cal, dc_cal_date
  use dc_calendar_internal, only: default_cal, default_cal_set, &
    & dccaldate_normalize
  use dc_calendar_generic, only: dccaldatecreate, dccaldatetochar, dccaltochar
  use dc_message, only: messagenotify
  use dc_trace, only: beginsub, endsub
  use dc_error, only: storeerror, dc_noerr, dc_enotinit, &
    & dc_einconsistcaldate
  use dc_types, only: string, dp
  implicit none
  integer, intent(in):: year1
  integer, intent(in):: month1
  integer, intent(in):: day1
  integer, intent(in):: hour1
  integer, intent(in):: min1
  real(DP), intent(in):: sec1
  real(DP), intent(in):: elapse_sec
  integer, intent(out):: year2
  integer, intent(out):: month2
  integer, intent(out):: day2
  integer, intent(out):: hour2
  integer, intent(out):: min2
  real(DP), intent(out):: sec2
  type(DC_CAL), intent(in), optional, target:: cal
  logical, intent(out), optional:: err
 
  ! 作業変数
  ! Work variables
  !
  type(DC_CAL), pointer:: calp =>null()
  character(STRING):: e_date_str, e_cal_str
  integer:: stat
  character(STRING):: cause_c
  character(*), parameter:: subname = 'DCCalDateEvalYM2YM1'
continue
  call beginsub( subname )
  stat = dc_noerr
  cause_c = ''
 
  ! オブジェクトのポインタ割付
  ! Associate pointer of an object
  !
  if ( present( cal ) ) then
    calp => cal
  else
    calp => default_cal
    if ( .not. calp % initialized ) call default_cal_set
  end if
 
  ! 初期設定のチェック
  ! Check initialization
  !
!!$  if ( .not. datep % initialized ) then
!!$    stat = DC_ENOTINIT
!!$    cause_c = 'DC_CAL_DATE'
!!$    goto 999
!!$  end if
 
  if ( .not. calp % initialized ) then
    stat = dc_enotinit
    cause_c = 'DC_CAL'
    goto 999
  end if
 
  ! 各要素への値の参照
  ! Refer elements
  !
  year2  = year1
  month2 = month1
  day2   = day1
  hour2  = hour1
  min2   = min1
  sec2   = sec1
 
  ! 経過時間(秒)の追加
  ! Add elapsed time (seconds)
  !
!!$  if ( elapse_sec < 0.0_DP ) then
!!$    stat = DC_ENEGATIVE
!!$    cause_c = 'elapse_sec'
!!$    goto 999
!!$  end if
 
  sec2 = sec2 + elapse_sec
 
  ! 日時の正規化
  ! Normalize date and time
  !
  stat = dccaldate_normalize( year2, month2, day2, hour2, min2, sec2, & ! (inout)
    &                         calp )                                    ! (in)
  if ( stat == dc_einconsistcaldate ) then
    e_cal_str = dccaltochar( calp )
    e_date_str = dccaldatetochar( year2, month2, day2, hour2, min2, sec2, zone = "" )
    call messagenotify('W', subname, 'cal=<%c> and date=<%c> are inconsistency', &
      & c1 = trim(e_cal_str), c2 = trim(e_date_str) )
    goto 999
  end if
 
  ! 終了処理, 例外処理
  ! Termination and Exception handling
  !
999 continue
  nullify( calp )
  call storeerror( stat, subname, err, cause_c )
  call endsub( subname )

References dc_trace::beginsub(), dc_error::dc_einconsistcaldate, dc_error::dc_enotinit, dc_error::dc_noerr, dc_calendar_internal::dccaldate_normalize(), dc_calendar_internal::default_cal, dc_calendar_internal::default_cal_set(), dc_types::dp, dc_trace::endsub(), dc_error::storeerror(), and dc_types::string.

Here is the call graph for this function:

dccaldateevalym2ym2()

subroutine dccaldateevalym2ym2	(	integer, intent(in)	year1,
		integer, intent(in)	month1,
		integer, intent(in)	day1,
		integer, intent(in)	hour1,
		integer, intent(in)	min1,
		real(dp), intent(in)	sec1,
		real(dp), intent(in)	elapse_time,
		character(*), intent(in)	units,
		integer, intent(out)	year2,
		integer, intent(out)	month2,
		integer, intent(out)	day2,
		integer, intent(out)	hour2,
		integer, intent(out)	min2,
		real(dp), intent(out)	sec2,
		type(dc_cal), intent(in), optional, target	cal,
		logical, intent(out), optional	err )

Evaluate date and return as individual variables with elapsed time and units

Evaluate and set date.

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

Parameters

[in]	year1	Year of origin
[in]	month1	Month of origin
[in]	day1	Day of origin
[in]	hour1	Hour of origin
[in]	min1	Minute of origin
[in]	sec1	Second of origin
[in]	elapse_time	Elapsed time from year1 – sec1. Unit is specified as units.
[in]	units	Unit of elapse_time
[out]	year2	Year after elapsed time
[out]	month2	Month after elapsed time
[out]	day2	Day after elapsed time
[out]	hour2	Hour after elapsed time
[out]	min2	Minute after elapsed time
[out]	sec2	Second after elapsed time
[in]	cal	An object that stores information of calendar
[out]	err	Exception handling flag

Definition at line 1023 of file dccaldateeval.f90.

  use dc_calendar_types, only: dc_cal, dc_cal_date, &
    & unit_symbol_day, unit_symbol_hour, unit_symbol_min, unit_symbol_sec
  use dc_calendar_internal, only: default_cal, default_cal_set, &
    & dccaldate_normalize, dccaldate_str2usym
  use dc_calendar_generic, only: dccaldatecreate, dccaldatetochar, dccaltochar
  use dc_message, only: messagenotify
  use dc_trace, only: beginsub, endsub
  use dc_error, only: storeerror, dc_noerr, dc_enotinit, &
    & dc_einconsistcaldate, dc_ebadunit
  use dc_types, only: string, dp
  implicit none
 
  integer, intent(in):: year1
  integer, intent(in):: month1
  integer, intent(in):: day1
  integer, intent(in):: hour1
  integer, intent(in):: min1
  real(DP), intent(in):: sec1
  real(DP), intent(in):: elapse_time
  character(*), intent(in):: units
  integer, intent(out):: year2
  integer, intent(out):: month2
  integer, intent(out):: day2
  integer, intent(out):: hour2
  integer, intent(out):: min2
  real(DP), intent(out):: sec2
  type(DC_CAL), intent(in), optional, target:: cal
  logical, intent(out), optional:: err
 
  ! 作業変数
  ! Work variables
  !
  type(DC_CAL), pointer:: calp =>null()
  character(STRING):: e_date_str, e_cal_str
  integer:: tusym
  integer:: stat
  character(STRING):: cause_c
  character(*), parameter:: subname = 'DCCalDateEvalYM2YM1'
continue
  call beginsub( subname )
  stat = dc_noerr
  cause_c = ''
 
  ! オブジェクトのポインタ割付
  ! Associate pointer of an object
  !
  if ( present( cal ) ) then
    calp => cal
  else
    calp => default_cal
    if ( .not. calp % initialized ) call default_cal_set
  end if
 
  ! 初期設定のチェック
  ! Check initialization
  !
!!$  if ( .not. datep % initialized ) then
!!$    stat = DC_ENOTINIT
!!$    cause_c = 'DC_CAL_DATE'
!!$    goto 999
!!$  end if
 
  if ( .not. calp % initialized ) then
    stat = dc_enotinit
    cause_c = 'DC_CAL'
    goto 999
  end if
 
  ! 各要素への値の参照
  ! Refer elements
  !
  year2  = year1
  month2 = month1
  day2   = day1
  hour2  = hour1
  min2   = min1
  sec2   = sec1
 
  ! 経過時間(秒)の追加
  ! Add elapsed time (seconds)
  !
!!$  if ( elapse_time < 0.0_DP ) then
!!$    stat = DC_ENEGATIVE
!!$    cause_c = 'elapse_time'
!!$    goto 999
!!$  end if
 
  tusym = dccaldate_str2usym(units)
  select case(tusym)
  case(unit_symbol_day)
    sec2 = sec2 + elapse_time * calp % hour_in_day &
      &                       * calp % min_in_hour &
      &                       * calp % sec_in_min
  case(unit_symbol_hour)
    sec2 = sec2 + elapse_time * calp % min_in_hour &
      &                       * calp % sec_in_min
  case(unit_symbol_min)
    sec2 = sec2 + elapse_time * calp % sec_in_min
  case(unit_symbol_sec)
    sec2 = sec2 + elapse_time
  case default
    cause_c = units
    call messagenotify('W', subname, 'units=<%c> is invalid. (ONLY day,hour,min,sec are valid)', &
      & c1 = trim(units) )
    stat = dc_ebadunit
    goto 999
  end select
 
  ! 日時の正規化
  ! Normalize date and time
  !
  stat = dccaldate_normalize( year2, month2, day2, hour2, min2, sec2, & ! (inout)
    &                         calp )                                    ! (in)
  if ( stat == dc_einconsistcaldate ) then
    e_cal_str = dccaltochar( calp )
    e_date_str = dccaldatetochar( year2, month2, day2, hour2, min2, sec2, zone = "" )
    call messagenotify('W', subname, 'cal=<%c> and date=<%c> are inconsistency', &
      & c1 = trim(e_cal_str), c2 = trim(e_date_str) )
    goto 999
  end if
 
  ! 終了処理, 例外処理
  ! Termination and Exception handling
  !
999 continue
  nullify( calp )
  call storeerror( stat, subname, err, cause_c )
  call endsub( subname )

References dc_trace::beginsub(), dc_error::dc_ebadunit, dc_error::dc_einconsistcaldate, dc_error::dc_enotinit, dc_error::dc_noerr, dc_calendar_internal::dccaldate_normalize(), dc_calendar_internal::dccaldate_str2usym(), dc_calendar_internal::default_cal, dc_calendar_internal::default_cal_set(), dc_types::dp, dc_trace::endsub(), dc_error::storeerror(), dc_types::string, dc_calendar_types::unit_symbol_day, dc_calendar_types::unit_symbol_hour, dc_calendar_types::unit_symbol_min, and dc_calendar_types::unit_symbol_sec.

Here is the call graph for this function:

dccaldateevalymdhms1()

subroutine dccaldateevalymdhms1	(	integer, intent(in)	year,
		integer, intent(in)	month,
		integer, intent(in)	day,
		integer, intent(in)	hour,
		integer, intent(in)	min,
		real(dp), intent(in)	sec,
		real(dp), intent(in)	elapse_sec,
		type(dc_cal), intent(in), optional, target	cal,
		type(dc_cal_date), intent(out), optional, target	date,
		logical, intent(out), optional	err )

Evaluate date.

Author

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.

Evaluate and set date with elapsed seconds

Evaluate and set date.

If an optional argument date is omitted, the date setting is stored to a "dc_calendar_types#DC_CAL_DATE" variable that is saved in the "dc_calendar". When date is omitted in subsequent procedures, the internal date is used. If date is not omitted, the settings is stored to the date. In order to use the date setting, use the "dc_calendar_types#DC_CAL_DATE" variable to subsequent procedures.

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]	year	Year of origin
[in]	month	Month of origin
[in]	day	Day of origin
[in]	hour	Hour of origin
[in]	min	Minute of origin
[in]	sec	Second of origin
[in]	elapse_sec	Elapsed seconds from year – sec
[in]	cal	An object that stores information of calendar
[out]	date	An object that stores information of date and time after elapsed time
[out]	err	Exception handling flag

Definition at line 86 of file dccaldateeval.f90.

 
  use dc_calendar_types, only: dc_cal, dc_cal_date
  use dc_calendar_internal, only: default_cal, default_cal_set, default_date, &
    & dccaldate_normalize
  use dc_calendar_generic, only: dccaldatecreate, dccaldatetochar, dccaltochar
  use dc_message, only: messagenotify
  use dc_trace, only: beginsub, endsub
  use dc_error, only: storeerror, dc_noerr, dc_enotinit, &
    & dc_einconsistcaldate, dc_ebaddate
  use dc_types, only: string, dp
  implicit none
  integer, intent(in):: year
  integer, intent(in):: month
  integer, intent(in):: day
  integer, intent(in):: hour
  integer, intent(in):: min
  real(DP), intent(in):: sec
  real(DP), intent(in):: elapse_sec
  type(DC_CAL), intent(in), optional, target:: cal
  type(DC_CAL_DATE), intent(out), optional, target:: date
  logical, intent(out), optional:: err
 
  ! 作業変数
  ! Work variables
  !
  integer:: wyear, wmonth, wday, whour, wmin
  real(DP):: wsec
  type(DC_CAL_DATE), pointer:: datep =>null()
  type(DC_CAL), pointer:: calp =>null()
  character(STRING):: e_date_str, e_cal_str
  integer:: stat
  character(STRING):: cause_c
  character(*), parameter:: subname = 'DCCalDateEvalYMDHMS1'
continue
  call beginsub( subname )
  stat = dc_noerr
  cause_c = ''
 
  ! オブジェクトのポインタ割付
  ! 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
  !
!!$  if ( .not. datep % initialized ) then
!!$    stat = DC_ENOTINIT
!!$    cause_c = 'DC_CAL_DATE'
!!$    goto 999
!!$  end if
 
  if ( .not. calp % initialized ) then
    stat = dc_enotinit
    cause_c = 'DC_CAL'
    goto 999
  end if
 
  ! 各要素への値の参照
  ! Refer elements
  !
  wyear  = year
  wmonth = month
  wday   = day
  whour  = hour
  wmin   = min
  wsec   = sec
 
  ! 経過時間(秒)の追加
  ! Add elapsed time (seconds)
  !
!!$  if ( elapse_sec < 0.0_DP ) then
!!$    stat = DC_ENEGATIVE
!!$    cause_c = 'elapse_sec'
!!$    goto 999
!!$  end if
 
  wsec = wsec + elapse_sec
 
  ! 日時の正規化
  ! Normalize date and time
  !
  stat = dccaldate_normalize( wyear, wmonth, wday, whour, wmin, wsec, & ! (inout)
    &                         calp )                                    ! (in)
  if ( stat == dc_einconsistcaldate ) then
    e_cal_str = dccaltochar( calp )
    e_date_str = dccaldatetochar( wyear, wmonth, wday, whour, wmin, wsec, zone = "" )
    call messagenotify('W', subname, 'cal=<%c> and date=<%c> are inconsistency', &
      & c1 = trim(e_cal_str), c2 = trim(e_date_str) )
    goto 999
  end if
 
  ! オブジェクトの作成
  ! Create an object
  !
  call dccaldatecreate( &
    & wyear, wmonth, wday, whour, wmin, wsec, & ! (in)
    & datep, zone = "", err = err )             ! (out) optional
  if ( present(err) ) then
    if ( err ) then
      stat = dc_ebaddate
      goto 999
    end if
  end if
 
  ! 終了処理, 例外処理
  ! Termination and Exception handling
  !
999 continue
  nullify( calp, datep )
  call storeerror( stat, subname, err, cause_c )
  call endsub( subname )

References dc_trace::beginsub(), dc_error::dc_ebaddate, dc_error::dc_einconsistcaldate, dc_error::dc_enotinit, dc_error::dc_noerr, dc_calendar_internal::dccaldate_normalize(), dc_calendar_internal::default_cal, dc_calendar_internal::default_cal_set(), dc_calendar_internal::default_date, dc_types::dp, dc_trace::endsub(), dc_error::storeerror(), and dc_types::string.

Here is the call graph for this function:

dccaldateevalymdhms2()

subroutine dccaldateevalymdhms2	(	integer, intent(in)	year,
		integer, intent(in)	month,
		integer, intent(in)	day,
		integer, intent(in)	hour,
		integer, intent(in)	min,
		real(dp), intent(in)	sec,
		real(dp), intent(in)	elapse_time,
		character(*), intent(in)	units,
		type(dc_cal), intent(in), optional, target	cal,
		type(dc_cal_date), intent(out), optional, target	date,
		logical, intent(out), optional	err )

Evaluate and set date with elapsed time and units

Evaluate and set date.

If an optional argument date is omitted, the date setting is stored to a "dc_calendar_types#DC_CAL_DATE" variable that is saved in the "dc_calendar". When date is omitted in subsequent procedures, the internal date is used. If date is not omitted, the settings is stored to the date. In order to use the date setting, use the "dc_calendar_types#DC_CAL_DATE" variable to subsequent procedures.

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

Parameters

[in]	year	Year of origin
[in]	month	Month of origin
[in]	day	Day of origin
[in]	hour	Hour of origin
[in]	min	Minute of origin
[in]	sec	Second of origin
[in]	elapse_time	Elapsed time from year – sec. Unit is specified as units.
[in]	units	Unit of elapse_time
[in]	cal	An object that stores information of calendar
[out]	date	An object that stores information of date and time after elapsed time
[out]	err	Exception handling flag

Definition at line 277 of file dccaldateeval.f90.

 
  use dc_calendar_types, only: dc_cal, dc_cal_date, &
    & unit_symbol_day, unit_symbol_hour, unit_symbol_min, unit_symbol_sec
  use dc_calendar_internal, only: default_cal, default_cal_set, default_date, &
    & dccaldate_normalize, dccaldate_str2usym
  use dc_calendar_generic, only: dccaldatecreate, dccaldatetochar, dccaltochar
  use dc_message, only: messagenotify
  use dc_trace, only: beginsub, endsub
  use dc_error, only: storeerror, dc_noerr, dc_enotinit, &
    & dc_einconsistcaldate, dc_ebaddate, dc_ebadunit
  use dc_types, only: string, dp
  implicit none
  integer, intent(in):: year
  integer, intent(in):: month
  integer, intent(in):: day
  integer, intent(in):: hour
  integer, intent(in):: min
  real(DP), intent(in):: sec
  real(DP), intent(in):: elapse_time
  character(*), intent(in):: units
  type(DC_CAL), intent(in), optional, target:: cal
  type(DC_CAL_DATE), intent(out), optional, target:: date
  logical, intent(out), optional:: err
 
  ! 作業変数
  ! Work variables
  !
  integer:: wyear, wmonth, wday, whour, wmin
  real(DP):: wsec
  type(DC_CAL_DATE), pointer:: datep =>null()
  type(DC_CAL), pointer:: calp =>null()
  character(STRING):: e_date_str, e_cal_str
  integer:: tusym
  integer:: stat
  character(STRING):: cause_c
  character(*), parameter:: subname = 'DCCalDateEvalYMDHMS2'
continue
  call beginsub( subname )
  stat = dc_noerr
  cause_c = ''
 
  ! オブジェクトのポインタ割付
  ! 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
  !
!!$  if ( .not. datep % initialized ) then
!!$    stat = DC_ENOTINIT
!!$    cause_c = 'DC_CAL_DATE'
!!$    goto 999
!!$  end if
 
  if ( .not. calp % initialized ) then
    stat = dc_enotinit
    cause_c = 'DC_CAL'
    goto 999
  end if
 
  ! 各要素への値の参照
  ! Refer elements
  !
  wyear  = year
  wmonth = month
  wday   = day
  whour  = hour
  wmin   = min
  wsec   = sec
 
  ! 経過時間(秒)の追加
  ! Add elapsed time (seconds)
  !
!!$  if ( elapse_time < 0.0_DP ) then
!!$    stat = DC_ENEGATIVE
!!$    cause_c = 'elapse_time'
!!$    goto 999
!!$  end if
 
  tusym = dccaldate_str2usym(units)
  select case(tusym)
  case(unit_symbol_day)
    wsec = wsec + elapse_time * calp % hour_in_day &
      &                       * calp % min_in_hour &
      &                       * calp % sec_in_min
  case(unit_symbol_hour)
    wsec = wsec + elapse_time * calp % min_in_hour &
      &                       * calp % sec_in_min
  case(unit_symbol_min)
    wsec = wsec + elapse_time * calp % sec_in_min
  case(unit_symbol_sec)
    wsec = wsec + elapse_time
  case default
    cause_c = units
    call messagenotify('W', subname, 'units=<%c> is invalid. (ONLY day,hrs,min,sec are valid)', &
      & c1 = trim(units) )
    stat = dc_ebadunit
    goto 999
  end select
 
  ! 日時の正規化
  ! Normalize date and time
  !
  stat = dccaldate_normalize( wyear, wmonth, wday, whour, wmin, wsec, & ! (inout)
    &                         calp )                                    ! (in)
  if ( stat == dc_einconsistcaldate ) then
    e_cal_str = dccaltochar( calp )
    e_date_str = dccaldatetochar( wyear, wmonth, wday, whour, wmin, wsec, zone = "" )
    call messagenotify('W', subname, 'cal=<%c> and date=<%c> are inconsistency', &
      & c1 = trim(e_cal_str), c2 = trim(e_date_str) )
    goto 999
  end if
 
  ! オブジェクトの作成
  ! Create an object
  !
  call dccaldatecreate( &
    & wyear, wmonth, wday, whour, wmin, wsec, & ! (in)
    & datep, zone = "", err = err )             ! (out) optional
  if ( present(err) ) then
    if ( err ) then
      stat = dc_ebaddate
      goto 999
    end if
  end if
 
  ! 終了処理, 例外処理
  ! Termination and Exception handling
  !
999 continue
  nullify( calp, datep )
  call storeerror( stat, subname, err, cause_c )
  call endsub( subname )

References dc_trace::beginsub(), dc_error::dc_ebaddate, dc_error::dc_ebadunit, dc_error::dc_einconsistcaldate, dc_error::dc_enotinit, dc_error::dc_noerr, dc_calendar_internal::dccaldate_normalize(), dc_calendar_internal::dccaldate_str2usym(), dc_calendar_internal::default_cal, dc_calendar_internal::default_cal_set(), dc_calendar_internal::default_date, dc_types::dp, dc_trace::endsub(), dc_error::storeerror(), dc_types::string, dc_calendar_types::unit_symbol_day, dc_calendar_types::unit_symbol_hour, dc_calendar_types::unit_symbol_min, and dc_calendar_types::unit_symbol_sec.

Here is the call graph for this function: