AMD+MP Frontier debug IGR+Bubbles

Author: Dimitrios Adam

src/post_process/m_mpi_proxy.fpp

@@ -133,7 +133,7 @@ contains
             & 'Re_inv', 'Bx0', 'sigma', 't_save', 't_stop',      &
             & 'x_output%beg', 'x_output%end', 'y_output%beg',    &
             & 'y_output%end', 'z_output%beg', 'z_output%end',    &
-            & 'bc_x%Twall_in', 'bc_x  %Twall_out', 'bc_y%Twall_in',&
+            & 'bc_x%Twall_in', 'bc_x%Twall_out', 'bc_y%Twall_in',&
             & 'bc_y%Twall_out','bc_z%Twall_in', 'bc_z%Twall_out' ]
             call MPI_BCAST(${VAR}$, 1, mpi_p, 0, MPI_COMM_WORLD, ierr)
         #:endfor

src/simulation/m_rhs.fpp

@@ -574,7 +574,7 @@ contains
 
         if (igr .or. dummy) then
             call nvtxStartRange("RHS-COMMUNICATION")
-            call s_populate_variables_buffers(bc_type, q_cons_vf, pb_in, mv_in)
+            call s_populate_variables_buffers(bc_type, q_cons_vf, pb_in, mv_in, q_T_sf)
             call nvtxEndRange
         end if
         if (.not. igr .or. dummy) then

src/simulation/m_time_steppers.fpp

@@ -605,7 +605,7 @@ contains
             call s_compute_bubble_EE_source(q_cons_ts(1)%vf, q_prim_vf, rhs_vf, divu)
             call s_comp_alpha_from_n(q_cons_ts(1)%vf)
         else if (bubbles_lagrange) then
-            call s_populate_variables_buffers(bc_type, q_prim_vf, pb_ts(1)%sf, mv_ts(1)%sf)
+            call s_populate_variables_buffers(bc_type, q_prim_vf, pb_ts(1)%sf, mv_ts(1)%sf, q_T_sf)
             call s_compute_bubble_EL_dynamics(q_prim_vf, stage)
             call s_transfer_data_to_tmp()
             call s_smear_voidfraction()