diff options
author | schnetter <> | 2003-07-08 21:02:00 +0000 |
---|---|---|
committer | schnetter <> | 2003-07-08 21:02:00 +0000 |
commit | 043a28126be50ae3cd06b456e487c22bb48f7e64 (patch) | |
tree | 09d7211370fe19ab67886a31f5cf6b74959ccdbf /CarpetExtra/IDFOScalarWave | |
parent | eead4ec57099a69f7c0b92f39a5b7da21e6ef72e (diff) |
Remove unused variables.
darcs-hash:20030708210219-07bb3-03be634af693a15b84dbfb31696e5813379ac2d9.gz
Diffstat (limited to 'CarpetExtra/IDFOScalarWave')
-rw-r--r-- | CarpetExtra/IDFOScalarWave/src/InitialData.F77 | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/CarpetExtra/IDFOScalarWave/src/InitialData.F77 b/CarpetExtra/IDFOScalarWave/src/InitialData.F77 index f71eefd32..cfc740ccf 100644 --- a/CarpetExtra/IDFOScalarWave/src/InitialData.F77 +++ b/CarpetExtra/IDFOScalarWave/src/InitialData.F77 @@ -1,5 +1,5 @@ c -*-Fortran-*- -c $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/IDFOScalarWave/src/InitialData.F77,v 1.6 2003/06/27 15:54:58 schnetter Exp $ +c $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/IDFOScalarWave/src/InitialData.F77,v 1.7 2003/07/08 23:02:19 schnetter Exp $ /*@@ @file InitialData.F77 @@ -41,7 +41,6 @@ c $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/IDFOScalarWave/src/Ini INTEGER i,j,k CCTK_REAL dt,omega, cpi CCTK_REAL ri3 - CCTK_REAL dxi,dyi,dzi c call CCTK_INFO ("IDFOScalarWave_InitialData") @@ -233,10 +232,6 @@ c Use kx,ky,kz as number of modes in each direction. else if (CCTK_EQUALS(initial_data, "1/r")) then - dxi = 1/CCTK_DELTA_SPACE(1) - dyi = 1/CCTK_DELTA_SPACE(2) - dzi = 1/CCTK_DELTA_SPACE(3) - do k=1,cctk_lsh(3) do j=1,cctk_lsh(2) do i=1,cctk_lsh(1) |