From f3114f0a5e8dc8e08d2a756e97976c1cbac8a33f Mon Sep 17 00:00:00 2001
From: shawley <>
Date: Mon, 18 Feb 2002 14:47:00 +0000
Subject: fixed equation for phi in evolution routine

darcs-hash:20020218144713-e415b-e6cbe2d67758f31f91bb37644bcff36e568c7fb4.gz
---
 CarpetExtra/FOWaveToyF77/src/FOWaveToy.F77 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'CarpetExtra/FOWaveToyF77')

diff --git a/CarpetExtra/FOWaveToyF77/src/FOWaveToy.F77 b/CarpetExtra/FOWaveToyF77/src/FOWaveToy.F77
index 74d9ca6f5..0e610b2fb 100644
--- a/CarpetExtra/FOWaveToyF77/src/FOWaveToy.F77
+++ b/CarpetExtra/FOWaveToyF77/src/FOWaveToy.F77
@@ -89,7 +89,7 @@ c     ----------------
                phiz(i,j,k) = phiz_p_p(i,j,k) + dt * dzi * ( 
      $                       pi_p(i,j,k+1) - pi_p(i,j,k-1)  )
 
-               phi(i,j,k) = phiz_p_p(i,j,k) + 2*dt * pi_p(i,j,i) 
+               phi(i,j,k) = phi_p_p(i,j,k) + 2*dt * pi_p(i,j,i) 
                
             end do
          end do
-- 
cgit v1.2.3