From 034c83e8d2dcf0538d82864fd04333576e47d718 Mon Sep 17 00:00:00 2001 From: Erik Schnetter Date: Sun, 8 May 2005 17:13:00 +0000 Subject: WaveToyMoL: Support 4th order differencing darcs-hash:20050508171319-891bb-48b570b6edcaa6409e931ef41afbc6049bcbb039.gz --- CarpetExtra/WaveToyMoL/src/estimateerror.F77 | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'CarpetExtra/WaveToyMoL/src/estimateerror.F77') diff --git a/CarpetExtra/WaveToyMoL/src/estimateerror.F77 b/CarpetExtra/WaveToyMoL/src/estimateerror.F77 index f046183be..ae8d3f0c9 100644 --- a/CarpetExtra/WaveToyMoL/src/estimateerror.F77 +++ b/CarpetExtra/WaveToyMoL/src/estimateerror.F77 @@ -15,8 +15,10 @@ integer i, j, k integer d do d=1,3 - imin(d) = 1+bndwidth - imax(d) = cctk_lsh(d)-bndwidth + imin(d) = 1+cctk_nghostzones(d) + imax(d) = cctk_lsh(d)-cctk_nghostzones(d) + if (cctk_bbox(2*d-1).ne.0) imin(d) = 1+bndwidth + 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) -- cgit v1.2.3