diff options
Diffstat (limited to 'src/InitialData.F77')
-rw-r--r-- | src/InitialData.F77 | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/src/InitialData.F77 b/src/InitialData.F77 index 1cefed6..f74a4bd 100644 --- a/src/InitialData.F77 +++ b/src/InitialData.F77 @@ -99,8 +99,16 @@ c Use kx,ky,kz as number of modes in each direction. end do else - phi = 0.0d0 - phi_old = 0.0d0 + do k=1,cctk_lsh(3) + do j=1,cctk_lsh(2) + do i=1,cctk_lsh(1) + + phi(i,j,k) = 0.0d0 + phi_old(i,j,k) = 0.0d0 + end do + end do + end do + end if return |