From 77b35c61254d043765551c86f6f36b5d892f50a5 Mon Sep 17 00:00:00 2001
From: eschnett <>
Date: Wed, 21 Mar 2001 21:57:00 +0000
Subject: Added custom time interpolator as well.

Added custom time interpolator as well.
Debugged other custom interpolator.
Runs like a greased flash now.

darcs-hash:20010321215740-f6438-bc99251c9a56354105ef885326d2360f275a85f2.gz
---
 CarpetExtra/WaveToyF77/param.ccl       | 4 ++--
 CarpetExtra/WaveToyF77/src/WaveToy.F77 | 6 ++++--
 2 files changed, 6 insertions(+), 4 deletions(-)

(limited to 'CarpetExtra/WaveToyF77')

diff --git a/CarpetExtra/WaveToyF77/param.ccl b/CarpetExtra/WaveToyF77/param.ccl
index a8ff624c4..20886dc92 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.2 2001/03/17 16:05:56 eschnett Exp $
+# $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/WaveToyF77/param.ccl,v 1.3 2001/03/21 22:57:40 eschnett Exp $
 
 private:
  
@@ -10,4 +10,4 @@ KEYWORD bound "Type of boundary condition to use"
   "radiation" :: "Radiation boundary condition"
   "robin"     :: "Robin boundary condition"
   "zero"      :: "Zero boundary condition"
-} "none"
+} "zero"
diff --git a/CarpetExtra/WaveToyF77/src/WaveToy.F77 b/CarpetExtra/WaveToyF77/src/WaveToy.F77
index f5ae091a1..adcdea62a 100644
--- a/CarpetExtra/WaveToyF77/src/WaveToy.F77
+++ b/CarpetExtra/WaveToyF77/src/WaveToy.F77
@@ -141,14 +141,16 @@ c     -----------------------------------
       if (CCTK_EQUALS(bound, "flat")) then
          call BndFlatVN (ierr, cctkGH, sw, "wavetoy::phi")
       else if (CCTK_EQUALS(bound, "zero")) then
-         call BndScalarVN (ierr, cctkGH, zero, sw, "wavetoy::phi")
+         call BndScalarVN (ierr, cctkGH, sw, zero, "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
-         call CCTK_WARN (0, "No boundary condition selected")
+         call CCTK_WARN (0, "internal error")
       end if
       if (ierr .lt. 0)  then
         call CCTK_WARN (0, "Boundary conditions not applied - giving up!")
-- 
cgit v1.2.3