diff options
| author | schnetter <> | 2004-08-28 17:10:00 +0000 |
|---|---|---|
| committer | schnetter <> | 2004-08-28 17:10:00 +0000 |
| commit | 63f139165b83a7432616db71f74c80b57b7cd65f (patch) | |
| tree | 86554254e0c87c82addc0a64b9a221e1902e9cf6 /CarpetExtra | |
| parent | fac42607d37794f21631a09f61ba1a7d40e72c12 (diff) | |
Correct grid spacing.
darcs-hash:20040828171033-07bb3-1cb8951a49757ded795cebbbe0151d090257d275.gz
Diffstat (limited to 'CarpetExtra')
| -rw-r--r-- | CarpetExtra/WaveToyFO/src/calcrhs.F77 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/CarpetExtra/WaveToyFO/src/calcrhs.F77 b/CarpetExtra/WaveToyFO/src/calcrhs.F77 index c141654a0..55734ed1e 100644 --- a/CarpetExtra/WaveToyFO/src/calcrhs.F77 +++ b/CarpetExtra/WaveToyFO/src/calcrhs.F77 @@ -1,4 +1,4 @@ -c $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/WaveToyFO/src/calcrhs.F77,v 1.7 2004/05/07 22:06:08 schnetter Exp $ +c $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/WaveToyFO/src/calcrhs.F77,v 1.8 2004/08/28 19:10:33 schnetter Exp $ #include "cctk.h" #include "cctk_Arguments.h" @@ -74,7 +74,7 @@ c$$$ WaveToyFO_Deriv = (- 3*f0 + 4*fp1 - fp2) / (2*dx) 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) |