Class HistoryAutoFileIO
In: io/historyfileio2.f90

ファイル出力. 長い時間ステップの値を出力.

Methods

Included Modules

dc_types gridset fileset gtool_historyauto dc_iounit dc_string timeset

Public Instance methods

Subroutine :

ヒストリデータファイル出力の終了処理を行います.

Terminate history data files output.

[Source]

  subroutine HistoryFileAutoClose
    !
    ! ヒストリデータファイル出力の終了処理を行います. 
    !
    ! Terminate history data files output. 

    ! モジュール引用 ; USE statements
    !

    ! gtool4 netCDF データの入出力インターフェース (大規模モデル用)
    ! Interface of Input/Output of gtool4 netCDF data (For large models)
    !
    use gtool_historyauto, only: HistoryAutoClose

    ! 宣言文 ; Declaration statements
    !
    implicit none

    ! 作業変数
    ! Work variables
    !

    ! 実行文 ; Executable statement
    !

    call HistoryAutoClose

  end subroutine HistoryFileAutoClose
Subroutine :
RestartTime :real(8), intent(in)
cfgfile :character(*), intent(in)

history_file_io モジュールの初期化を行います.

"history_file_io" module is initialized.

[Source]

  subroutine HistoryFileAutoOpen( RestartTime, cfgfile ) 
    !
    ! history_file_io モジュールの初期化を行います. 
    !
    !
    ! "history_file_io" module is initialized. 
    !
    !

    ! モジュール引用 ; USE statements
    !

    ! gtool5 netCDF データの入出力インターフェース (大規模モデル用)
    ! Interface of Input/Output of gtool5 netCDF data (For large models)
    !
    use gtool_historyauto, only: HistoryAutoCreate, HistoryAutoAddAttr, HistoryAutoAddWeight, HistoryAutoPutAxis

    ! ファイル入出力補助
    ! File I/O support
    !
    use dc_iounit, only: FileOpen

    ! 文字列操作
    ! Character handling
    !
    use dc_string, only: CPrintf

    ! 種別型パラメタ
    ! Kind type parameter
    !
    use dc_types, only: STDOUT ! 標準出力の装置番号. Unit number of standard output

    use timeset, only: TimeInt, TimeDisp


    ! 宣言文 ; Declaration statements
    !
    implicit none
    
    !変数定義
    real(8), intent(in)      :: RestartTime
    character(*), intent(in) :: cfgfile


    !-----------------------------------------------------------
    ! ヒストリー作成
    !-----------------------------------------------------------
    call HistoryAutoCreate( title = exptitle, source = expsrc, institution = expinst, dims=(/'x','z','t'/), dimsizes=(/FileNX, FileNZ, 0/), longnames=(/'x-coordinate', 'z-coordinate', 'time        '/), units=(/'m  ','m  ','sec'/), xtypes=(/'double', 'double', 'double'/), origin  = RestartTime, terminus = RestartTime + TimeInt, interval = TimeDisp, file_prefix = DefaultFilePrefix, namelist_filename = cfgfile)  

!      & quiet=.true.,                                &
!      & start_date = InitialDate,                    &
!      & flag_mpi_split  = .true.,                    &


    call HistoryAutoAddAttr( varname = 'x', attrname = 'standard_name', value = 'x-coordinate' )                       ! (in)
    call HistoryAutoAddAttr( varname = 'z', attrname = 'standard_name', value = 'z-coordinate' )                       ! (in)
    
    call HistoryAutoPutAxis('x', x_X(FileXMin: FileXMax))
    call HistoryAutoPutAxis('z', z_Z(FileZMin: FileZMax))

    ! 印字 ; Print
    !
!    call MessageNotify( 'M', module_name, '----- Initialization Messages -----' )
!    call MessageNotify( 'M', module_name, '-- version = %c', c1 = trim(version) )
    
  end subroutine HistoryFileAutoOpen