diff options
author | shawley <> | 2002-02-27 17:57:00 +0000 |
---|---|---|
committer | shawley <> | 2002-02-27 17:57:00 +0000 |
commit | b60dfdac54e49f341df3ad8562d69090f42b9c1a (patch) | |
tree | e4ead60a9455e731f9f47c5db66c14051a0453b5 /CarpetExtra | |
parent | 3d2984c41611897e009938b476a5d6e5dca73ab3 (diff) |
replaced typo for phi_p and phi_p_p using 1/r data
darcs-hash:20020227175754-e415b-4afb8395ce7c50e70d205fa5b66089cee2f2bd86.gz
Diffstat (limited to 'CarpetExtra')
-rw-r--r-- | CarpetExtra/IDScalarWave/src/InitialData.F77 | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/CarpetExtra/IDScalarWave/src/InitialData.F77 b/CarpetExtra/IDScalarWave/src/InitialData.F77 index 61576828f..4b6e7f04e 100644 --- a/CarpetExtra/IDScalarWave/src/InitialData.F77 +++ b/CarpetExtra/IDScalarWave/src/InitialData.F77 @@ -1,5 +1,5 @@ c -*-Fortran-*- -c $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/IDScalarWave/src/InitialData.F77,v 1.10 2002/02/27 18:54:13 shawley Exp $ +c $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/IDScalarWave/src/InitialData.F77,v 1.11 2002/02/27 18:57:54 shawley Exp $ /*@@ @file InitialData.F77 @@ -143,8 +143,8 @@ c Use kx,ky,kz as number of modes in each direction. z = cart3d_z(i,j,k) phi(i,j,k) = 1 / sqrt((x-cx)**2 + (y-cy)**2 + (z-cz)**2) - phi_p(i,j,k) = 1 / phi(i,j,k) - phi_p_p(i,j,k) = 1 / phi(i,j,k) + phi_p(i,j,k) = phi(i,j,k) + phi_p_p(i,j,k) = phi(i,j,k) end do end do |