diff options
| author | allen <allen@f80f6fb6-8356-4fd4-90bc-d84ad503c100> | 2001-04-18 20:37:29 +0000 |
|---|---|---|
| committer | allen <allen@f80f6fb6-8356-4fd4-90bc-d84ad503c100> | 2001-04-18 20:37:29 +0000 |
| commit | 9cb051ae27332acc243c77f9d2c4ed4454ff2181 (patch) | |
| tree | 3344926530f4ece8b1407b5ea31aa151e91ea21c | |
| parent | 827e65c2434cee0c79f8d180ab27104c0f06d216 (diff) | |
Updating timelevel names, and some formatting changes.
git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/WaveToyF90/trunk@60 f80f6fb6-8356-4fd4-90bc-d84ad503c100
| -rw-r--r-- | src/WaveToy.F | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/WaveToy.F b/src/WaveToy.F index 14bac7a..87bc3fe 100644 --- a/src/WaveToy.F +++ b/src/WaveToy.F @@ -74,11 +74,11 @@ do j = jstart, jend do i = istart, iend - phi_n(i,j,k) = factor*phi(i,j,k) - - 1 phi_p(i,j,k) + (dt2) * - 2 ((phi(i+1,j,k)+phi(i-1,j,k))*dx2i - 3 +(phi(i,j+1,k)+phi(i,j-1,k))*dy2i - 4 +(phi(i,j,k+1)+phi(i,j,k-1))*dz2i) + phi(i,j,k) = factor*phi_p(i,j,k) - + 1 phi_p_p(i,j,k) + (dt2) * + 2 ((phi_p(i+1,j,k)+phi_p(i-1,j,k))*dx2i + 3 +(phi_p(i,j+1,k)+phi_p(i,j-1,k))*dy2i + 4 +(phi_p(i,j,k+1)+phi_p(i,j,k-1))*dz2i) end do end do |