dc_date_internal Module Reference

dc_date用の内部モジュール More...

Functions/Subroutines
subroutine, public	dcdate_normalize (day, sec, day_seconds, nondim_flag)
subroutine, public	dcdate_set_day_seconds_scl
subroutine, public	dcdate_nondimcheck (opr, diff1, diff2, rslt)
character(token) function, public	dcdate_parse_unit (str)

Detailed Description

dc_date用の内部モジュール

Author

Yasuhiro MORIKAWA, Eizi TOYODA

Copyright

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

Function/Subroutine Documentation

dcdate_nondimcheck()

subroutine, public dc_date_internal::dcdate_nondimcheck	(	character(*), intent(in)	opr,
		type(dc_difftime), intent(in)	diff1,
		type(dc_difftime), intent(in)	diff2,
		type(dc_difftime), intent(inout)	rslt
	)

次元の整合性をチェックします

diff1 と diff2 が両方とも有次元もしくは無次元かをチェックし, 両方が同じであれば, その結果を rslt に適用します. 2つの引数で片方が有次元, もう片方が無次元の場合には エラーを発生させます.

このサブルーチンは内部向けなので dc_date モジュール外では 極力使用しないでください.

Parameters

[in]	opr	演算子の名称
[in]	diff1	第1オペランド
[in]	diff2	第2オペランド
[in,out]	rslt	結果オペランド

Definition at line 186 of file dc_date_internal.f90.

    use dc_error, only: storeerror, dc_edimtime
    implicit none
    character(*), intent(in):: opr
    type(DC_DIFFTIME), intent(in):: diff1, diff2
    type(DC_DIFFTIME), intent(inout):: rslt
  continue
    if (      (       diff1 % nondim_flag .and. .not. diff2 % nondim_flag ) &
      &  .or. ( .not. diff1 % nondim_flag .and.       diff2 % nondim_flag ) ) then
      call storeerror(dc_edimtime, opr)
    end if
    rslt % nondim_flag = diff1 % nondim_flag

References dc_error::dc_edimtime, and dc_error::storeerror().

Here is the call graph for this function:

dcdate_normalize()

subroutine, public dc_date_internal::dcdate_normalize	(	type(dc_scaled_sec), intent(inout)	day,
		type(dc_scaled_sec), intent(inout)	sec,
		type(dc_scaled_sec), intent(in), optional	day_seconds,
		logical, intent(in)	nondim_flag
	)

日と秒の正規化を行います

日付 day と秒数 sec の正規化を行います. sec が day_seconds を超える場合, day に繰上げを行います. また, sec と day の符号が逆の場合, 同符号になるよう設定します.

このサブルーチンは内部向けなので dc_date モジュール外では 極力使用しないでください.

Parameters

[in,out]	day	日
[in,out]	sec	秒
[in]	day_seconds	1日の秒数 (オプション)
[in]	nondim_flag	無次元フラグ

Definition at line 93 of file dc_date_internal.f90.

    use dc_date_types, only: &
      & flag_set_day_seconds_scl, day_seconds_scl
    use dc_scaledsec, only: dc_scaled_sec, &
      & operator(<), operator(>), operator(<=), operator(>=), &
      & operator(+), operator(-), operator(*), operator(/), &
      & modulo, int, abs, sign
    implicit none
    type(DC_SCALED_SEC), intent(inout):: day
    type(DC_SCALED_SEC), intent(inout):: sec
    type(DC_SCALED_SEC), intent(in), optional:: day_seconds
    logical, intent(in):: nondim_flag
    type(DC_SCALED_SEC):: sgn, day_sec, zero_sec
  continue
    if ( nondim_flag ) return
    if (present(day_seconds)) then
      day_sec = day_seconds
    else
      if ( .not. flag_set_day_seconds_scl ) call dcdate_set_day_seconds_scl
      day_sec = day_seconds_scl
    end if
    if (abs(sec) >= day_sec) then
      day = day + int(sec / day_sec)
      sec = modulo(sec, day_sec)
    end if
!!    zero_sec = 0  (デフォルト値 = 0 を使用する).
    if (      ( sec > zero_sec .and. day < zero_sec ) &
      &  .or. ( sec < zero_sec .and. day > zero_sec )   ) then
      sgn = sign(day, 1)
      day = day - sgn
      sec = sec + sgn * day_sec
    endif

