diff --git a/src/Pstream/mpi/UPstream.C b/src/Pstream/mpi/UPstream.C index 7a5332ce81076cf03d8ced93dbb752d11bcf2dec..89778956254da7719e0956428737784c524b4b42 100644 --- a/src/Pstream/mpi/UPstream.C +++ b/src/Pstream/mpi/UPstream.C @@ -1129,7 +1129,17 @@ void Foam::UPstream::allocatePstreamCommunicator void Foam::UPstream::freePstreamCommunicator(const label communicator) { - if (communicator != 0) + // Not touching the first communicator (WORLD) + // or anything out-of bounds. + // + // No UPstream communicator indices when MPI is initialized outside + // of OpenFOAM - thus needs a bounds check too! + + if + ( + communicator > 0 + && (communicator < PstreamGlobals::MPICommunicators_.size()) + ) { if (PstreamGlobals::MPICommunicators_[communicator] != MPI_COMM_NULL) {