diff options
-rw-r--r-- | src/InitSymBound.F90 | 5 | ||||
-rw-r--r-- | src/WaveToy.F90 | 8 |
2 files changed, 7 insertions, 6 deletions
diff --git a/src/InitSymBound.F90 b/src/InitSymBound.F90 index 2e8be89..8822a73 100644 --- a/src/InitSymBound.F90 +++ b/src/InitSymBound.F90 @@ -30,9 +30,10 @@ subroutine WaveToyFreeF90_InitSymBound(CCTK_ARGUMENTS) implicit none DECLARE_CCTK_ARGUMENTS - + + INTEGER :: ierr INTEGER, DIMENSION(3) :: sym = 1 - call SetCartSymmetry(cctkGH, sym, 'wavetoy::phi') + call SetCartSymVN(ierr, cctkGH, sym, 'wavetoy::phi') end subroutine WaveToyFreeF90_InitSymbound diff --git a/src/WaveToy.F90 b/src/WaveToy.F90 index 58e337f..c4e1f87 100644 --- a/src/WaveToy.F90 +++ b/src/WaveToy.F90 @@ -48,14 +48,14 @@ subroutine WaveToyFreeF90_Evolution(CCTK_ARGUMENTS) CCTK_REAL :: dx2i,dy2i,dz2i CCTK_REAL :: factor - + ! Set up shorthands ! ----------------- dx = CCTK_DELTA_SPACE(1) dy = CCTK_DELTA_SPACE(2) dz = CCTK_DELTA_SPACE(3) dt = CCTK_DELTA_TIME - + dx2 = dx*dx dy2 = dy*dy dz2 = dz*dz @@ -101,7 +101,7 @@ end subroutine WaveToyFreeF90_Evolution @desc Boundary conditions for the wave equation @enddesc - @calls FlatBC,RadiativeBC + @calls CartSymGH,FlatBC,RadiativeBC @calledby @history @@ -122,7 +122,7 @@ subroutine WaveToyFreeF90_Boundaries(CCTK_ARGUMENTS) CCTK_REAL, parameter :: zero = 0.0 CCTK_REAL, parameter :: one = 1.0 - call CartSymBCGroup(ierr,cctkGH,"wavetoy::scalarevolve") + call CartSymGN(ierr,cctkGH,"wavetoy::scalarevolve") if (CCTK_EQUALS(bound,"flat")) then call FlatBCVar(ierr,cctkGH,sw,"wavetoy::phi") |