diff options
Diffstat (limited to 'CarpetExtra/WaveToyMoL/src/estimateerror.F77')
| -rw-r--r-- | CarpetExtra/WaveToyMoL/src/estimateerror.F77 | 6 |
1 files changed, 4 insertions, 2 deletions
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) |