Skip to content

Commit b263cf3

Browse files
Malmahrouqi3mohdsaid497566
andauthored
changed output file from default (1) to run_time.inf (3) (#504) (#877)
Co-authored-by: mohdsaid497566 <mohdsaid497566@gmail.com>
1 parent db44da1 commit b263cf3

File tree

1 file changed

+6
-6
lines changed

1 file changed

+6
-6
lines changed

src/simulation/m_data_output.fpp

Lines changed: 6 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -149,18 +149,18 @@ contains
149149
! Generating table header for the stability criteria to be outputted
150150
if (cfl_dt) then
151151
if (viscous) then
152-
write (1, '(A)') ' Time-steps dt = Time ICFL '// &
152+
write (3, '(A)') ' Time-steps dt = Time ICFL '// &
153153
'Max VCFL Max Rc Min ='
154154
else
155-
write (1, '(A)') ' Time-steps dt Time '// &
155+
write (3, '(A)') ' Time-steps dt Time '// &
156156
' ICFL Max '
157157
end if
158158
else
159159
if (viscous) then
160-
write (1, '(A)') ' Time-steps Time ICFL '// &
160+
write (3, '(A)') ' Time-steps Time ICFL '// &
161161
'Max VCFL Max Rc Min '
162162
else
163-
write (1, '(A)') ' Time-steps Time '// &
163+
write (3, '(A)') ' Time-steps Time '// &
164164
' ICFL Max '
165165
end if
166166
end if
@@ -351,12 +351,12 @@ contains
351351
! Outputting global stability criteria extrema at current time-step
352352
if (proc_rank == 0) then
353353
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)') &
355355
t_step, dt, t_step*dt, icfl_max_glb, &
356356
vcfl_max_glb, &
357357
Rc_min_glb
358358
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)') &
360360
t_step, dt, t_step*dt, icfl_max_glb
361361
end if
362362

0 commit comments

Comments
 (0)