diff options
author | Erik Schnetter <schnetter@aei.mpg.de> | 2005-05-08 17:13:00 +0000 |
---|---|---|
committer | Erik Schnetter <schnetter@aei.mpg.de> | 2005-05-08 17:13:00 +0000 |
commit | 034c83e8d2dcf0538d82864fd04333576e47d718 (patch) | |
tree | 189ce725fac62a69c241b35c68fe97779b7cd730 /CarpetExtra/WaveToyMoL/src/estimateerror.F77 | |
parent | f788468f8518f4e5bff5735b49f32c5a736fa5f9 (diff) |
WaveToyMoL: Support 4th order differencing
darcs-hash:20050508171319-891bb-48b570b6edcaa6409e931ef41afbc6049bcbb039.gz
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) |