historyautoclose.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	historyautoclose1

Function/Subroutine Documentation

historyautoclose1()

subroutine historyautoclose1

(

)

Definition at line 28 of file historyautoclose.f90.

References gtool_historyauto_internal::all_output_save, dc_trace::beginsub(), gtool_historyauto_internal::checked_tstep_varnum, gtool_historyauto_internal::checked_tstepnum, gtool_historyauto_internal::close_timing_vars, gtool_historyauto_internal::create_timing_vars, gtool_historyauto_internal::data_axes, gtool_historyauto_internal::data_weights, dc_error::dc_enotinit, dc_error::dc_noerr, dc_types::dp, dc_trace::endsub(), gtool_historyauto_internal::flag_allvarfixed, gtool_historyauto_internal::gthst_axes, gtool_historyauto_internal::gthst_vars, gtool_historyauto_internal::gthst_weights, gtool_historyauto_internal::gthstnml, gtool_historyauto_internal::histaddvar_vars, historyaxisclear(), historyclose(), gtool_historyauto_internal::initialized, gtool_historyauto_internal::interval_time_vars, dc_string::joinchar(), gtool_historyauto_internal::newfile_createtime_vars, gtool_historyauto_internal::newfile_inttime_vars, gtool_historyauto_internal::numdims, gtool_historyauto_internal::numvars, gtool_historyauto_internal::numwgts, gtool_historyauto_internal::origin_time_vars, gtool_historyauto_internal::output_timing_avr_vars, gtool_historyauto_internal::output_timing_vars, gtool_historyauto_internal::output_valid_vars, gtool_historyauto_internal::prev_outtime_vars, gtool_historyauto_internal::renew_timing_vars, gtool_historyauto_internal::save_mpi_gather, gtool_historyauto_internal::save_mpi_split, gtool_historyauto_internal::saved_tstep, gtool_historyauto_internal::slice_vars, gtool_historyauto_internal::space_avr_vars, dc_error::storeerror(), dc_types::string, gtool_historyauto_internal::tavr_vars, gtool_historyauto_internal::terminus_time_vars, gtool_historyauto_internal::time_unit_bycreate, gtool_historyauto_internal::time_unit_suffix, dc_types::token, gtool_historyauto_internal::varname_vars, and gtool_historyauto_internal::weight_vars.

    !
    ! HistoryAutoCreate で始まったデータ出力の終了処理を行います. 
    ! プログラムを終了する前に必ずこのサブルーチンを呼んでください. 
    ! 
    ! Terminates data output with "HistoryAutoCreate". 
    ! Call this subroutine certainly before a progrem is finished. 
    ! 
    use gtool_historyauto_internal, only: initialized, numdims, &
      & gthstnml, gthst_axes, data_axes, numwgts, gthst_weights, data_weights, &
      & numvars, gthst_vars, slice_vars, weight_vars, varname_vars, &
      & slice_vars, space_avr_vars, &
      & output_valid_vars, create_timing_vars, &
      & close_timing_vars, renew_timing_vars, &
      & output_timing_vars, output_timing_avr_vars, tavr_vars, &
      & interval_time_vars, prev_outtime_vars, &
      & origin_time_vars, terminus_time_vars, &
      & histaddvar_vars, newfile_inttime_vars, newfile_createtime_vars, &
      & checked_tstepnum, checked_tstep_varnum, saved_tstep, &
      & save_mpi_split, save_mpi_gather, flag_allvarfixed, all_output_save, &
      & time_unit_bycreate, time_unit_suffix
    use gtool_history_nmlinfo_generic, only: hstnmlinfoclose, hstnmlinfogetnames, &
      & hstnmlinfoassocgthist, hstnmlinfoputline
    use gtool_history, only: gt_history, historyclose, historyinitialized, &
      & historyaxisclear, historyvarinfoclear
    use dc_trace, only: beginsub, endsub
    use dc_string, only: putline, printf, split, strinclude, stoa, joinchar
    use dc_error, only: storeerror, dc_noerr, dc_enotinit
    use dc_date, only: dcdifftimecreate
    use dc_date_types, only: dc_difftime, dc_datetime
    use dc_types, only: dp, string, token
    implicit none

    ! ヒストリファイルへのデータ出力設定
    ! Configure the settings for history data output
    !
    character(STRING):: name = ''
                              ! 変数名. Variable identifier
    character(TOKEN), pointer:: varnames_array(:) =>null()
                              ! 変数名リスト配列. 
                              ! List of variables (array) 
    integer:: i, vnmax
    type(gt_history), pointer:: gthist =>null()
                              ! gtool_history モジュール用構造体. 
                              ! Derived type for "gtool_history" module

    ! 作業変数
    ! Work variables
    !
    integer:: stat
    character(STRING):: cause_c
    character(*), parameter:: subname = 'HistoryAutoClose1'
  continue
    call beginsub( subname )
    stat = dc_noerr
    cause_c = ''

    ! 初期設定チェック
    ! Check initialization
    !
    if ( .not. initialized ) then
      stat = dc_enotinit
      cause_c = 'gtool_historyauto'
      goto 999
    end if

    ! ヒストリファイルへのデータ出力の終了処理
    ! Terminate the settings for history data output
    !
    call hstnmlinfogetnames( gthstnml, & ! (in)
      & varnames_array )                 ! (out)
    vnmax = size( varnames_array )

    do i = 1, vnmax
      name = varnames_array(i)
      if ( trim( name ) == '' ) exit
      nullify( gthist )
      call hstnmlinfoassocgthist( & 
        & gthstnml = gthstnml, & ! (in)
        & name = name, &         ! (in)
        & history = gthist )     ! (out)
      if ( historyinitialized( gthist ) ) then
        call historyclose( history = gthist ) ! (inout)
      end if
    end do

    ! ヒストリファイルへのデータ出力設定の割付解除
    ! Deallocate the settings for history data output
    !
    call hstnmlinfoclose( gthstnml ) ! (inout)

    ! 座標軸情報のクリア
    ! Create axes information
    !
    do i = 1, numdims
      call historyaxisclear( gthst_axes(i) )
      deallocate( data_axes(i) % a_axis )
    end do
    numdims = 0

    ! 座標重み情報のクリア
    ! Create axes weights information
    !
    do i = 1, numwgts
      call historyvarinfoclear( gthst_weights(i) )
      deallocate( data_weights(i) % a_axis )
    end do
    numwgts = 0

    ! 変数情報のクリア
    ! Create variables information
    !
    do i = 1, numvars
      call historyvarinfoclear( gthst_vars(i) )

      if ( associated( slice_vars(i) % st ) ) deallocate( slice_vars(i) % st )
      if ( associated( slice_vars(i) % ed ) ) deallocate( slice_vars(i) % ed )
      if ( associated( slice_vars(i) % sd ) ) deallocate( slice_vars(i) % sd )

                          if ( associated( weight_vars(i) % wgt1 ) ) deallocate( weight_vars(i) % wgt1 )
                    
      if ( associated( weight_vars(i) % wgt2 ) ) deallocate( weight_vars(i) % wgt2 )
                    
      if ( associated( weight_vars(i) % wgt3 ) ) deallocate( weight_vars(i) % wgt3 )
                    
      if ( associated( weight_vars(i) % wgt4 ) ) deallocate( weight_vars(i) % wgt4 )
                    
      if ( associated( weight_vars(i) % wgt5 ) ) deallocate( weight_vars(i) % wgt5 )
                    
      if ( associated( weight_vars(i) % wgt6 ) ) deallocate( weight_vars(i) % wgt6 )
                    
      if ( associated( weight_vars(i) % wgt7 ) ) deallocate( weight_vars(i) % wgt7 )
                    

      if ( associated( space_avr_vars(i) % avr ) ) deallocate( space_avr_vars(i) % avr )

      varname_vars(i)             = ''
      output_valid_vars(i)        = .false.
      create_timing_vars(i,:)     = .false.
      close_timing_vars(i,:)      = .false.
      renew_timing_vars(i,:)      = .false.
      output_timing_vars(i,:)     = .false.
      output_timing_avr_vars(i,:) = .false.
      tavr_vars(i)                = .false.
      interval_time_vars(i)       = 0.0_dp
      prev_outtime_vars(i)        = 0.0_dp
      origin_time_vars(i)         = 0.0_dp
      terminus_time_vars(i)       = -1.0_dp
      histaddvar_vars(i)          = .false.
      newfile_inttime_vars(i)     = -1.0_dp
      newfile_createtime_vars(i)  = 0.0_dp

