国立天文台共同研究「天体流体運動の理解のための数値モデルの開発と基礎実験」ミーティングメモ

8/18

gt4f90io について

最新版 dcpam5 における I/O 関連の

!!!!

use gt4_historyauto, only: HistoryAutoPut, HistoryAutoProgress
...

! リスタートデータ出力
! Restart data output
!
call RestartFileOpen

! リスタートファイルへ初期値データ出力
! Output initial data to a restart file
!
call RestartFileOutput( &
  & xyz_UB, xyz_VB, xyz_TempB, xyz_QVapB, xy_PsB, &   ! (in)
  & xyz_UN, xyz_VN, xyz_TempN, xyz_QVapN, xy_PsN  )   ! (in)

! ヒストリデータファイルの初期化
! Initialization of history data files
!
call HistoryFileOpen

! ヒストリデータ出力のためのへの変数登録
! Register of variables for history data output
!
call HistoryAutoAddVariable( 'U' , &
  & (/ 'lon ', 'lat ', 'sig ', 'time' /), &
  & 'eastward wind', 'm s-1' )
...

do (時間積分)

  ...
  ! ヒストリデータ出力
  ! History data output
  !
  if ( .not. firstloop ) then
    call HistoryAutoPut( 'U',    xyz_UN )
    call HistoryAutoPut( 'V',    xyz_VN )
    call HistoryAutoPut( 'Temp', xyz_TempN )
    call HistoryAutoPut( 'QVap', xyz_QVapN )
    call HistoryAutoPut( 'Ps',   xy_PsN )
  end if

  ! 時刻の進行
  ! Progress time
  !
  call TimesetProgress        ! モデルの管理する時刻を 1 ステップ進める 
  call HistoryAutoProgress    ! I/O ライブラリが持つ時刻を 1 ステップ進める 

  ! リスタートデータ出力
  ! Restart data output
  !
  if ( .not. firstloop ) then
    call RestartFileOutput( &
      & xyz_UB, xyz_VB, xyz_TempB, xyz_QVapB, xy_PsB, &   ! (in)
      & xyz_UN, xyz_VN, xyz_TempN, xyz_QVapN, xy_PsN  )   ! (in)
  end if

end do 
..

議論の内容

8/19

時刻管理と出力制御について

8/20

種別型パラメタの設定について

今後のタイムスケジュール