SUBROUTINE  domaine(  comm3d  )
      USE MPI
      USE numerics
      IMPLICIT  NONE
      INTEGER,  INTENT(IN)    ::  comm3d
      END  SUBROUTINE  domaine