diff options
author | shawley <> | 2002-03-21 14:32:00 +0000 |
---|---|---|
committer | shawley <> | 2002-03-21 14:32:00 +0000 |
commit | da42d97c76ca3398888f6aed4f8e19563b0f4249 (patch) | |
tree | 742383d9d5017aa731bf27ac92d8388988eed7e2 /CarpetExtra/WaveToyF77 | |
parent | b77816e5f1030cf793e0620309b3f0e880f8ef35 (diff) |
re-enabled static boundary condition
darcs-hash:20020321143208-e415b-adc0e5bdbb458c42301f63727493c6fb9357a73e.gz
Diffstat (limited to 'CarpetExtra/WaveToyF77')
-rw-r--r-- | CarpetExtra/WaveToyF77/src/WaveToy.F77 | 4 |
1 files changed, 2 insertions, 2 deletions
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") |