fix no mpi test

Author: wilfonba

src/post_process/m_global_parameters.fpp

@@ -474,7 +474,7 @@ contains
         integer :: i, j, fac
 
         ! Setting m_root equal to m in the case of a 1D serial simulation
-        if (num_procs > 1 .and. n == 0) m_root = m_glb
+        if (n == 0) m_root = m_glb
 
         ! Gamma/Pi_inf Model
         if (model_eqns == 1) then

src/simulation/m_mpi_proxy.fpp

@@ -429,9 +429,11 @@ contains
 
     subroutine s_finalize_mpi_proxy_module()
 
+#ifdef MFC_MPI
         if (ib) then
             @:DEALLOCATE(ib_buff_send, ib_buff_recv)
         end if
+#endif
 
     end subroutine s_finalize_mpi_proxy_module