dccalconverttomin.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
real(dp) function	dccalconverttomin1 (in_time, in_unit, cal)
	Convert time to minute unit.
real(dp) function	dccalconverttomin2 (in_time, in_unit, cal)

Function/Subroutine Documentation

dccalconverttomin1()

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

Convert time to minute unit.

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 dccalconverttomin.f90.

 
  use dc_calendar_internal, only: default_cal, default_cal_set, &
    & dccaldate_str2usym
  use dc_calendar_types, only: dc_cal, unit_symbol_min
  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 = 'DCCalConvertToMin1'
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_min
 
  ! 数値の変換
  ! 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_min.

Here is the call graph for this function:

dccalconverttomin2()

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

Convert time from arbitrary unit to minute (symbol version)

Convert of unit from arbitrary time units (day, hour, minute, second) into minute.

Valid integer variables as units of time are follows. Do not specify integer directly, but specify following variables.

Parameter	Description
dc_calendar_types::UNIT_SYMBOL_SEC	Units of second
dc_calendar_types::UNIT_SYMBOL_MIN	Units of minute
dc_calendar_types::UNIT_SYMBOL_HOUR	Units of hour
dc_calendar_types::UNIT_SYMBOL_DAY	Units of day

If an optional argument cal is omitted, unit is converted with information of a calendar that is stored in the "dc_calendar". If cal is not omitted, unit is converted with information of the variable.

Parameters

[in]	in_time	Numerical value of time before conversion
[in]	in_unit	Units of time before conversion (integer symbol)
[in]	cal	An object that stores information of calendar

Returns

Numerical value of time after conversion (in minutes)

Definition at line 186 of file dccalconverttomin.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_min
  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 = 'DCCalConvertToMin2'
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_min
 
  ! 数値の変換
  ! 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_min.

Here is the call graph for this function: