From da42d97c76ca3398888f6aed4f8e19563b0f4249 Mon Sep 17 00:00:00 2001 From: shawley <> Date: Thu, 21 Mar 2002 14:32:00 +0000 Subject: re-enabled static boundary condition darcs-hash:20020321143208-e415b-adc0e5bdbb458c42301f63727493c6fb9357a73e.gz --- CarpetExtra/WaveToyF77/src/WaveToy.F77 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'CarpetExtra') diff --git a/CarpetExtra/WaveToyF77/src/WaveToy.F77 b/CarpetExtra/WaveToyF77/src/WaveToy.F77 index 4c8933b04..1194e225b 100644 --- a/CarpetExtra/WaveToyF77/src/WaveToy.F77 +++ b/CarpetExtra/WaveToyF77/src/WaveToy.F77 @@ -162,8 +162,8 @@ c ----------------------------------- call BndFlatVN (ierr, cctkGH, sw, "wavetoy::phi") else if (CCTK_EQUALS(bound, "zero")) then call BndScalarVN (ierr, cctkGH, sw, zero, "wavetoy::phi") -c$$$ else if (CCTK_EQUALS(bound, "static")) then -c$$$ call BndCopyTLVN (ierr, cctkGH, sw, 1, 0, "wavetoy::phi") + else if (CCTK_EQUALS(bound, "static")) then + call BndStaticVN (ierr, cctkGH, sw, 1, 0, "wavetoy::phi") else if (CCTK_EQUALS(bound, "radiation")) then call BndRadiativeVN (ierr, cctkGH, sw, zero, one, $ "wavetoy::phi", "wavetoy::phi") -- cgit v1.2.3