diff options
Diffstat (limited to 'src/WaveToy.F77')
| -rw-r--r-- | src/WaveToy.F77 | 27 |
1 files changed, 6 insertions, 21 deletions
diff --git a/src/WaveToy.F77 b/src/WaveToy.F77 index fc361b8..30908dc 100644 --- a/src/WaveToy.F77 +++ b/src/WaveToy.F77 @@ -112,24 +112,9 @@ c ---------------- CCTK_INT Boundary_SelectVarForBC c Local declarations - CCTK_REAL zero,one - CCTK_REAL finf - integer npow - integer ierr - integer sw(3) + CCTK_INT ierr - ierr = -1 - zero = 0.0 - one = 1.0 - - npow = 1 - finf = 1.0d0 - -c Set the stencil width -c --------------------- - sw(1)=1 - sw(2)=1 - sw(3)=1 + ierr = 0 c Apply the symmetry boundary conditions on any coordinate axes c ------------------------------------------------------------- @@ -156,12 +141,12 @@ c be passed ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1, $ "wavetoy::phi", "Scalar"); else if (CCTK_EQUALS(bound,"none")) then -c Do nothing - else - call CCTK_WARN(0,"Unrecognized boundary condition") + ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1, + $ "wavetoy::phi", "None"); end if + if (ierr < 0) then - call CCTK_WARN(0,"Boundary conditions not applied - giving up!") + call CCTK_WARN(0,"WaveToyF77_Boundaries: Error selecting boundary condition") end if return |