diff options
| -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) |