dccalconverttoday.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
real(dp) function	dccalconverttoday1 (in_time, in_unit, cal)
	時間を日の単位に変換
real(dp) function	dccalconverttoday2 (in_time, in_unit, cal)

Function/Subroutine Documentation

dccalconverttoday1()

real(dp) function dccalconverttoday1	(	real(dp), intent(in)	in_time,
		character(*), intent(in)	in_unit,
		type(dc_cal), intent(in), optional, target	cal
	)

時間を日の単位に変換

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

Definition at line 72 of file dccalconverttoday.f90.

 
  use dc_calendar_internal, only: default_cal, default_cal_set, &
    & dccaldate_str2usym
  use dc_calendar_types, only: dc_cal, unit_symbol_day
  use dc_calendar_generic, only: dccalconvertbyunit
  use dc_message, only: messagenotify
  use dc_types, only: dp
  implicit none
  real(DP):: out_time
  real(DP), intent(in):: in_time
  character(*), intent(in):: in_unit
  type(DC_CAL), intent(in), optional, target:: cal
 
  ! 作業変数
  ! Work variables
  !
  type(DC_CAL), pointer:: calp =>null()
  integer:: in_unit_sym, out_unit_sym
  character(*), parameter:: subname = 'DCCalConvertToDay1'
continue
 
  out_time = -1.0
 
  ! オブジェクトのポインタ割付
  ! 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. calp % initialized ) then
    call messagenotify('W', subname, '"cal" is not initialized. <-1> is returned.' )
    goto 999
  end if
 
  ! 単位の解釈
  ! Parse units
  !
  in_unit_sym  = dccaldate_str2usym( in_unit )
  out_unit_sym = unit_symbol_day
 
  ! 数値の変換
  ! Convert a value
  !
  out_time = dccalconvertbyunit( in_time, in_unit_sym, out_unit_sym, cal )
 
  ! 終了処理, 例外処理
  ! Termination and Exception handling
  !
999 continue
  nullify( calp )

References dc_calendar_internal::dccaldate_str2usym(), dc_calendar_internal::default_cal, dc_calendar_internal::default_cal_set(), dc_types::dp, and dc_calendar_types::unit_symbol_day.

Here is the call graph for this function:

dccalconverttoday2()

real(dp) function dccalconverttoday2	(	real(dp), intent(in)	in_time,
		integer, intent(in)	in_unit,
		type(dc_cal), intent(in), optional, target	cal
	)

任意の単位から日への変換 (シンボル版)

任意の時間単位 (日時分秒) から日への単位の変換を行います.

時間の単位として有効な整数型変数については以下を参照下さい. 単位として整数値を直接与えることはせず, 以下の変数を与えてください.

パラメータ	説明
dc_calendar_types::UNIT_SYMBOL_SEC	秒の単位
dc_calendar_types::UNIT_SYMBOL_MIN	分の単位
dc_calendar_types::UNIT_SYMBOL_HOUR	時間の単位
dc_calendar_types::UNIT_SYMBOL_DAY	日の単位

省略可能引数 cal が省略された場合には, dc_calendar 内部で 保持される暦に関する情報を用いた単位の変換が行われます. cal が省略されない場合にはその変数に設定された暦の情報を 用いて単位の変換が行われます.

Parameters

[in]	in_time	変換前の時間の数値
[in]	in_unit	変換前の時間の単位 (整数シンボル)
[in]	cal	暦情報を収めたオブジェクト

Returns

変換後の時間の数値 (日単位)

Definition at line 186 of file dccalconverttoday.f90.

 
  use dc_calendar_internal, only: default_cal, default_cal_set
  use dc_calendar_generic, only: dccalconvertbyunit
  use dc_calendar_types, only: dc_cal, unit_symbol_day
  use dc_message, only: messagenotify
  use dc_types, only: dp
  implicit none
  real(DP):: out_time
  real(DP), intent(in):: in_time
  integer, intent(in):: in_unit
  type(DC_CAL), intent(in), optional, target:: cal
 
  ! 作業変数
  ! Work variables
  !
  type(DC_CAL), pointer:: calp =>null()
  integer:: out_unit
  character(*), parameter:: subname = 'DCCalConvertToDay2'
continue
 
  out_time = -1.0
 
  ! オブジェクトのポインタ割付
  ! 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. calp % initialized ) then
    call messagenotify('W', subname, '"cal" is not initialized. <-1> is returned.' )
    goto 999
  end if
 
  ! 単位の解釈
  ! Parse units
  !
  out_unit = unit_symbol_day
 
  ! 数値の変換
  ! Convert a value
  !
  out_time = dccalconvertbyunit( in_time, in_unit, out_unit, cal )
 
  ! 終了処理, 例外処理
  ! Termination and Exception handling
  !
999 continue
  nullify( calp )

References dc_calendar_internal::default_cal, dc_calendar_internal::default_cal_set(), dc_types::dp, and dc_calendar_types::unit_symbol_day.

Here is the call graph for this function: