diff options
| author | tradke <tradke@f5a6acaf-da7d-456b-b0a8-35edbc60b392> | 2000-06-19 09:40:09 +0000 |
|---|---|---|
| committer | tradke <tradke@f5a6acaf-da7d-456b-b0a8-35edbc60b392> | 2000-06-19 09:40:09 +0000 |
| commit | a0df92952d6a564d9533b6358fb280a71b9d1761 (patch) | |
| tree | b729e204a86abf3251ce0a33b42efbe84894fdca | |
| parent | 4ead9e7ec82c8935248b32377ed068e8f9ad81aa (diff) | |
Initialize the corners of phi_next to zero so that the testsuites can
run now with PUGH::zero_memory = 0 on Alphas.
git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/IDScalarWave/trunk@40 f5a6acaf-da7d-456b-b0a8-35edbc60b392
| -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 |