From f058fd47cb5fdc0c330ccc59578fa8f433495afa Mon Sep 17 00:00:00 2001
From: eschnett <>
Date: Mon, 26 Mar 2001 00:28:00 +0000
Subject: Fixed bug in evolution.

darcs-hash:20010326002836-f6438-62759df3598ab0493aed1c466d79351f49560167.gz
---
 CarpetExtra/HydroToy/src/HydroToy.F77 | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'CarpetExtra/HydroToy')

diff --git a/CarpetExtra/HydroToy/src/HydroToy.F77 b/CarpetExtra/HydroToy/src/HydroToy.F77
index dac1f9d65..dcffc75f9 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.3 2001/03/21 22:57:40 eschnett Exp $
+c     $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/HydroToy/src/HydroToy.F77,v 1.4 2001/03/26 02:28:36 eschnett Exp $
       
 #include "cctk.h" 
 #include "cctk_Parameters.h"
@@ -109,9 +109,9 @@ c     Apply boundaries
       dt = CCTK_DELTA_TIME
       
 c     Evolve
-      do k=1,cctk_lsh(3)
-         do j=1,cctk_lsh(2)
-            do i=1,cctk_lsh(1)
+      do k=2,cctk_lsh(3)-1
+         do j=2,cctk_lsh(2)-1
+            do i=2,cctk_lsh(1)-1
                
                u_n(i,j,k)  = u_i(i,j,k)
      $              + dt * (vx_i(i+1,j,k) - vx_i(i-1,j,k)) / (2*dx)
-- 
cgit v1.2.3