diff options
| -rw-r--r-- | src/ADMConstraints.F | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/ADMConstraints.F b/src/ADMConstraints.F index e3259b5..80a5bc4 100644 --- a/src/ADMConstraints.F +++ b/src/ADMConstraints.F @@ -88,12 +88,12 @@ c Fill with zeros. do j=1,ny do i=1,nx - ham(i,j,k) = 0.0D0 + ham(i,j,k) = 0.0D0 hamnormalized(i,j,k) = 0.0D0 - - momx(i,j,k) = 0.0D0 - momy(i,j,k) = 0.0D0 - momz(i,j,k) = 0.0D0 + + momx(i,j,k) = 0.0D0 + momy(i,j,k) = 0.0D0 + momz(i,j,k) = 0.0D0 end do end do |