more refactoring

Author: wilfonba

src/common/m_mpi_common.fpp

@@ -636,17 +636,17 @@ contains
 
         if (present(pb) .and. present(mv) .and. qbmm .and. .not. polytropic) then
             qbmm_comm = .true.
-            v_size = sys_size + 2*nb*4
+            v_size = nVar + 2*nb*4
             buffer_counts = (/ &
-                            buff_size*(nVar + 2*nb*4)*(n + 1)*(p + 1), &
-                            buff_size*(nVar + 2*nb*4)*(m + 2*buff_size + 1)*(p + 1), &
+                            buff_size*v_size*(n + 1)*(p + 1), &
+                            buff_size*v_size*(m + 2*buff_size + 1)*(p + 1), &
                             buff_size*v_size*(m + 2*buff_size + 1)*(n + 2*buff_size + 1) &
                             /)
         else
             v_size = nVar
             buffer_counts = (/ &
-                            buff_size*nVar*(n + 1)*(p + 1), &
-                            buff_size*nVar*(m + 2*buff_size + 1)*(p + 1), &
+                            buff_size*v_size*(n + 1)*(p + 1), &
+                            buff_size*v_size*(m + 2*buff_size + 1)*(p + 1), &
                             buff_size*v_size*(m + 2*buff_size + 1)*(n + 2*buff_size + 1) &
                             /)
         end if

src/common/m_variables_conversion.fpp

@@ -1152,6 +1152,10 @@ contains
 
                     if (cont_damage) qK_prim_vf(damage_idx)%sf(j, k, l) = qK_cons_vf(damage_idx)%sf(j, k, l)
 
+#ifdef MFC_POST_PROCESS
+                    if (bubbles_lagrange) qK_prim_vf(beta_idx)%sf(j, k, l) = qK_cons_vf(beta_idx)%sf(j, k, l)
+#endif
+
                 end do
             end do
         end do