diff options
| -rw-r--r-- | schedule.ccl | 2 | ||||
| -rw-r--r-- | src/ADMConstraints.F | 6 | ||||
| -rw-r--r-- | src/InitSymBound.F | 8 |
3 files changed, 8 insertions, 8 deletions
diff --git a/schedule.ccl b/schedule.ccl index 444eb8a..baa01d9 100644 --- a/schedule.ccl +++ b/schedule.ccl @@ -1,4 +1,4 @@ -schedule ADMConstraint_InitSymBound at CCTK_POSTSTEP +schedule ADMConstraint_InitSymBound at CCTK_BASEGRID { LANG: Fortran } "Register GF symmetries for ADM Constraints" diff --git a/src/ADMConstraints.F b/src/ADMConstraints.F index 7296ece..86a321a 100644 --- a/src/ADMConstraints.F +++ b/src/ADMConstraints.F @@ -170,11 +170,11 @@ c ---------------------------------- c Synchronize and apply flat boundary conditions - call ApplySym(GH,"admconstraints::admconstraints") - call ApplyFlatBC(GH,sw,"admconstraints::admconstraints") + call ApplySymmetry(cctkGH,"admconstraints::admconstraints") + call ApplyFlatBC(cctkGH,sw,"admconstraints::admconstraints") if (constraint_communication.eq.1) then - call CCTK_SyncGroup(GH,"adm::ADM_constraints") + call CCTK_SyncGroup(cctkGH,"adm::ADM_constraints") end if end subroutine ADMConstraints diff --git a/src/InitSymBound.F b/src/InitSymBound.F index 1e11e8d..b8f3533 100644 --- a/src/InitSymBound.F +++ b/src/InitSymBound.F @@ -34,10 +34,10 @@ INTEGER,PARAMETER :: one = 1 c GROUP: constraints - call SetSym(GH, one, one, one,'admconstraints::ham') - call SetSym(GH,-one, one, one,'admconstraints::momx') - call SetSym(GH, one,-one, one,'admconstraints::momy') - call SetSym(GH, one, one,-one,'admconstraints::momz') + call SetSymmetry(cctkGH, one, one, one,'admconstraints::ham') + call SetSymmetry(cctkGH,-one, one, one,'admconstraints::momx') + call SetSymmetry(cctkGH, one,-one, one,'admconstraints::momy') + call SetSymmetry(cctkGH, one, one,-one,'admconstraints::momz') return |