diff options
Diffstat (limited to 'src/GRHydro_RiemannSolveAM.F90')
| -rw-r--r-- | src/GRHydro_RiemannSolveAM.F90 | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/src/GRHydro_RiemannSolveAM.F90 b/src/GRHydro_RiemannSolveAM.F90 index b51105c..5784430 100644 --- a/src/GRHydro_RiemannSolveAM.F90 +++ b/src/GRHydro_RiemannSolveAM.F90 @@ -36,8 +36,6 @@ subroutine RiemannSolveAM(CCTK_ARGUMENTS) DECLARE_CCTK_PARAMETERS DECLARE_CCTK_FUNCTIONS - CCTK_INT :: i,j,k - if (CCTK_EQUALS(riemann_solver,"HLLE").or.CCTK_EQUALS(riemann_solver,"LLF")) then call GRHydro_HLLE_AM(CCTK_PASS_FTOF) @@ -100,8 +98,6 @@ subroutine RiemannSolvePolytypeAM(CCTK_ARGUMENTS) DECLARE_CCTK_PARAMETERS DECLARE_CCTK_FUNCTIONS - CCTK_INT :: i,j,k - if (CCTK_EQUALS(riemann_solver,"HLLE")) then call GRHydro_HLLE_AM(CCTK_PASS_FTOF) |