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