From 938906d87891f9b3aefde40586fee5d83f12385a Mon Sep 17 00:00:00 2001
From: shawley <>
Date: Wed, 27 Feb 2002 13:35:00 +0000
Subject: added static boundary condition

darcs-hash:20020227133540-e415b-a8abd6879ae346055c8db9f5439f2cd631d35380.gz
---
 CarpetExtra/WaveToyF77/param.ccl       | 3 ++-
 CarpetExtra/WaveToyF77/src/WaveToy.F77 | 3 +++
 2 files changed, 5 insertions(+), 1 deletion(-)

(limited to 'CarpetExtra/WaveToyF77')

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
-- 
cgit v1.2.3