References dc_date_types::day_seconds, dc_date_types::day_seconds_scl, dcdate_set_day_seconds_scl(), and dc_date_types::flag_set_day_seconds_scl.

Here is the call graph for this function:

dcdate_parse_unit()

character(token) function, public dc_date_internal::dcdate_parse_unit

(

character(*), intent(in)

str

)

時間単位文字列を解析しシンボルを返します

引数 str に与えられた文字列を解釈し, 日時の単位を示す シンボルを返します. 以下の文字列が日時の単位として解釈されます. 大文字と小文字は区別されません.

単位	シンボル定数
年	UNIT_SYMBOL_YEAR
月	UNIT_SYMBOL_MONTH
日	UNIT_SYMBOL_DAY
時	UNIT_SYMBOL_HOUR
分	UNIT_SYMBOL_MIN
秒	UNIT_SYMBOL_SEC
無次元時間	UNIT_SYMBOL_NONDIM

これらに該当しない文字列を str に与えた場合, UNIT_SYMBOL_ERR が返ります.

Parameters

[in]

str

入力単位文字列

Returns

単位シンボル (整数)

時間単位文字列を解析し単位文字列を返します

引数 str に与えられた文字列を解釈し, 日時の単位を返します. 大文字と小文字は区別されません. 返る文字列は単位配列の先頭の文字列です. 該当しない文字列の場合は空文字が返ります.

この関数は内部向けなので dc_date モジュール外では 極力使用しないでください.

Parameters

[in]

str

入力単位文字列

Returns

標準化された単位文字列

Definition at line 277 of file dc_date_internal.f90.

    use dc_types, only: token
    use dc_date_types, only: unit_year, unit_month, unit_day, &
      & unit_hour, unit_min, unit_sec, unit_nondim
    use dc_string, only: strieq
    implicit none
    character(*), intent(in):: str
    integer :: unit_str_size, i
  continue
    unit = adjustl(str)
    unit_str_size = size(unit_nondim)
    do i = 1, unit_str_size
      if (strieq(trim(unit), trim(unit_nondim(i)))) then
        unit = unit_nondim(1)
        return
      end if
    end do
 
    unit_str_size = size(unit_sec)
    do i = 1, unit_str_size
      if (strieq(trim(unit), trim(unit_sec(i)))) then
        unit = unit_sec(1)
        return
      end if
    end do
 
    unit_str_size = size(unit_min)
    do i = 1, unit_str_size
      if (strieq(trim(unit), trim(unit_min(i)))) then
        unit = unit_min(1)
        return
      end if
    end do
 
    unit_str_size = size(unit_hour)
    do i = 1, unit_str_size
      if (strieq(trim(unit), trim(unit_hour(i)))) then
        unit = unit_hour(1)
        return
      end if
    end do
 
    unit_str_size = size(unit_day)
    do i = 1, unit_str_size
      if (strieq(trim(unit), trim(unit_day(i)))) then
        unit = unit_day(1)
        return
      end if
    end do
 
    unit_str_size = size(unit_month)
    do i = 1, unit_str_size
      if (strieq(trim(unit), trim(unit_month(i)))) then
        unit = unit_month(1)
        return
      end if
    end do
 
    unit_str_size = size(unit_year)
    do i = 1, unit_str_size
      if (strieq(trim(unit), trim(unit_year(i)))) then
        unit = unit_year(1)
        return
      end if
    end do
 
    unit = ''
 

References dc_types::token, dc_date_types::unit_day, dc_date_types::unit_hour, dc_date_types::unit_min, dc_date_types::unit_month, dc_date_types::unit_nondim, dc_date_types::unit_sec, and dc_date_types::unit_year.

dcdate_set_day_seconds_scl()

subroutine, public dc_date_internal::dcdate_set_day_seconds_scl

日のスケーリング秒数を設定します

day_seconds_scl のスケーリング秒数値を設定します.

Definition at line 140 of file dc_date_internal.f90.

    use dc_scaledsec, only: dc_scaled_sec, assignment(=)
    use dc_date_types, only: day_seconds,  &
      & flag_set_day_seconds_scl, day_seconds_scl
  continue
    if ( .not. flag_set_day_seconds_scl ) then
      flag_set_day_seconds_scl = .true.
      day_seconds_scl = day_seconds
    end if

References dc_date_types::day_seconds, dc_date_types::day_seconds_scl, and dc_date_types::flag_set_day_seconds_scl.