diff options
author | allen <allen@b7a48df3-cbbf-4440-997f-b4b717c9f7fc> | 2003-07-16 17:54:36 +0000 |
---|---|---|
committer | allen <allen@b7a48df3-cbbf-4440-997f-b4b717c9f7fc> | 2003-07-16 17:54:36 +0000 |
commit | a571c4c6edb90a0446d2c9b4cd104546aa244292 (patch) | |
tree | e7821fa9982e80418072c3228c4013c8d7191b81 | |
parent | b1b623e51da66ab731dda3246a4f66e16600dd9d (diff) |
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
-rw-r--r-- | README | 4 | ||||
-rw-r--r-- | param.ccl | 3 | ||||
-rw-r--r-- | schedule.ccl | 3 | ||||
-rw-r--r-- | src/ADMConstraints.F | 7 |
4 files changed, 9 insertions, 8 deletions
@@ -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. + @@ -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 |