Skip to content

Commit fa2399b

Browse files
sbryngelsonclaude
andcommitted
Fix time_real used uninitialized in Lagrangian bubble output
time_real is declared but never assigned from file_time after the MPI broadcast. The time column in output contains garbage. Co-Authored-By: Claude Opus 4.6 <noreply@anthropic.com>
1 parent 84c46e0 commit fa2399b

File tree

1 file changed

+2
-0
lines changed

1 file changed

+2
-0
lines changed

src/post_process/m_data_output.fpp

Lines changed: 2 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -1102,6 +1102,7 @@ contains
11021102
call MPI_BCAST(file_time, 1, mpi_p, 0, MPI_COMM_WORLD, ierr)
11031103
call MPI_BCAST(file_dt, 1, mpi_p, 0, MPI_COMM_WORLD, ierr)
11041104
call MPI_BCAST(file_num_procs, 1, MPI_INTEGER, 0, MPI_COMM_WORLD, ierr)
1105+
time_real = file_time
11051106
11061107
allocate (proc_bubble_counts(file_num_procs))
11071108
@@ -1271,6 +1272,7 @@ contains
12711272
call MPI_BCAST(file_time, 1, mpi_p, 0, MPI_COMM_WORLD, ierr)
12721273
call MPI_BCAST(file_dt, 1, mpi_p, 0, MPI_COMM_WORLD, ierr)
12731274
call MPI_BCAST(file_num_procs, 1, MPI_INTEGER, 0, MPI_COMM_WORLD, ierr)
1275+
time_real = file_time
12741276
12751277
allocate (proc_bubble_counts(file_num_procs))
12761278

0 commit comments

Comments
 (0)