!
! declarations des pointeurs
!
! utabX : buffers de donnees locaux
! iuX   : Pointeurs vers les buffers de donnees des voisins
!
        REAL(rp),  DIMENSION(sy:ey,sz:ez)  ::  rutabE
        REAL(rp),  DIMENSION(sy:ey,sz:ez)  ::  rutabW
        REAL(rp),  DIMENSION(sx:ex,sz:ez)  ::  rutabS
        REAL(rp),  DIMENSION(sx:ex,sz:ez)  ::  rutabN
        REAL(rp),  DIMENSION(sx:ex,sy:ey)  ::  rutabAV
        REAL(rp),  DIMENSION(sx:ex,sy:ey)  ::  rutabAR
!
        POINTER( iuE,   rutabE  )
        POINTER( iuW,   rutabW  )
        POINTER( iuS,   rutabS  )
        POINTER( iuN,   rutabN  )
        POINTER( iuAR,  rutabAR )
        POINTER( iuAV,  rutabAV )
!
        COMMON / COMPTR_U / iuE, iuW, iuS, iuN, iuAV, iuAR
!$OMP THREADPRIVATE ( / COMPTR_U / )             
!