!!$      ! dc_date 使用版
!!$
!!$      call DCDiffTimeCreate( interval_time_vars(i), &   ! (out)
!!$        & sec = 0.0_DP )                                ! (in)
!!$      call DCDiffTimeCreate( prev_outtime_vars(i), &    ! (out)
!!$        & sec = 0.0_DP )                                ! (in)
!!$      call DCDiffTimeCreate( origin_time_vars(i), &   ! (out)
!!$        & sec = 0.0_DP )                              ! (in)
!!$      call DCDiffTimeCreate( terminus_time_vars(i), & ! (out)
!!$        & sec = -1.0_DP )                             ! (in)
!!$      histaddvar_vars(i)      = .false.
!!$      call DCDiffTimeCreate( newfile_inttime_vars(i), &    ! (out)
!!$        & sec = -1.0_DP )                                  ! (in)
!!$      call DCDiffTimeCreate( newfile_createtime_vars(i), & ! (out)
!!$        & sec = 0.0_DP )                                   ! (in)

    end do
    numvars = 0

    ! 時間ステップに関する情報のクリア
    ! Clear information about time steps
    !
    checked_tstepnum = 0
    checked_tstep_varnum = 0
    saved_tstep = 1

    ! MPI に関する情報のクリア
    ! Clear information about MPI
    !
    save_mpi_split  = .false.
    save_mpi_gather = .false.

    ! 終了処理, 例外処理 
    ! Termination and Exception handling
    !
    initialized = .false.
    flag_allvarfixed = .false.
    all_output_save = .false.
    time_unit_bycreate = ''
    time_unit_suffix = ''

999 continue
    call storeerror( stat, subname, cause_c = cause_c )
    call endsub( subname )

Here is the call graph for this function: