diff options
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 |