From 018574eb13db6cc7af12688ef70dffb3d83397b8 Mon Sep 17 00:00:00 2001
From: schnetter <>
Date: Wed, 6 Mar 2002 16:47:00 +0000
Subject: 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
---
 CarpetExtra/WaveToyF77/param.ccl       | 4 ++--
 CarpetExtra/WaveToyF77/src/WaveToy.F77 | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

(limited to 'CarpetExtra/WaveToyF77')

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