hstnmlinfooutputvalid.f90

Go to the documentation of this file.

!> @file hstnmlinfooutputvalid.f90
!>
!> @author Yasuhiro MORIKAWA
!> @copyright Copyright (C) GFD Dennou Club, 2007-2026. All rights reserved. <br/>
!>            License is BSD-2-Clause. See [COPYRIGHT](@ref COPYRIGHT) in detail
!>
!> @en
!> @brief Checker of output validation
!> @enden
!>
!> @ja
!> @brief 出力の有効性のチェック
!> @endja
 
  !> @en
  !> @brief Check validity of output for a variable
  !>
  !> If output of a variable @p name is valid,
  !> .true. is returned, otherwise .false. is returned.
  !> Whether output is valid or not is judged with positive or negative
  !> of interval_value. Positive is valid, and negative is invalid.
  !> When @p gthstnml is not initialized, .false. is returned too.
  !> When data corresponding to @p name is not found, .false. is returned too.
  !>
  !> If @p gthstnml is not initialized by HstNmlInfoCreate yet,
  !> error is occurred.
  !> @enden
  !>
  !> @ja
  !> @brief 出力の有効性のチェック
  !>
  !> 変数 @p name の出力が有効であれば,
  !> .true. を, そうでなければ .false. を返します.
  !> 出力が有効であるかどうかは, 出力間隔 interval_value の
  !> 正負によって判定されます. 正の場合が有効, 負の場合が無効です.
  !> @p gthstnml が初期設定されていない場合にも .false. が返ります.
  !> @p name に関するデータが存在しない場合にも .false. が返ります.
  !>
  !> なお, 与えられた @p gthstnml が HstNmlInfoCreate によって初期設定
  !> されていない場合, プログラムはエラーを発生させます.
  !> @endja
  !>
  !> @param[in] gthstnml gtool_history_nmlinfo_types::GTHST_NMLINFO 型変数
  !> @param[in] name 変数名. 先頭の空白は無視されます.
  !>                 Variable identifier. Blanks at the head of the name are ignored.
  !> @return 出力が有効であれば .true.
  logical function hstnmlinfooutputvalid( gthstnml, &
    & name ) result(result)
    use gtool_history_nmlinfo_types, only: gthst_nmlinfo, gthst_nmlinfo_entry
    use gtool_history_nmlinfo_internal, only: listsearch
    implicit none
    type(gthst_nmlinfo), intent(in):: gthstnml
    character(*), intent(in):: name
                              ! 変数名. 
                              ! 先頭の空白は無視されます. 
                              ! 
                              ! Variable identifier. 
                              ! Blanks at the head of the name are ignored. 
 
    !-----------------------------------
    !  作業変数
    !  Work variables
    type(gthst_nmlinfo_entry), pointer:: hptr =>null()
!!$    character(*), parameter:: subname = 'HstNmlInfoOutputValid'
  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
 
    !-----------------------------------------------------------------
    !  出力の有効性のチェック
    !  Check validity of output
    !-----------------------------------------------------------------
    if ( hptr % interval_value > 0.0 ) then
      result = .true.
      goto 999
    end if
 
    !-----------------------------------------------------------------
    !  終了処理, 例外処理
    !  Termination and Exception handling
    !-----------------------------------------------------------------
999 continue
    nullify( hptr )
  end function hstnmlinfooutputvalid