diff options
author | eschnett <> | 2001-03-19 20:30:00 +0000 |
---|---|---|
committer | eschnett <> | 2001-03-19 20:30:00 +0000 |
commit | fc0e7af205874d55377d18ffdb68555df2843d32 (patch) | |
tree | ae2b89c76f3a3af299a8699833e391f42dddc05f /CarpetExtra/IDScalarWave/src/InitialData.F77 | |
parent | 61b00f25a9820d71401ee6ec3188f6d7b0fa3412 (diff) |
small
darcs-hash:20010319203034-f6438-ab6a4b4cd4ff91f151ade70f9b3e2a813ee0503b.gz
Diffstat (limited to 'CarpetExtra/IDScalarWave/src/InitialData.F77')
-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 0bb3d8082..f0a7790ba 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 - $ * exp(- (spher3d_r(i,j,k) - radius)**2 / sigma**2) - phi_p(i,j,k) = amplitude - $ * exp(- (spher3d_r(i,j,k)**2 - radius - dt)**2 / sigma**2) + 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) end do end do |