clean up

Author: sbryngelson

src/common/m_phase_change.fpp

@@ -313,8 +313,6 @@ contains
         real(kind(0.0d0)), intent(in) :: rhoe
         real(kind(0.0d0)), intent(out) :: TS
 
-        integer, dimension(num_fluids) :: ig !< flags to toggle the inclusion of fluids for the pT-equilibrium
-        real(kind(0.0d0)), dimension(num_fluids) :: pk !< individual initial pressures
         real(kind(0.0d0)) :: gp, gpp, hp, pO, mCP, mQ !< variables for the Newton Solver
 
         integer :: i, ns !< generic loop iterators

src/simulation/m_bubbles.fpp

@@ -119,7 +119,7 @@ contains
         integer, intent(in) :: idir
         type(scalar_field), dimension(sys_size), intent(in) :: q_prim_vf
 
-        integer :: i, j, k, l
+        integer :: j, k, l
 
         if (idir == 1) then
 

src/simulation/m_data_output.fpp

@@ -365,7 +365,6 @@ contains
         integer :: i, j, k, l, r
 
         real(kind(0d0)) :: gamma, lit_gamma, pi_inf, qv !< Temporary EOS params
-        real(kind(0d0)), dimension(2) :: Re !< Temporary Reynolds number
 
         ! Creating or overwriting the time-step root directory
         write (t_step_dir, '(A,I0,A,I0)') trim(case_dir)//'/p_all'

src/simulation/m_qbmm.fpp

@@ -702,7 +702,7 @@ contains
         real(kind(0.d0)), intent(in) :: pres, rho, c
         real(kind(0.d0)), dimension(nterms, 0:2, 0:2), intent(out) :: coeffs
 
-        integer :: i1, i2, q
+        integer :: i1, i2
 
         coeffs = 0d0
 
@@ -847,7 +847,7 @@ contains
 
         integer :: id1, id2, id3
         integer :: i1, i2
-        integer :: j, k, q, r
+        integer :: j, q, r
 
         is1_qbmm = ix; is2_qbmm = iy; is3_qbmm = iz
 

src/simulation/m_weno.fpp

@@ -551,7 +551,6 @@ contains
         real(kind(0d0)), dimension(0:weno_num_stencils) :: delta
         real(kind(0d0)), dimension(-3:3) :: v ! temporary field value array for clarity (WENO7 only)
         real(kind(0d0)) :: tau
-        real(kind(0d0)), pointer :: beta_p(:)
 
         integer :: i, j, k, l