diff options
| author | shawley <> | 2002-02-18 14:47:00 +0000 |
|---|---|---|
| committer | shawley <> | 2002-02-18 14:47:00 +0000 |
| commit | f3114f0a5e8dc8e08d2a756e97976c1cbac8a33f (patch) | |
| tree | a06714c7ebd28b0413def9bc01ca966a73e9e244 /CarpetExtra/FOWaveToyF77 | |
| parent | 42309e1fe2f9edcd3177aa98c5e837b0a475bb92 (diff) | |
fixed equation for phi in evolution routine
darcs-hash:20020218144713-e415b-e6cbe2d67758f31f91bb37644bcff36e568c7fb4.gz
Diffstat (limited to 'CarpetExtra/FOWaveToyF77')
| -rw-r--r-- | CarpetExtra/FOWaveToyF77/src/FOWaveToy.F77 | 2 |
1 files changed, 1 insertions, 1 deletions
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 |