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_Prim2ConAM.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_Prim2ConAM.F90')
-rw-r--r-- | src/GRHydro_Prim2ConAM.F90 | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/GRHydro_Prim2ConAM.F90 b/src/GRHydro_Prim2ConAM.F90 index 35b2619..7bda654 100644 --- a/src/GRHydro_Prim2ConAM.F90 +++ b/src/GRHydro_Prim2ConAM.F90 @@ -438,7 +438,6 @@ subroutine Primitive2ConservativeCellsAM(CCTK_ARGUMENTS) DECLARE_CCTK_ARGUMENTS DECLARE_CCTK_PARAMETERS - CCTK_REAL :: xtemp(1) CCTK_INT :: i, j, k CCTK_REAL :: det CCTK_REAL :: maxtau0 @@ -631,7 +630,7 @@ subroutine prim2conpolytypeAM(handle, gxx, gxy, gxz, gyy, gyz, & CCTK_REAL :: gxx, gxy, gxz, gyy, gyz, gzz, det CCTK_REAL :: ddens, dsx, dsy, dsz, dtau, & drho, dvelx, dvely, dvelz, deps, dpress, dBvcx, dBvcy, dBvcz, & - w_tmp, w, vlowx, vlowy, vlowz, sqrtdet + w_tmp, w, vlowx, vlowy, vlowz CCTK_INT :: handle CCTK_REAL :: Bdotv,ab0,b2,blowx,blowy,blowz character(len=256) NaN_WarnLine |