diff options
author | shawley <> | 2002-02-27 13:35:00 +0000 |
---|---|---|
committer | shawley <> | 2002-02-27 13:35:00 +0000 |
commit | 938906d87891f9b3aefde40586fee5d83f12385a (patch) | |
tree | 5a81feb749e19c812e9d3dae606d5078795a20f6 /CarpetExtra/WaveToyF77 | |
parent | 37c726b0317cd03d086f34b2792795116cdf66bd (diff) |
added static boundary condition
darcs-hash:20020227133540-e415b-a8abd6879ae346055c8db9f5439f2cd631d35380.gz
Diffstat (limited to 'CarpetExtra/WaveToyF77')
-rw-r--r-- | CarpetExtra/WaveToyF77/param.ccl | 3 | ||||
-rw-r--r-- | CarpetExtra/WaveToyF77/src/WaveToy.F77 | 3 |
2 files changed, 5 insertions, 1 deletions
diff --git a/CarpetExtra/WaveToyF77/param.ccl b/CarpetExtra/WaveToyF77/param.ccl index 292969045..670d6f794 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.4 2002/01/08 14:21:12 schnetter Exp $ +# $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/WaveToyF77/param.ccl,v 1.5 2002/02/27 14:35:40 shawley Exp $ private: @@ -10,6 +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" } "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 909afb35b..77a3401f3 100644 --- a/CarpetExtra/WaveToyF77/src/WaveToy.F77 +++ b/CarpetExtra/WaveToyF77/src/WaveToy.F77 @@ -162,11 +162,14 @@ 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") 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 |