Delete the dead fluid-1 EOS shortcuts in the output routines

gamma = gammas(1) and friends were assigned and never read; lit_gamma was assigned in both output routines and read in neither.

Author: sbryngelson

src/pre_process/m_data_output.fpp

@@ -67,7 +67,7 @@ contains
         integer                                                     :: t_step
         real(wp), dimension(nb)                                     :: nRtmp
         real(wp)                                                    :: nbub
-        real(wp)                                                    :: gamma, lit_gamma, pi_inf, qv
+        real(wp)                                                    :: gamma, pi_inf, qv
         real(wp)                                                    :: rho
         real(wp)                                                    :: pres, T
         real(wp)                                                    :: rhoYks(1:num_species)
@@ -165,7 +165,6 @@ contains
         end if
 
         gamma = gammas(1)
-        lit_gamma = isentrope_n(1)
         pi_inf = pi_infs(1)
         qv = qvs(1)
 
@@ -199,8 +198,6 @@ contains
 
                         call s_convert_to_mixture_variables(q_cons_vf, j, 0, 0, rho, gamma, pi_inf, qv)
 
-                        lit_gamma = f_isentrope_exponent(gamma)
-
                         if ((i >= eqn_idx%species%beg) .and. (i <= eqn_idx%species%end)) then
                             write (2, FMT) x_cb(j), q_cons_vf(i)%sf(j, 0, 0)/rho
                         else if (((i >= eqn_idx%cont%beg) .and. (i <= eqn_idx%cont%end)) .or. ((i >= eqn_idx%adv%beg) &

src/simulation/m_data_output.fpp

@@ -303,7 +303,6 @@ contains
         logical :: file_exist                               !< Logical used to check existence of current time-step directory
         character(LEN=15) :: FMT
         integer :: i, j, k, l, r
-        real(wp) :: gamma, lit_gamma, pi_inf, qv            !< Temporary EOS params
 
         write (t_step_dir, '(A,I0,A,I0)') trim(case_dir) // '/p_all'
         write (t_step_dir, '(a,i0,a,i0)') trim(case_dir) // '/p_all/p', proc_rank, '/', t_step
@@ -377,11 +376,6 @@ contains
             call s_write_serial_ib_data(t_step)
         end if
 
-        gamma = gammas(1)
-        lit_gamma = isentrope_n(1)
-        pi_inf = pi_infs(1)
-        qv = qvs(1)
-
         if (precision == precision_single) then
             FMT = "(2F30.3)"
         else