User: rhaas Date: 2012/07/05 12:36 AM

Modified: /trunk/src/ GRHydro_Con2PrimM.F90, GRHydro_Source.F90

Log: GRHydro: remove unused variables

File Changes:

Directory: /trunk/src/ ======================

File [modified]: GRHydro_Con2PrimM.F90 Delta lines: +2 -2 =================================================================== --- trunk/src/GRHydro_Con2PrimM.F90 2012-07-05 05:36:48 UTC (rev 385) +++ trunk/src/GRHydro_Con2PrimM.F90 2012-07-05 05:36:50 UTC (rev 386) @@ -549,7 +549,7 @@

CCTK_INT :: epsnegative

- CCTK_REAL :: local_min_tracer, local_gam, local_pgam,local_K, sc + CCTK_REAL :: local_min_tracer, local_pgam,local_K, sc ! character(len=400) :: warnline

! begin EOS Omni vars @@ -672,7 +672,7 @@ CCTK_REAL :: b2minus, b2plus CCTK_INT :: epsnegative

- CCTK_REAL :: local_gam, local_pgam,local_K,scplus,scminus + CCTK_REAL :: local_pgam,local_K,scplus,scminus

! begin EOS Omni vars integer :: n,keytemp,anyerr,keyerr(1)

File [modified]: GRHydro_Source.F90 Delta lines: +0 -5 =================================================================== --- trunk/src/GRHydro_Source.F90 2012-07-05 05:36:48 UTC (rev 385) +++ trunk/src/GRHydro_Source.F90 2012-07-05 05:36:50 UTC (rev 386) @@ -93,11 +93,6 @@ CCTK_REAL, DIMENSION(:,:,:), POINTER :: beta1, beta2, beta3 CCTK_REAL, DIMENSION(:,:,:,:), POINTER :: vup

- ! poison hack - CCTK_INT, SAVE :: reflevel = -1 - CCTK_INT, SAVE :: last_iteration_seen = -1 - CCTK_INT, SAVE :: mol_substep = -1 - if (GRHydro_UseGeneralCoordinates(cctkGH).ne.0) then g11 => gaa g12 => gab