diff options
| author | schnetter <> | 2002-03-06 16:47:00 +0000 |
|---|---|---|
| committer | schnetter <> | 2002-03-06 16:47:00 +0000 |
| commit | 018574eb13db6cc7af12688ef70dffb3d83397b8 (patch) | |
| tree | 935be2cffd1a8412dc4ca58f0ed07f3fec0d0af3 /CarpetExtra/WaveToyF77 | |
| parent | 7e128eda1286b9c9a621c4187eaa23e448e9658f (diff) | |
Updated parameter files to new conventions.
Updated parameter files to new conventions.
Removed "static" boundary conditions; these depend on private changes
not available in Cactus.
darcs-hash:20020306164757-07bb3-531f54e20a2bb93536b467dffbb459f6b14777f1.gz
Diffstat (limited to 'CarpetExtra/WaveToyF77')
| -rw-r--r-- | CarpetExtra/WaveToyF77/param.ccl | 4 | ||||
| -rw-r--r-- | CarpetExtra/WaveToyF77/src/WaveToy.F77 | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/CarpetExtra/WaveToyF77/param.ccl b/CarpetExtra/WaveToyF77/param.ccl index 670d6f794..e6486c3ea 100644 --- a/CarpetExtra/WaveToyF77/param.ccl +++ b/CarpetExtra/WaveToyF77/param.ccl @@ -1,5 +1,5 @@ # Parameter definitions for thorn WaveToyF77 -# $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/WaveToyF77/param.ccl,v 1.5 2002/02/27 14:35:40 shawley Exp $ +# $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/WaveToyF77/param.ccl,v 1.6 2002/03/06 17:48:02 schnetter Exp $ private: @@ -10,7 +10,7 @@ KEYWORD bound "Type of boundary condition to use" "radiation" :: "Radiation boundary condition" "robin" :: "Robin boundary condition" "zero" :: "Zero boundary condition" - "static" :: "Static boundary condition" +# "static" :: "Static boundary condition" } "zero" KEYWORD excision_bound "Type of excision boundary condition to use" diff --git a/CarpetExtra/WaveToyF77/src/WaveToy.F77 b/CarpetExtra/WaveToyF77/src/WaveToy.F77 index 77a3401f3..4c8933b04 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") - else if (CCTK_EQUALS(bound, "static")) then - call BndCopyTLVN (ierr, cctkGH, sw, 1, 0, "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, "radiation")) then call BndRadiativeVN (ierr, cctkGH, sw, zero, one, $ "wavetoy::phi", "wavetoy::phi") |