diff options
-rw-r--r-- | src/ADMConstraints.F | 2 | ||||
-rw-r--r-- | src/InitSymBound.F | 9 |
2 files changed, 6 insertions, 5 deletions
diff --git a/src/ADMConstraints.F b/src/ADMConstraints.F index c999936..33735c5 100644 --- a/src/ADMConstraints.F +++ b/src/ADMConstraints.F @@ -172,7 +172,7 @@ c ---------------------------------- c Synchronize and apply flat boundary conditions - call CartSymBCGroup(ierr,cctkGH,"admconstraints::admconstraints") + call CartSymGN(ierr,cctkGH,"admconstraints::admconstraints") if (CCTK_Equals(bound,"flat") == 1) then call FlatBCGroup(ierr,cctkGH,sw,"admconstraints::admconstraints") diff --git a/src/InitSymBound.F b/src/InitSymBound.F index 63d7a85..fdefad6 100644 --- a/src/InitSymBound.F +++ b/src/InitSymBound.F @@ -33,24 +33,25 @@ INTEGER, PARAMETER :: one = 1 INTEGER, DIMENSION(3) :: sym + INTEGER :: ierr c GROUP: constraints sym(1) = one sym(2) = one sym(3) = one - call SetCartSymmetry(cctkGH, sym, 'admconstraints::ham') + call SetCartSymVN(ierr, cctkGH, sym, 'admconstraints::ham') sym(1) = -one sym(2) = one sym(3) = one - call SetCartSymmetry(cctkGH, sym, 'admconstraints::momx') + call SetCartSymVN(ierr, cctkGH, sym, 'admconstraints::momx') sym(1) = one sym(2) = -one sym(3) = one - call SetCartSymmetry(cctkGH, sym, 'admconstraints::momy') + call SetCartSymVN(ierr, cctkGH, sym, 'admconstraints::momy') sym(1) = one sym(2) = one sym(3) = -one - call SetCartSymmetry(cctkGH, sym, 'admconstraints::momz') + call SetCartSymVN(ierr, cctkGH, sym, 'admconstraints::momz') return |