clean up

Author: sbryngelson

src/simulation/m_chemistry.fpp

@@ -55,8 +55,6 @@ contains
 
         type(vector_field), dimension(:), intent(IN) :: flux_n
         type(scalar_field), dimension(sys_size), intent(INOUT) :: rhs_vf
-        type(int_bounds_info) :: ix, iy, iz
-
         integer :: x, y, z
         integer :: eqn
 
@@ -103,21 +101,12 @@ contains
     subroutine s_compute_chemistry_reaction_flux(rhs_vf, q_cons_qp, q_prim_qp)
 
         type(scalar_field), dimension(sys_size), intent(INOUT) :: rhs_vf, q_cons_qp, q_prim_qp
-
-        integer :: i
-
         integer :: x, y, z
         integer :: eqn
-
         real(kind(0d0)) :: T
-        integer :: o
-        real(kind(0d0)) :: dyn_pres
-        real(kind(0d0)) :: E
-
         real(kind(0d0)) :: rho, omega_m
         real(kind(0d0)), dimension(num_species) :: Ys
         real(kind(0d0)), dimension(num_species) :: omega
-        real(kind(0d0)) :: cp_mix
 
         if (chemistry) then
             !$acc parallel loop collapse(3) gang vector default(present) &

src/simulation/m_sim_helpers.f90

@@ -86,7 +86,7 @@ end subroutine s_compute_enthalpy
     subroutine s_compute_stability_from_dt(vel, c, rho, Re_l, j, k, l, icfl_sf, vcfl_sf, Rc_sf)
         !$acc routine seq
         real(kind(0d0)), dimension(num_dims) :: vel
-        real(kind(0d0)) :: c, icfl_dt, vcfl_dt, rho
+        real(kind(0d0)) :: c, rho
         real(kind(0d0)), dimension(0:m, 0:n, 0:p) :: icfl_sf
         real(kind(0d0)), dimension(0:m, 0:n, 0:p), optional :: vcfl_sf, Rc_sf
         real(kind(0d0)) :: fltr_dtheta   !<

src/simulation/m_weno.fpp

@@ -160,7 +160,6 @@ contains
         !!      other procedures that are necessary to setup the module.
     subroutine s_initialize_weno_module
 
-        integer :: i, j
         if (weno_order == 1) return
 
         ! Allocating/Computing WENO Coefficients in x-direction ============
@@ -974,7 +973,7 @@ contains
         integer, intent(IN) :: norm_dir
         integer, intent(IN) :: weno_dir
 
-        integer :: i, j, k, l, q !< Generic loop iterators
+        integer :: j, k, l, q 
 
         ! Determining the number of cell-average variables which will be
         ! WENO-reconstructed and mapping their indical bounds in the x-,
@@ -1253,8 +1252,6 @@ contains
     !>  Module deallocation and/or disassociation procedures
     subroutine s_finalize_weno_module()
 
-        integer :: i, j
-
         if (weno_order == 1) return
 
         ! Deallocating the WENO-stencil of the WENO-reconstructed variables