mirror of
https://github.com/paboyle/Grid.git
synced 2025-04-08 05:00:46 +01:00
QedFVol: Patch to fix MPI communicators error
This commit is contained in:
parent
95af55128e
commit
840814c776
@ -55,9 +55,9 @@ void CartesianCommunicator::Init(int *argc, char ***argv) {
|
||||
|
||||
CartesianCommunicator::~CartesianCommunicator()
|
||||
{
|
||||
int MPI_is_finalised;
|
||||
MPI_Finalized(&MPI_is_finalised);
|
||||
if (communicator && MPI_is_finalised)
|
||||
// int MPI_is_finalised;
|
||||
// MPI_Finalized(&MPI_is_finalised);
|
||||
if (communicator && !MPI::Is_finalized())
|
||||
MPI_Comm_free(&communicator);
|
||||
}
|
||||
|
||||
|
Loading…
x
Reference in New Issue
Block a user