diff options
| author | eschnett <> | 2001-03-26 00:28:00 +0000 |
|---|---|---|
| committer | eschnett <> | 2001-03-26 00:28:00 +0000 |
| commit | f058fd47cb5fdc0c330ccc59578fa8f433495afa (patch) | |
| tree | d0f0304206a58dec8b47fb6fc037e60a5ff953c2 /CarpetExtra/HydroToy | |
| parent | b06a18e0411e9fd7bb64fdbc263092a15fbe4f5f (diff) | |
Fixed bug in evolution.
darcs-hash:20010326002836-f6438-62759df3598ab0493aed1c466d79351f49560167.gz
Diffstat (limited to 'CarpetExtra/HydroToy')
| -rw-r--r-- | CarpetExtra/HydroToy/src/HydroToy.F77 | 8 |
1 files changed, 4 insertions, 4 deletions
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) |