      !***********************************************************************!
      SUBROUTINE  domaine(  )
      !***********************************************************************!
!
      USE numerics
!
      IMPLICIT  NONE
!
!--Declaration des arguments
!

!--Declaration des variables locales
!

! 
      !***********************************************************************!
!
!Informations  sur  la  topologie
      sx = 1
      ex = ntx
!
      sy = 1
      ey = nty
!
      sz = 1
      ez = ntz
!
!Informations sur le maillage
      hx  =  1.0_rp  /  real( ntx + 1, rp)
      hy  =  1.0_rp  /  real( nty + 1, rp)
      hz  =  1.0_rp  /  real( ntz + 1, rp)
!
      RETURN
      END  SUBROUTINE  domaine

