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_WENOReconstruct.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_WENOReconstruct.F90')
-rw-r--r-- | src/GRHydro_WENOReconstruct.F90 | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/src/GRHydro_WENOReconstruct.F90 b/src/GRHydro_WENOReconstruct.F90 index 9c40d95..5f368c0 100644 --- a/src/GRHydro_WENOReconstruct.F90 +++ b/src/GRHydro_WENOReconstruct.F90 @@ -40,8 +40,7 @@ subroutine GRHydro_WENOSetup(CCTK_ARGUMENTS) DECLARE_CCTK_ARGUMENTS DECLARE_CCTK_PARAMETERS - CCTK_INT :: i, j, k, l, m, q, allocstat - CCTK_REAL :: denominator, numerator, numerator_product + CCTK_INT :: allocstat if(.not.coeffs_allocated) then ! Right now we hardcode to 5th order @@ -156,7 +155,7 @@ subroutine GRHydro_WENOReconstruct1d(order, nx, v, vminus, vplus, trivial_rp, & DECLARE_CCTK_PARAMETERS - CCTK_INT :: order, nx, i, j, k, r + CCTK_INT :: order, nx, i, j CCTK_REAL, dimension(nx) :: v, vplus, vminus CCTK_INT, dimension(nx) :: hydro_excision_mask @@ -164,7 +163,7 @@ subroutine GRHydro_WENOReconstruct1d(order, nx, v, vminus, vplus, trivial_rp, & logical, dimension(nx) :: excise logical :: normal_weno - CCTK_REAL :: large = 1.d10, gamma1, gamma2, gamma3, beta1, beta2, beta3, vnorm, betanorm + CCTK_REAL :: beta1, beta2, beta3, vnorm, betanorm CCTK_REAL :: wplus1, wplus2, wplus3, wbarplus1, wbarplus2, wbarplus3 CCTK_REAL :: wminus1, wminus2, wminus3, wbarminus1, wbarminus2, wbarminus3 |