!==============================================================================!
  subroutine Comm_Mod_Global_Min_Real(phi) 
!------------------------------------------------------------------------------!
!   Dummy function for sequential runs.                                        !
!------------------------------------------------------------------------------!
  implicit none
!---------------------------------[Arguments]----------------------------------!
  real    :: phi
!==============================================================================!

  end subroutine
