diff options
-rw-r--r-- | src/GRHydro_Con2PrimM.F90 | 4 | ||||
-rw-r--r-- | src/GRHydro_Source.F90 | 5 |
2 files changed, 2 insertions, 7 deletions
diff --git a/src/GRHydro_Con2PrimM.F90 b/src/GRHydro_Con2PrimM.F90 index 1d66cca..2712397 100644 --- a/src/GRHydro_Con2PrimM.F90 +++ b/src/GRHydro_Con2PrimM.F90 @@ -549,7 +549,7 @@ subroutine Conservative2PrimitivePolytypeM(CCTK_ARGUMENTS) 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 @@ subroutine Con2PrimBoundsPolytypeM(CCTK_ARGUMENTS) 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) diff --git a/src/GRHydro_Source.F90 b/src/GRHydro_Source.F90 index c72ea5e..be915ea 100644 --- a/src/GRHydro_Source.F90 +++ b/src/GRHydro_Source.F90 @@ -93,11 +93,6 @@ subroutine SourceTerms(CCTK_ARGUMENTS) 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 |