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_Particle.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_Particle.F90')
-rw-r--r-- | src/GRHydro_Particle.F90 | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/GRHydro_Particle.F90 b/src/GRHydro_Particle.F90 index 464bf78..dc078ff 100644 --- a/src/GRHydro_Particle.F90 +++ b/src/GRHydro_Particle.F90 @@ -36,14 +36,13 @@ subroutine GRHydroParticleRHS(CCTK_ARGUMENTS) DECLARE_CCTK_ARGUMENTS DECLARE_CCTK_FUNCTIONS - CCTK_INT :: i, l + CCTK_INT :: i CCTK_INT :: interp_handle, table_handle, status, coord_system_handle character(len=200) :: particle_interp character(len=128) :: warn_message CCTK_INT :: particle_interp_len character(len=7) :: particle_order - character(len=15) :: vname CCTK_INT, dimension(1) :: lsh CCTK_POINTER, dimension(3) :: interp_coords |