diff options
| -rw-r--r-- | src/InitialData.F77 | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/src/InitialData.F77 b/src/InitialData.F77 index 4427e98..1483002 100644 --- a/src/InitialData.F77 +++ b/src/InitialData.F77 @@ -111,6 +111,16 @@ 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 + return end |