diff options
| author | eschnett <> | 2001-03-13 12:06:00 +0000 |
|---|---|---|
| committer | eschnett <> | 2001-03-13 12:06:00 +0000 |
| commit | f82185918667922d15bd0b2c019ce71b1a530a63 (patch) | |
| tree | 612419f07b5a84b75491c9310fb881ccbd25aec8 /CarpetExtra/WaveToyF77/src | |
| parent | e53cc92a0bf2ac20dceb13da423382fef636a3aa (diff) | |
Fixing bugs with octant mode, coordinates, and ASCII output.
Fixing bugs with octant mode, coordinates, and ASCII output.
Adapting the test suite.
darcs-hash:20010313120652-f6438-6411b2838ea80747009724e17197ae2a7aaeb808.gz
Diffstat (limited to 'CarpetExtra/WaveToyF77/src')
| -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 |