diff options
| author | allen <allen@f5a6acaf-da7d-456b-b0a8-35edbc60b392> | 2001-04-18 20:37:21 +0000 |
|---|---|---|
| committer | allen <allen@f5a6acaf-da7d-456b-b0a8-35edbc60b392> | 2001-04-18 20:37:21 +0000 |
| commit | 578222eca88450588f030c7cdd38f87f66ca0586 (patch) | |
| tree | 38c8d8dcb925c37118b572955220a6de346f7974 | |
| parent | 32a556a5a0a5a255116818cbd5c5c1af74dd3385 (diff) | |
Updating timelevel names, and some formatting changes.
git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/IDScalarWave/trunk@46 f5a6acaf-da7d-456b-b0a8-35edbc60b392
| -rw-r--r-- | src/InitialData.F77 | 19 |
1 files changed, 10 insertions, 9 deletions
diff --git a/src/InitialData.F77 b/src/InitialData.F77 index 1483002..fc90ac3 100644 --- a/src/InitialData.F77 +++ b/src/InitialData.F77 @@ -103,8 +103,9 @@ c Use kx,ky,kz as number of modes in each direction. do j=1,cctk_lsh(2) do i=1,cctk_lsh(1) - phi(i,j,k) = 0.0d0 + phi(i,j,k) = 0.0d0 phi_p(i,j,k) = 0.0d0 + end do end do end do @@ -112,14 +113,14 @@ c Use kx,ky,kz as number of modes in each direction. end if c zero out corners of phi next */ - phi_n(1, 1, 1) = 0.0 - phi_n(1, 1, cctk_lsh(3)) = 0.0 - phi_n(1, cctk_lsh(2), 1) = 0.0 - phi_n(1, cctk_lsh(2), cctk_lsh(3)) = 0.0 - phi_n(cctk_lsh(1), 1, 1) = 0.0 - phi_n(cctk_lsh(1), 1, cctk_lsh(3)) = 0.0 - phi_n(cctk_lsh(1), cctk_lsh(2), 1) = 0.0 - phi_n(cctk_lsh(1), cctk_lsh(2), cctk_lsh(3)) = 0.0 +c phi_n(1, 1, 1) = 0.0 +c phi_n(1, 1, cctk_lsh(3)) = 0.0 +c phi_n(1, cctk_lsh(2), 1) = 0.0 +c phi_n(1, cctk_lsh(2), cctk_lsh(3)) = 0.0 +c phi_n(cctk_lsh(1), 1, 1) = 0.0 +c phi_n(cctk_lsh(1), 1, cctk_lsh(3)) = 0.0 +c phi_n(cctk_lsh(1), cctk_lsh(2), 1) = 0.0 +c phi_n(cctk_lsh(1), cctk_lsh(2), cctk_lsh(3)) = 0.0 return end |