diff options
| author | eschnett <> | 2001-03-28 16:56:00 +0000 |
|---|---|---|
| committer | eschnett <> | 2001-03-28 16:56:00 +0000 |
| commit | 6c82b2c1b778cf77f77d5f7446fc9ed1f641c53e (patch) | |
| tree | 84e5a3011b238535707acd06547a68d2f269bba6 /CarpetExtra/WaveToyF77 | |
| parent | 343b73de6101bbb43c25680f88d2bbccf5a7423f (diff) | |
Removed leftover debugging statements.
darcs-hash:20010328165645-f6438-421f9dce566c6a63446cb6d0f09f52b95ec88211.gz
Diffstat (limited to 'CarpetExtra/WaveToyF77')
| -rw-r--r-- | CarpetExtra/WaveToyF77/src/WaveToy.F77 | 11 |
1 files changed, 0 insertions, 11 deletions
diff --git a/CarpetExtra/WaveToyF77/src/WaveToy.F77 b/CarpetExtra/WaveToyF77/src/WaveToy.F77 index 76d15e183..adcdea62a 100644 --- a/CarpetExtra/WaveToyF77/src/WaveToy.F77 +++ b/CarpetExtra/WaveToyF77/src/WaveToy.F77 @@ -77,17 +77,6 @@ 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 |