diff --git a/src/common/m_mpi_common.fpp b/src/common/m_mpi_common.fpp index c54568d27..1ba675345 100644 --- a/src/common/m_mpi_common.fpp +++ b/src/common/m_mpi_common.fpp @@ -265,6 +265,8 @@ contains allocate (gathered_vector(sum(recounts))) call MPI_GATHERV(my_vector, counts, mpi_p, gathered_vector, recounts, displs, mpi_p, root, MPI_COMM_WORLD, ierr) +#else + gathered_vector = my_vector #endif end subroutine s_mpi_gather_data @@ -373,6 +375,8 @@ contains integer :: ierr !< Generic flag used to identify and report MPI errors call MPI_ALLREDUCE(var_loc, var_glb, 1, mpi_p, MPI_SUM, MPI_COMM_WORLD, ierr) +#else + var_glb = var_loc #endif end subroutine s_mpi_allreduce_sum @@ -440,6 +444,8 @@ contains integer :: ierr !< Generic flag used to identify and report MPI errors call MPI_ALLREDUCE(var_loc, var_glb, 1, mpi_p, MPI_MIN, MPI_COMM_WORLD, ierr) +#else + var_glb = var_loc #endif end subroutine s_mpi_allreduce_min @@ -470,6 +476,8 @@ contains integer :: ierr !< Generic flag used to identify and report MPI errors call MPI_ALLREDUCE(var_loc, var_glb, 1, mpi_p, MPI_MAX, MPI_COMM_WORLD, ierr) +#else + var_glb = var_loc #endif end subroutine s_mpi_allreduce_max diff --git a/src/pre_process/m_global_parameters.fpp b/src/pre_process/m_global_parameters.fpp index b358516fb..130a25a0b 100644 --- a/src/pre_process/m_global_parameters.fpp +++ b/src/pre_process/m_global_parameters.fpp @@ -396,6 +396,7 @@ contains particle_cloud(i)%moving_ibm = 0 particle_cloud(i)%seed = 0 particle_cloud(i)%cloud_geometry = 1 + particle_cloud(i)%shell_axis = 3 particle_cloud(i)%packing_method = dflt_int particle_cloud(i)%periodic = 0 end do diff --git a/src/pre_process/m_mpi_proxy.fpp b/src/pre_process/m_mpi_proxy.fpp index 6753d818c..592b2995b 100644 --- a/src/pre_process/m_mpi_proxy.fpp +++ b/src/pre_process/m_mpi_proxy.fpp @@ -147,6 +147,7 @@ contains call MPI_BCAST(particle_cloud(i)%moving_ibm, 1, MPI_INTEGER, 0, MPI_COMM_WORLD, ierr) call MPI_BCAST(particle_cloud(i)%seed, 1, MPI_INTEGER, 0, MPI_COMM_WORLD, ierr) call MPI_BCAST(particle_cloud(i)%cloud_geometry, 1, MPI_INTEGER, 0, MPI_COMM_WORLD, ierr) + call MPI_BCAST(particle_cloud(i)%shell_axis, 1, MPI_INTEGER, 0, MPI_COMM_WORLD, ierr) call MPI_BCAST(particle_cloud(i)%packing_method, 1, MPI_INTEGER, 0, MPI_COMM_WORLD, ierr) call MPI_BCAST(particle_cloud(i)%periodic, 1, MPI_INTEGER, 0, MPI_COMM_WORLD, ierr) end do diff --git a/src/simulation/m_mpi_proxy.fpp b/src/simulation/m_mpi_proxy.fpp index 71a13a139..8523bd338 100644 --- a/src/simulation/m_mpi_proxy.fpp +++ b/src/simulation/m_mpi_proxy.fpp @@ -149,9 +149,10 @@ contains #:endfor end do - ! manual: cfl_dt (runtime-computed logical), bc_io (BC-file existence) + ! manual: cfl_dt (runtime-computed logical), bc_io (BC-file existence), periodic_bc (from global BCs) call MPI_BCAST(cfl_dt, 1, MPI_LOGICAL, 0, MPI_COMM_WORLD, ierr) call MPI_BCAST(bc_io, 1, MPI_LOGICAL, 0, MPI_COMM_WORLD, ierr) + call MPI_BCAST(periodic_bc, 3, MPI_LOGICAL, 0, MPI_COMM_WORLD, ierr) ! manual: shear_stress, bulk_stress (derived from Re_size post-init on all ranks), ! bodyForces (derived from bf_x/y/z)