時刻 (もしくはループ回数) の出力

CGNSファイルに、時刻もしくはループ回数を出力します。

その時刻での計算格子の出力や計算結果の出力を行うより前に、必ず実行してください。

また、時刻とループ回数を両方出力することはできません。必ずいずれかのみ出力してください。

表 66 利用する関数

関数

備考

cg_iric_write_sol_time_f

時刻を出力する

cg_iric_write_sol_iteration_f

ループ回数を出力する

時刻を出力する処理の例を リスト 100 に示します。

リスト 100 時刻を出力する処理の記述例
 1program Sample4
 2  implicit none
 3  include 'cgnslib_f.h'
 4
 5  integer:: fin, ier, i
 6  double precision:: time
 7
 8  ! CGNS ファイルのオープン
 9  call cg_open_f('test.cgn', CG_MODE_MODIFY, fin, ier)
10  if (ier /=0) STOP "*** Open error of CGNS file ***"
11
12  ! 内部変数の初期化
13  call cg_iric_init_f(fin, ier)
14  if (ier /=0) STOP "*** Initialize error of CGNS file ***"
15
16  ! 初期状態の情報を出力
17  time = 0
18
19  call cg_iric_write_sol_time_f(time, ier)
20  ! (ここで、初期の計算格子や計算結果を出力)
21
22  do
23    time = time + 10.0
24    ! (ここで計算を実行)
25    call cg_iric_write_sol_time_f(time, ier)
26    ! (ここで、計算格子や計算結果を出力)
27    If (time > 1000) exit
28  end do
29
30  ! CGNS ファイルのクローズ
31  call cg_close_f(fin, ier)
32  stop
33end program Sample4