autoreview suggestions

Author: wilfonba

src/post_process/m_data_output.fpp

@@ -1230,7 +1230,7 @@ contains
                     if (lag_id_wrt) write (29, '(I6, A)', advance='no') id, ', '
                     if (lag_pos_wrt) write (29, '(3(E15.7, A))', advance='no') inputvals(1), ', ', inputvals(2), ', ', inputvals(3), ', '
                     if (lag_pos_prev_wrt) write (29, '(3(E15.7, A))', advance='no') inputvals(4), ', ', inputvals(5), ', ', inputvals(6), ', '
-                    if (lag_vel_wrt) write (29, '(3(E15.7, A))', advance='no') inputvals(7), ', ', inputvals(8), ', ', inputvals(8), ', '
+                    if (lag_vel_wrt) write (29, '(3(E15.7, A))', advance='no') inputvals(7), ', ', inputvals(8), ', ', inputvals(9), ', '
                     if (lag_rad_wrt) write (29, '(E15.7, A)', advance='no') inputvals(10), ', '
                     if (lag_rvel_wrt) write (29, '(E15.7, A)', advance='no') inputvals(11), ', '
                     if (lag_r0_wrt) write (29, '(E15.7, A)', advance='no') inputvals(12), ', '

src/simulation/m_bubbles_EL.fpp

@@ -339,10 +339,6 @@ contains
             end if
         end if
 
-        ! If particle is in the ghost cells, find the closest non-ghost cell
-        !cell(1) = min(max(cell(1), 0), m)
-        !cell(2) = min(max(cell(2), 0), n)
-        !if (p > 0) cell(3) = min(max(cell(3), 0), p)
         call s_convert_to_mixture_variables(q_cons_vf, cell(1), cell(2), cell(3), &
                                             rhol, gamma, pi_inf, qv, Re)
         dynP = 0._wp