diff options
Diffstat (limited to 'src/WaveToy.F90')
-rw-r--r-- | src/WaveToy.F90 | 8 |
1 files changed, 4 insertions, 4 deletions
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") |