diff options
Diffstat (limited to 'CarpetExtra/WaveToyF77/src/WaveToy.F77')
| -rw-r--r-- | CarpetExtra/WaveToyF77/src/WaveToy.F77 | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/CarpetExtra/WaveToyF77/src/WaveToy.F77 b/CarpetExtra/WaveToyF77/src/WaveToy.F77 index ec10a310c..310d15304 100644 --- a/CarpetExtra/WaveToyF77/src/WaveToy.F77 +++ b/CarpetExtra/WaveToyF77/src/WaveToy.F77 @@ -136,10 +136,6 @@ c --------------------- sw(2) = 1 sw(3) = 1 -c Apply the symmetry boundary conditions on any coordinate axes -c ------------------------------------------------------------- - call Cart3dSymGN (ierr, cctkGH, "wavetoy::scalarevolve") - c Apply the outer boundary conditions c ----------------------------------- if (CCTK_EQUALS(bound, "flat")) then @@ -159,4 +155,12 @@ c ----------------------------------- call CCTK_WARN (0, "Boundary conditions not applied - giving up!") end if +c Apply the symmetry boundary conditions on any coordinate axes +c ------------------------------------------------------------- + call Cart3dSymGN (ierr, cctkGH, "wavetoy::scalarevolve") + + if (ierr .lt. 0) then + call CCTK_WARN (0, "Boundary conditions not applied - giving up!") + end if + end |