From e93ba7bbf376b2ac42eca2d298e5bf08d9abf902 Mon Sep 17 00:00:00 2001
From: schnetter <>
Date: Sun, 26 Aug 2001 11:58:00 +0000
Subject: 1. Added interface for AMR.  Carpet still contains no clusterer, but

1. Added interface for AMR.  Carpet still contains no clusterer, but
the application can now determine where to refine.

2. Made scalars (again) available all the time.  This allows the
scheduler to use scalars.

darcs-hash:20010826115851-07bb3-eca06f09fe49430522d9770bdf5ff2e99f7578a6.gz
---
 CarpetExtra/SpaceTimeToy/src/SpaceTimeToy.F77 | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'CarpetExtra/SpaceTimeToy/src')

diff --git a/CarpetExtra/SpaceTimeToy/src/SpaceTimeToy.F77 b/CarpetExtra/SpaceTimeToy/src/SpaceTimeToy.F77
index a5d8eab8c..304837390 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.8 2001/04/23 08:10:22 schnetter Exp $
+c     $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/SpaceTimeToy/src/SpaceTimeToy.F77,v 1.9 2001/08/26 13:59:58 schnetter Exp $
       
 #include "cctk.h" 
 #include "cctk_Parameters.h"
@@ -29,7 +29,7 @@ c     Copy
          end do
       end do
       
-      if (cctk_isthornactive("hydrotoy").eq.1) then
+      if (hydrotoy_active.eq.1) then
          
          do k=1,cctk_lsh(3)
             do j=1,cctk_lsh(2)
@@ -103,7 +103,7 @@ c     Average
          end do
       end do
       
-      if (cctk_isthornactive("hydrotoy").eq.1) then
+      if (hydrotoy_active.eq.1) then
          
          do k=1,cctk_lsh(3)
             do j=1,cctk_lsh(2)
-- 
cgit v1.2.3