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/SpaceTimeToy/param.ccl            | 3 ++-
 CarpetExtra/SpaceTimeToy/src/SpaceTimeToy.F77 | 8 +++++---
 2 files changed, 7 insertions(+), 4 deletions(-)

(limited to 'CarpetExtra/SpaceTimeToy')

diff --git a/CarpetExtra/SpaceTimeToy/param.ccl b/CarpetExtra/SpaceTimeToy/param.ccl
index 8a7f8b783..d48df8cff 100644
--- a/CarpetExtra/SpaceTimeToy/param.ccl
+++ b/CarpetExtra/SpaceTimeToy/param.ccl
@@ -1,10 +1,11 @@
 # Parameter definitions for thorn SpaceTimeToy
-# $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/SpaceTimeToy/param.ccl,v 1.1 2001/03/17 16:05:56 eschnett Exp $
+# $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/SpaceTimeToy/param.ccl,v 1.2 2001/03/21 22:57:40 eschnett Exp $
 
 private:
  
 KEYWORD bound "Type of boundary condition to use"
 {
+  "none"      :: "No boundary condition"
   "flat"      :: "Flat boundary condition"
   "radiation" :: "Radiation boundary condition"
   "robin"     :: "Robin boundary condition"
diff --git a/CarpetExtra/SpaceTimeToy/src/SpaceTimeToy.F77 b/CarpetExtra/SpaceTimeToy/src/SpaceTimeToy.F77
index e62b60bc2..387059dc2 100644
--- a/CarpetExtra/SpaceTimeToy/src/SpaceTimeToy.F77
+++ b/CarpetExtra/SpaceTimeToy/src/SpaceTimeToy.F77
@@ -1,5 +1,5 @@
 c     -*-Fortran-*-
-c     $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/SpaceTimeToy/src/SpaceTimeToy.F77,v 1.4 2001/03/20 16:29:55 eschnett Exp $
+c     $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/SpaceTimeToy/src/SpaceTimeToy.F77,v 1.5 2001/03/21 22:57:40 eschnett Exp $
       
 #include "cctk.h" 
 #include "cctk_Parameters.h"
@@ -163,7 +163,7 @@ c     Apply boundary condition
       if (CCTK_EQUALS(bound, "flat")) then
          call BndFlatGN (ierr, cctkGH, sw, "spacetimetoy::spacetimeevolve")
       else if (CCTK_EQUALS(bound, "zero")) then
-         call BndScalarGN (ierr, cctkGH, zero, sw,
+         call BndScalarGN (ierr, cctkGH, sw, zero,
      $        "spacetimetoy::spacetimeevolve")
       else if (CCTK_EQUALS(bound, "radiation")) then
          call BndRadiativeGN (ierr, cctkGH, sw, zero, one,
@@ -171,8 +171,10 @@ c     Apply boundary condition
       else if (CCTK_EQUALS(bound, "robin")) then
          call BndRobinGN (ierr, cctkGH, sw, finf, npow,
      $        "spacetimetoy::spacetimeevolve")
+      else if (CCTK_EQUALS(bound, "none")) then
+         ierr = 0
       else
-         call CCTK_WARN (0, "Internal error")
+         call CCTK_WARN (0, "internal error")
       end if
       if (ierr .lt. 0)  then
          call CCTK_WARN (0, "Error while applying boundary condition")
-- 
cgit v1.2.3