Improve named barriers

Introduce dist::barrier as low-level implementation of a named
barrier.

Use it in Carpet::NamedBarrier.

Use the above in almost all barrier calls.

1 files changed, 2 insertions, 2 deletions

diff --git a/Carpet/CarpetLib/src/gdata.cc b/Carpet/CarpetLib/src/gdata.cc
index 2feda1882..cba9f1796 100644
--- a/Carpet/CarpetLib/src/gdata.cc
+++ b/Carpet/CarpetLib/src/gdata.cc
@@ -51,7 +51,7 @@ gdata::gdata (const int varindex_,
   allgdatai = allgdata.insert(allgdata.end(), this);
   
   if (barriers) {
-    MPI_Barrier (dist::comm());
+    dist::barrier (dist::comm(), 783988953, "CarpetLib::gdata::gdata");
   }
 }
 
@@ -63,7 +63,7 @@ gdata::~gdata ()
   allgdata.erase(allgdatai);
   
   if (barriers) {
-    MPI_Barrier (dist::comm());
+    dist::barrier (dist::comm(), 109687805, "CarpetLib::gdata::~gdata");
   }
 }