diff options
| author | eschnett <> | 2001-03-28 16:56:00 +0000 |
|---|---|---|
| committer | eschnett <> | 2001-03-28 16:56:00 +0000 |
| commit | 343b73de6101bbb43c25680f88d2bbccf5a7423f (patch) | |
| tree | 833216a5d1b0db516ccb2ab5798f983fc493e37b /CarpetExtra/WaveToyF77/src | |
| parent | e38a471f8346adf93d4cf7f2157eb4909403de55 (diff) | |
Higher-order interpolation requires more ghost zones. Changed Carpet
Higher-order interpolation requires more ghost zones. Changed Carpet
and CarpetLib to provide for that, and switched WaveToy to using two
ghost zones.
darcs-hash:20010328165604-f6438-1cb76681b90dda1f5934cbda405b6c32b754b6e5.gz
Diffstat (limited to 'CarpetExtra/WaveToyF77/src')
| -rw-r--r-- | CarpetExtra/WaveToyF77/src/WaveToy.F77 | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/CarpetExtra/WaveToyF77/src/WaveToy.F77 b/CarpetExtra/WaveToyF77/src/WaveToy.F77 index adcdea62a..76d15e183 100644 --- a/CarpetExtra/WaveToyF77/src/WaveToy.F77 +++ b/CarpetExtra/WaveToyF77/src/WaveToy.F77 @@ -77,6 +77,17 @@ c ----------------- c Do the evolution c ---------------- + do k = 1, cctk_lsh(3) + do j = 1, cctk_lsh(2) + do i = 1, cctk_lsh(1) + if (phi(i,j,k).gt.1.0d10) then + print *,"problem",i,j,k + end if + phi_n(i,j,k) = 1.0d100 + end do + end do + end do + do k = kstart, kend do j = jstart, jend do i = istart, iend |