hstnmlinfooutputstep.f90 File Reference

出力タイミングのチェック More...

Go to the source code of this file.

Functions/Subroutines
logical function	hstnmlinfooutputstep (gthstnml, name, time)

Detailed Description

出力タイミングのチェック

Author

Yasuhiro MORIKAWA

Copyright

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

Definition in file hstnmlinfooutputstep.f90.

Function/Subroutine Documentation

hstnmlinfooutputstep()

logical function hstnmlinfooutputstep	(	type(gthst_nmlinfo), intent(in)	gthstnml,
		character(*), intent(in)	name,
		type(dc_difftime), intent(in)	time )

出力タイミングのチェック

time が変数 name の出力されるタイミングであれば .true. を, そうでなければ .false. を返します. gthstnml が初期設定されていない場合にも .false. が返ります. name に関するデータが存在しない場合にも .false. が返ります.

なお, 与えられた gthstnml が HstNmlInfoCreate によって初期設定 されていない場合, プログラムはエラーを発生させます.

Parameters

[in]	gthstnml	gtool_history_nmlinfo_types::GTHST_NMLINFO 型変数
[in]	name	変数名. 先頭の空白は無視されます. Variable identifier. Blanks at the head of the name are ignored.
[in]	time	現在時刻. Current time

Returns

出力タイミングであれば .true.

Definition at line 44 of file hstnmlinfooutputstep.f90.

    use gtool_history_nmlinfo_types, only: gthst_nmlinfo, gthst_nmlinfo_entry
    use gtool_history_nmlinfo_internal, only: listsearch
    use dc_date_types, only: dc_difftime
    use dc_date_generic, only: dcdifftimecreate, mod, operator(==)
    use dc_types, only: dp
    implicit none
    type(GTHST_NMLINFO), intent(in):: gthstnml
    character(*), intent(in):: name
                              ! 変数名. 
                              ! 先頭の空白は無視されます. 
                              ! 
                              ! Variable identifier. 
                              ! Blanks at the head of the name are ignored. 
    type(DC_DIFFTIME), intent(in):: time
                              ! 現在時刻. Current time
 
    !-----------------------------------
    !  作業変数
    !  Work variables
    type(GTHST_NMLINFO_ENTRY), pointer:: hptr =>null()
    type(DC_DIFFTIME):: interval_time
!!$    character(*), parameter:: subname = 'HstNmlInfoOutputStep'
  continue
 
    result = .false.
 
    !-----------------------------------------------------------------
    !  初期設定のチェック
    !  Check initialization
    !-----------------------------------------------------------------
    if ( .not. gthstnml % initialized ) goto 999
 
    !-----------------------------------------------------------------
    !  情報格納変数への結合
    !  Associate a variable storing information
    !-----------------------------------------------------------------
    hptr => gthstnml % gthstnml_list
    call listsearch( gthstnml_list = hptr, & ! (inout)
      &              name = name )           ! (in)
 
    if ( .not. associated( hptr ) ) goto 999
    if ( hptr % output_step_disable ) goto 999
 
    !-----------------------------------------------------------------
    !  時刻のチェック
    !  Check time
    !-----------------------------------------------------------------
    if ( .not. hptr % interval_value > 0.0 ) goto 999
 
    call dcdifftimecreate( &
      & diff = interval_time, &                      ! (out)
      & value = real( hptr % interval_value, dp ), & ! (in)
      & unit = hptr % interval_unit )                ! (in)
 
    if ( mod( time, interval_time ) == 0 ) then
      result = .true.
    end if
 
    !-----------------------------------------------------------------
    !  終了処理, 例外処理
    !  Termination and Exception handling
    !-----------------------------------------------------------------
999 continue
    nullify( hptr )

References dc_types::dp.