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

(limited to 'CarpetExtra/HydroToy')

diff --git a/CarpetExtra/HydroToy/param.ccl b/CarpetExtra/HydroToy/param.ccl
index 52ebb4665..2760c29dd 100644
--- a/CarpetExtra/HydroToy/param.ccl
+++ b/CarpetExtra/HydroToy/param.ccl
@@ -1,10 +1,11 @@
 # Parameter definitions for thorn HydroToy
-# $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/HydroToy/param.ccl,v 1.1 2001/03/18 22:37:09 eschnett Exp $
+# $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/HydroToy/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/HydroToy/src/HydroToy.F77 b/CarpetExtra/HydroToy/src/HydroToy.F77
index 7083133f8..dac1f9d65 100644
--- a/CarpetExtra/HydroToy/src/HydroToy.F77
+++ b/CarpetExtra/HydroToy/src/HydroToy.F77
@@ -1,5 +1,5 @@
 c     -*-Fortran-*-
-c     $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/HydroToy/src/HydroToy.F77,v 1.2 2001/03/19 21:30:34 eschnett Exp $
+c     $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/HydroToy/src/HydroToy.F77,v 1.3 2001/03/21 22:57:40 eschnett Exp $
       
 #include "cctk.h" 
 #include "cctk_Parameters.h"
@@ -158,7 +158,7 @@ c     Apply boundary condition
       if (CCTK_EQUALS(bound, "flat")) then
          call BndFlatGN (ierr, cctkGH, sw, "hydrotoy::hydroevolve")
       else if (CCTK_EQUALS(bound, "zero")) then
-         call BndScalarGN (ierr, cctkGH, zero, sw,
+         call BndScalarGN (ierr, cctkGH, sw, zero,
      $        "hydrotoy::hydroevolve")
       else if (CCTK_EQUALS(bound, "radiation")) then
          call BndRadiativeGN (ierr, cctkGH, sw, zero, one,
@@ -166,8 +166,10 @@ c     Apply boundary condition
       else if (CCTK_EQUALS(bound, "robin")) then
          call BndRobinGN (ierr, cctkGH, sw, finf, npow,
      $        "hydrotoy::hydroevolve")
+      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