historyautochkoutput.f90

Go to the documentation of this file.

 
 
  function historyautochkoutput( varname ) result(result)
    use gtool_historyauto_internal, only: initialized, numvars, &
      & varname_vars, output_valid_vars
 
    implicit none
    logical:: result
    character(*), intent(in):: varname
                              ! 変数の名前. 
                              ! Variable name
 
    integer:: i, vnum
    integer, save:: svnum = 1
  continue
    ! 初期設定チェック
    ! Check initialization
    !
    if ( .not. initialized ) then
      result = .false.
      goto 999
    end if
 
    ! 変数 ID のサーチ
    ! Search variable ID
    !
    varsearch: do
      do i = svnum, numvars
        if ( trim( varname_vars(i) ) == trim(varname) ) then
          vnum = i
          exit varsearch
        end if
      end do
      do i = 1, svnum - 1
        if ( trim( varname_vars(i) ) == trim(varname) ) then
          vnum = i
          exit varsearch
        end if
      end do
 
      result = .false.
      goto 999
    end do varsearch
 
    svnum = vnum
 
    ! 出力設定の確認
    ! Check output setting
    !
    result = output_valid_vars( vnum )
 
999 continue
  end function historyautochkoutput
 
 
 
  function historyautochkoutputtiming( time, varname ) result(result)
    use gtool_historyauto_internal, only: initialized, numvars, &
      & varname_vars, output_valid_vars, origin_time_vars, histaddvar_vars, &
      & newfile_inttime_vars, newfile_createtime_vars, prev_outtime_vars, &
      & interval_time_vars, terminus_time_vars
    use dc_types, only: dp
 
    implicit none
    logical:: result
    real(dp), intent(in):: time
                              ! データの時刻. 
                              ! Time of data
    character(*), intent(in):: varname
                              ! 変数の名前. 
                              ! Variable name
 
    real(dp), parameter:: zero_time = 0.0_dp
    integer:: i, vnum
    integer, save:: svnum = 1
  continue
 
    ! 初期設定チェック
    ! Check initialization
    !
    if ( .not. initialized ) then
      result = .false.
      goto 999
    end if
 
    ! 変数 ID のサーチ
    ! Search variable ID
    !
    varsearch: do
      do i = svnum, numvars
        if ( trim( varname_vars(i) ) == trim(varname) ) then
          vnum = i
          exit varsearch
        end if
      end do
      do i = 1, svnum - 1
        if ( trim( varname_vars(i) ) == trim(varname) ) then
          vnum = i
          exit varsearch
        end if
      end do
 
      result = .false.
      goto 999
    end do varsearch
 
    svnum = vnum
 
    ! 出力設定の確認
    ! Check output setting
    !
    result = output_valid_vars( vnum )
 
    if ( .not. result ) goto 999
 
    if ( origin_time_vars(vnum) > time ) then
      result = .false. 
      goto 999
    end if
 
    if (             origin_time_vars(vnum) <= time &
      &  .and.       (      terminus_time_vars(vnum) < zero_time &
      &                .or. terminus_time_vars(vnum) >= time      ) &
      &  .and. .not. histaddvar_vars(vnum)            ) then
 
      result = .true.
      goto 999
    end if
 
    if ( terminus_time_vars(vnum) > zero_time .and. terminus_time_vars(vnum) < time ) then
      result = .false.
      goto 999
    end if
 
    if ( newfile_inttime_vars(vnum) > zero_time ) then
      if ( time - newfile_createtime_vars(vnum) >= newfile_inttime_vars(vnum) ) then
        result = .true.
        goto 999
      end if
    end if
 
    if ( time - prev_outtime_vars(vnum) >= interval_time_vars(vnum) ) then
      result = .true.
      goto 999
    end if
 
    result = .false.
 
999 continue
  end function historyautochkoutputtiming