diff options
| author | rhaas <rhaas@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2013-03-28 01:46:38 +0000 |
|---|---|---|
| committer | rhaas <rhaas@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2013-03-28 01:46:38 +0000 |
| commit | 119c4f3ab666fac14832767fb225fe1a1478c811 (patch) | |
| tree | 28da48ec0dbcdefb13ff31fe288ad823820c048b /src/GRHydro_Boundaries.F90 | |
| parent | b0cdccb34f58a51ee5357cbcd2174b847952244c (diff) | |
GRHydro: remove unused variables
From: Roland Haas <rhaas@tapir.caltech.edu>
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEvolve/GRHydro/trunk@495 c83d129a-5a75-4d5a-9c4d-ed3a5855bf45
Diffstat (limited to 'src/GRHydro_Boundaries.F90')
| -rw-r--r-- | src/GRHydro_Boundaries.F90 | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/src/GRHydro_Boundaries.F90 b/src/GRHydro_Boundaries.F90 index e3be957..0f6db02 100644 --- a/src/GRHydro_Boundaries.F90 +++ b/src/GRHydro_Boundaries.F90 @@ -376,7 +376,6 @@ subroutine GRHydro_SelectPrimitiveInitialGuessesBoundaries(CCTK_ARGUMENTS) integer, dimension(3) :: sw integer :: ierr = 0 - integer :: i,j,k CCTK_INT :: GRHydro_UseGeneralCoordinates, general_coordinates CCTK_INT, parameter :: faces=CCTK_ALL_FACES @@ -515,7 +514,6 @@ subroutine GRHydro_SelectPrimitiveBoundaries(CCTK_ARGUMENTS) integer, dimension(3) :: sw integer :: ierr = 0 - integer :: i,j,k CCTK_INT :: GRHydro_UseGeneralCoordinates, general_coordinates CCTK_INT, parameter :: faces=CCTK_ALL_FACES @@ -651,7 +649,6 @@ subroutine GRHydro_SelectAtmosphereMaskBoundaries(CCTK_ARGUMENTS) integer, dimension(3) :: sw integer :: ierr = 0 - integer :: i,j,k CCTK_INT, parameter :: faces=CCTK_ALL_FACES CCTK_INT, parameter :: ione=1 |