Merge pull request #195 from mabarnes/mpi-init-only-once

Make sure MPI.Init() is only ever called once
mabarnes · Mar 23, 2024 · fbf7f9d · fbf7f9d
2 parents 4a9d188 + c7141bd
commit fbf7f9d
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/moment_kinetics/src/communication.jl b/moment_kinetics/src/communication.jl
@@ -117,7 +117,9 @@ const global_Win_store = Vector{MPI.Win}(undef, 0)
 """
 """
 function __init__()
-    MPI.Init()
+    if !MPI.Initialized()
+        MPI.Init()
+    end
 
     comm_world.val = MPI.COMM_WORLD.val