From 2bf0a51c8610fc9bee9bc08995c8c82462fa3faa Mon Sep 17 00:00:00 2001 From: Erik Schnetter Date: Wed, 7 Nov 2007 14:13:00 +0000 Subject: WaveToyMoL: Correct grid spacing indexing error darcs-hash:20071107141347-dae7b-e2157d07048e20139f64726196bd1b4269794d9c.gz --- CarpetExtra/WaveToyMoL/src/calcrhs.F77 | 2 +- CarpetExtra/WaveToyMoL/src/estimateerror.F77 | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) (limited to 'CarpetExtra') diff --git a/CarpetExtra/WaveToyMoL/src/calcrhs.F77 b/CarpetExtra/WaveToyMoL/src/calcrhs.F77 index 371278970..32f744b70 100644 --- a/CarpetExtra/WaveToyMoL/src/calcrhs.F77 +++ b/CarpetExtra/WaveToyMoL/src/calcrhs.F77 @@ -22,7 +22,7 @@ if (cctk_bbox(2*d ).ne.0) imax(d) = cctk_lsh(d)-bndwidth end do do d=1,3 - dx(d) = CCTK_DELTA_SPACE(3) + dx(d) = CCTK_DELTA_SPACE(d) end do do k=imin(3),imax(3) do j=imin(2),imax(2) diff --git a/CarpetExtra/WaveToyMoL/src/estimateerror.F77 b/CarpetExtra/WaveToyMoL/src/estimateerror.F77 index ae8d3f0c9..95764476e 100644 --- a/CarpetExtra/WaveToyMoL/src/estimateerror.F77 +++ b/CarpetExtra/WaveToyMoL/src/estimateerror.F77 @@ -21,7 +21,7 @@ if (cctk_bbox(2*d ).ne.0) imax(d) = cctk_lsh(d)-bndwidth end do do d=1,3 - dx(d) = CCTK_DELTA_SPACE(3) + dx(d) = CCTK_DELTA_SPACE(d) end do do k=imin(3),imax(3) do j=imin(2),imax(2) -- cgit v1.2.3