diff options
| author | Erik Schnetter <schnetter@cct.lsu.edu> | 2007-11-07 14:13:00 +0000 |
|---|---|---|
| committer | Erik Schnetter <schnetter@cct.lsu.edu> | 2007-11-07 14:13:00 +0000 |
| commit | 2bf0a51c8610fc9bee9bc08995c8c82462fa3faa (patch) | |
| tree | 5e7d58aa2c00ba421f14b2f9baecaf470c30a033 /CarpetExtra | |
| parent | d071f07a55d995b58b0648e5d2b9a1ac3bf14a4b (diff) | |
WaveToyMoL: Correct grid spacing indexing error
darcs-hash:20071107141347-dae7b-e2157d07048e20139f64726196bd1b4269794d9c.gz
Diffstat (limited to 'CarpetExtra')
| -rw-r--r-- | CarpetExtra/WaveToyMoL/src/calcrhs.F77 | 2 | ||||
| -rw-r--r-- | CarpetExtra/WaveToyMoL/src/estimateerror.F77 | 2 |
2 files changed, 2 insertions, 2 deletions
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) |