From 6c82b2c1b778cf77f77d5f7446fc9ed1f641c53e Mon Sep 17 00:00:00 2001
From: eschnett <>
Date: Wed, 28 Mar 2001 16:56:00 +0000
Subject: Removed leftover debugging statements.

darcs-hash:20010328165645-f6438-421f9dce566c6a63446cb6d0f09f52b95ec88211.gz
---
 CarpetExtra/WaveToyF77/src/WaveToy.F77 | 11 -----------
 1 file changed, 11 deletions(-)

(limited to 'CarpetExtra/WaveToyF77')

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
-- 
cgit v1.2.3