| Class | HistoryAutoFileIO |
| In: |
io/historyfileio2.f90
|
ファイル出力. 長い時間ステップの値を出力.
| Subroutine : |
ヒストリデータファイル出力の終了処理を行います.
Terminate history data files output.
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.
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