From 119c4f3ab666fac14832767fb225fe1a1478c811 Mon Sep 17 00:00:00 2001 From: rhaas Date: Thu, 28 Mar 2013 01:46:38 +0000 Subject: GRHydro: remove unused variables From: Roland Haas git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEvolve/GRHydro/trunk@495 c83d129a-5a75-4d5a-9c4d-ed3a5855bf45 --- src/GRHydro_HLLEM.F90 | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) (limited to 'src/GRHydro_HLLEM.F90') diff --git a/src/GRHydro_HLLEM.F90 b/src/GRHydro_HLLEM.F90 index 75af760..b503922 100644 --- a/src/GRHydro_HLLEM.F90 +++ b/src/GRHydro_HLLEM.F90 @@ -53,8 +53,7 @@ subroutine GRHydro_HLLEM(CCTK_ARGUMENTS) CCTK_REAL, dimension(5) :: lamminus,lamplus CCTK_REAL :: charmin, charmax, charpm,chartop,avg_alp,avg_det, sdet CCTK_REAL :: gxxh, gxyh, gxzh, gyyh, gyzh, gzzh, uxxh, uxyh, & - uxzh, uyyh, uyzh, uzzh, avg_beta, usendh, alp_l, alp_r, & - cs2_p, cs2_m, dpdeps_p, dpdeps_m + uxzh, uyyh, uyzh, uzzh, avg_beta, usendh CCTK_REAL :: rhoenth_p, rhoenth_m, avg_betax, avg_betay, avg_betaz CCTK_REAL :: vxtp,vytp,vztp,vxtm,vytm,vztm,ab0p,ab0m,b2p,b2m,bdotvp,bdotvm CCTK_REAL :: wp,wm,v2p,v2m,bxlowp,bxlowm,bylowp,bylowm,bzlowp,bzlowm,vA2m,vA2p @@ -66,7 +65,7 @@ subroutine GRHydro_HLLEM(CCTK_ARGUMENTS) CCTK_REAL :: psidcp, psidcm, psidcf, psidcdiff, psidcfp, psidcfm CCTK_REAL :: charmax_dc, charmin_dc, charpm_dc - CCTK_INT :: type_bits, trivial, not_trivial + CCTK_INT :: type_bits, trivial CCTK_REAL :: xtemp ! save memory when MP is not used @@ -724,11 +723,10 @@ subroutine GRHydro_HLLE_TracerM(CCTK_ARGUMENTS) CCTK_REAL, dimension(3) :: mag_p, mag_m CCTK_REAL :: charmin, charmax, charpm,avg_alp,avg_det CCTK_REAL :: gxxh, gxyh, gxzh, gyyh, gyzh, gzzh, uxxh, uxyh, & - uxzh, uyyh, uyzh, uzzh, avg_beta, usendh, alp_l, alp_r, & - cs2_p, cs2_m, dpdeps_p, dpdeps_m + uxzh, uyyh, uyzh, uzzh, avg_beta, usendh CCTK_REAL :: b2p,b2m,vA2m,vA2p - CCTK_INT :: type_bits, trivial, not_trivial + CCTK_INT :: type_bits, trivial ! save memory when MP is not used CCTK_INT :: GRHydro_UseGeneralCoordinates -- cgit v1.2.3