diff options
Diffstat (limited to 'CarpetExtra/WaveToyF77/src/WaveToy.F77')
-rw-r--r-- | CarpetExtra/WaveToyF77/src/WaveToy.F77 | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/CarpetExtra/WaveToyF77/src/WaveToy.F77 b/CarpetExtra/WaveToyF77/src/WaveToy.F77 index f5ae091a1..adcdea62a 100644 --- a/CarpetExtra/WaveToyF77/src/WaveToy.F77 +++ b/CarpetExtra/WaveToyF77/src/WaveToy.F77 @@ -141,14 +141,16 @@ c ----------------------------------- if (CCTK_EQUALS(bound, "flat")) then call BndFlatVN (ierr, cctkGH, sw, "wavetoy::phi") else if (CCTK_EQUALS(bound, "zero")) then - call BndScalarVN (ierr, cctkGH, zero, sw, "wavetoy::phi") + call BndScalarVN (ierr, cctkGH, sw, zero, "wavetoy::phi") else if (CCTK_EQUALS(bound, "radiation")) then call BndRadiativeVN (ierr, cctkGH, sw, zero, one, $ "wavetoy::phi", "wavetoy::phi") else if (CCTK_EQUALS(bound, "robin")) then call BndRobinVN (ierr, cctkGH, sw, finf, npow, "wavetoy::phi") + else if (CCTK_EQUALS(bound, "none")) then + ierr = 0 else - call CCTK_WARN (0, "No boundary condition selected") + call CCTK_WARN (0, "internal error") end if if (ierr .lt. 0) then call CCTK_WARN (0, "Boundary conditions not applied - giving up!") |