diff options
author | eschnett <> | 2001-03-21 23:50:00 +0000 |
---|---|---|
committer | eschnett <> | 2001-03-21 23:50:00 +0000 |
commit | a34f1f5e75afa08c73d09d2d8f614020fac8e951 (patch) | |
tree | a98e2c5fd5908c152d9912b99f1a6e127033b4a0 /CarpetExtra/IDScalarWave | |
parent | 77b35c61254d043765551c86f6f36b5d892f50a5 (diff) |
Changed the WaveToy initial data back to the way Cactus does it.
Changed the WaveToy initial data back to the way Cactus does it.
Added real time level cycling instead of copying.
darcs-hash:20010321235045-f6438-fb76106f69d90938a0df6d7955b85850a74cac7c.gz
Diffstat (limited to 'CarpetExtra/IDScalarWave')
-rw-r--r-- | CarpetExtra/IDScalarWave/src/InitialData.F77 | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/CarpetExtra/IDScalarWave/src/InitialData.F77 b/CarpetExtra/IDScalarWave/src/InitialData.F77 index f0a7790ba..294764873 100644 --- a/CarpetExtra/IDScalarWave/src/InitialData.F77 +++ b/CarpetExtra/IDScalarWave/src/InitialData.F77 @@ -71,10 +71,10 @@ c call CCTK_INFO ("IDScalarWave_InitialData") do j=1, cctk_lsh(2) do i=1, cctk_lsh(1) - phi(i,j,k) = amplitude / spher3d_r(i,j,k) - $ * exp(- (spher3d_r(i,j,k) - radius - cctk_time)**2 / sigma**2) - phi_p(i,j,k) = amplitude / spher3d_r(i,j,k) - $ * exp(- (spher3d_r(i,j,k) - radius - (cctk_time - dt))**2 / sigma**2) + phi(i,j,k) = amplitude + $ * exp(- (spher3d_r(i,j,k) - radius)**2 / sigma**2) + phi_p(i,j,k) = amplitude + $ * exp(- (spher3d_r(i,j,k) - radius - dt)**2 / sigma**2) end do end do |