@@ -149,18 +149,18 @@ contains
149
149
! Generating table header for the stability criteria to be outputted
150
150
if (cfl_dt) then
151
151
if (viscous) then
152
- write (1 , ' (A)' ) ' Time-steps dt = Time ICFL ' // &
152
+ write (3 , ' (A)' ) ' Time-steps dt = Time ICFL ' // &
153
153
' Max VCFL Max Rc Min ='
154
154
else
155
- write (1 , ' (A)' ) ' Time-steps dt Time ' // &
155
+ write (3 , ' (A)' ) ' Time-steps dt Time ' // &
156
156
' ICFL Max '
157
157
end if
158
158
else
159
159
if (viscous) then
160
- write (1 , ' (A)' ) ' Time-steps Time ICFL ' // &
160
+ write (3 , ' (A)' ) ' Time-steps Time ICFL ' // &
161
161
' Max VCFL Max Rc Min '
162
162
else
163
- write (1 , ' (A)' ) ' Time-steps Time ' // &
163
+ write (3 , ' (A)' ) ' Time-steps Time ' // &
164
164
' ICFL Max '
165
165
end if
166
166
end if
@@ -351,12 +351,12 @@ contains
351
351
! Outputting global stability criteria extrema at current time- step
352
352
if (proc_rank == 0 ) then
353
353
if (viscous) then
354
- write (1 , ' (6X,I8,F10.6,6X,6X,F10.6,6X,F9.6,6X,F9.6,6X,F10.6)' ) &
354
+ write (3 , ' (6X,I8,F10.6,6X,6X,F10.6,6X,F9.6,6X,F9.6,6X,F10.6)' ) &
355
355
t_step, dt, t_step* dt, icfl_max_glb, &
356
356
vcfl_max_glb, &
357
357
Rc_min_glb
358
358
else
359
- write (1 , ' (13X,I8,14X,F10.6,14X,F10.6,13X,F9.6)' ) &
359
+ write (3 , ' (13X,I8,14X,F10.6,14X,F10.6,13X,F9.6)' ) &
360
360
t_step, dt, t_step* dt, icfl_max_glb
361
361
end if
362
362
0 commit comments