From a571c4c6edb90a0446d2c9b4cd104546aa244292 Mon Sep 17 00:00:00 2001
From: allen <allen@b7a48df3-cbbf-4440-997f-b4b717c9f7fc>
Date: Wed, 16 Jul 2003 17:54:36 +0000
Subject: Synchronize all output variables on leaving ANALYSIS routines.

The parameter constraint_communication has no effect now and is deprecated.


git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/ADMConstraints/trunk@91 b7a48df3-cbbf-4440-997f-b4b717c9f7fc
---
 README               | 4 ++++
 param.ccl            | 3 ++-
 schedule.ccl         | 3 +++
 src/ADMConstraints.F | 7 -------
 4 files changed, 9 insertions(+), 8 deletions(-)

diff --git a/README b/README
index 862e7c6..17a5226 100644
--- a/README
+++ b/README
@@ -17,3 +17,7 @@ aware. Matter is included with the CalcTmunu mechanism.
 
 Hamiltonian constraint: ham, hamnormalized
 Momentum constraints: momx, momy, momz
+
+4. All variables are synchronized on output of the analysis routines
+   before output.
+
diff --git a/param.ccl b/param.ccl
index f9d661b..8980568 100644
--- a/param.ccl
+++ b/param.ccl
@@ -23,7 +23,8 @@ BOOLEAN constraints_persist "Keep storage of ham and mom* around for use in spec
 {
 } "no"
 
-BOOLEAN constraint_communication "If yes sychronise the constraints"
+# Deprecated in Beta 14
+BOOLEAN constraint_communication "THIS PARAMETER IS NOT USED"
 {
 } "no"
 
diff --git a/schedule.ccl b/schedule.ccl
index f26dd78..30e5fdf 100644
--- a/schedule.ccl
+++ b/schedule.ccl
@@ -27,6 +27,7 @@ if (constraints_persist)
 
   schedule GROUP ApplyBCs as ADMConstraints_ApplyBCs at CCTK_POSTSTEP after ADMConstraints
   {
+    SYNC: hamiltonian, normalized_hamiltonian, momentum
   } "Apply (symmetry) boundary conditions"
 }
 else
@@ -35,6 +36,7 @@ else
   {
     STORAGE: hamiltonian, normalized_hamiltonian, momentum
     TRIGGERS: hamiltonian, normalized_hamiltonian, momentum
+    SYNC: hamiltonian, normalized_hamiltonian, momentum
   } "Evaluate ADM constraints, and perform symmetry boundary conditions"
 
   schedule ADMConstraints in ADMConstraintsGroup
@@ -46,3 +48,4 @@ else
   {
   } "Apply (symmetry) boundary conditions"
 }
+
diff --git a/src/ADMConstraints.F b/src/ADMConstraints.F
index f896b37..23ec87a 100644
--- a/src/ADMConstraints.F
+++ b/src/ADMConstraints.F
@@ -274,13 +274,6 @@ c     Apply flat boundary conditions at outer boundaries.
          call BndFlatGN(ierr,cctkGH,sw,"admconstraints::momentum")
       end if
 
-c     Synchronize.
-
-      if (constraint_communication.eq.1) then
-         call CCTK_SyncGroup(ierr,cctkGH,"admconstraints::hamiltonian")
-         call CCTK_SyncGroup(ierr,cctkGH,"admconstraints::momentum")
-      end if
-
 c     Cartoon.
 
       if (cartoon==1) then
-- 
cgit v1.2.3