Skip to content

Commit e8d2790

Browse files
sbryngelsonclaude
andcommitted
Fix IB patch vel/angular_vel/angles broadcast inside wrong loop
patch_ib vel, angular_vel, and angles were broadcast inside the num_bc_patches_max loop instead of the num_patches_max loop where the other patch_ib fields are broadcast. Co-Authored-By: Claude Opus 4.6 <noreply@anthropic.com>
1 parent 9c41c0b commit e8d2790

File tree

1 file changed

+3
-4
lines changed

1 file changed

+3
-4
lines changed

src/pre_process/m_mpi_proxy.fpp

Lines changed: 3 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -80,10 +80,6 @@ contains
8080
call MPI_BCAST(patch_bc(i)%${VAR}$, 1, MPI_INTEGER, 0, MPI_COMM_WORLD, ierr)
8181
#:endfor
8282
83-
#:for VAR in ['vel', 'angular_vel', 'angles']
84-
call MPI_BCAST(patch_ib(i)%${VAR}$, 3, mpi_p, 0, MPI_COMM_WORLD, ierr)
85-
#:endfor
86-
8783
call MPI_BCAST(patch_bc(i)%radius, 1, mpi_p, 0, MPI_COMM_WORLD, ierr)
8884
8985
#:for VAR in ['centroid', 'length']
@@ -125,6 +121,9 @@ contains
125121
call MPI_BCAST(patch_icpp(i)%Y, size(patch_icpp(i)%Y), mpi_p, 0, MPI_COMM_WORLD, ierr)
126122
end if
127123
! Broadcast IB variables
124+
#:for VAR in ['vel', 'angular_vel', 'angles']
125+
call MPI_BCAST(patch_ib(i)%${VAR}$, 3, mpi_p, 0, MPI_COMM_WORLD, ierr)
126+
#:endfor
128127
call MPI_BCAST(patch_ib(i)%geometry, 1, MPI_INTEGER, 0, MPI_COMM_WORLD, ierr)
129128
call MPI_BCAST(patch_ib(i)%model_filepath, len(patch_ib(i)%model_filepath), MPI_CHARACTER, 0, MPI_COMM_WORLD, ierr)
130129
call MPI_BCAST(patch_ib(i)%model_threshold, 1, mpi_p, 0, MPI_COMM_WORLD, ierr)

0 commit comments

Comments
 (0)