diff options
| author | allen <allen@4451c3c6-1034-4891-99ea-21147727ccdf> | 2001-04-18 20:37:28 +0000 |
|---|---|---|
| committer | allen <allen@4451c3c6-1034-4891-99ea-21147727ccdf> | 2001-04-18 20:37:28 +0000 |
| commit | a73da395ae52c96929ae1e6efab727bdc48e0447 (patch) | |
| tree | ba1a592aeea461735d3712784b51bb25e0121471 | |
| parent | c888f8a9c89691ad08399e9f41d561baff78aacf (diff) | |
Updating timelevel names, and some formatting changes.
git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/WaveToyF77/trunk@72 4451c3c6-1034-4891-99ea-21147727ccdf
| -rw-r--r-- | src/WaveToy.F77 | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/WaveToy.F77 b/src/WaveToy.F77 index 5fa457b..ea38c8f 100644 --- a/src/WaveToy.F77 +++ b/src/WaveToy.F77 @@ -74,11 +74,11 @@ c ---------------- do j = jstart, jend do i = istart, iend - phi_n(i,j,k) = factor*phi(i,j,k) - - & phi_p(i,j,k) + (dt2) * - & ((phi(i+1,j,k)+phi(i-1,j,k))*dx2i - & +(phi(i,j+1,k)+phi(i,j-1,k))*dy2i - & +(phi(i,j,k+1)+phi(i,j,k-1))*dz2i) + phi(i,j,k) = factor*phi_p(i,j,k) - + & phi_p_p(i,j,k) + (dt2) * + & ((phi_p(i+1,j,k)+phi_p(i-1,j,k))*dx2i + & +(phi_p(i,j+1,k)+phi_p(i,j-1,k))*dy2i + & +(phi_p(i,j,k+1)+phi_p(i,j,k-1))*dz2i) end do end do |