!
! declarations des pointeurs
!
! ptabX : buffers de donnees locaux
! ipX   : Pointeurs vers les buffers de donnees des voisins
!
        REAL(rp),  DIMENSION(sy:ey,sz:ez)  ::  rptabE
        REAL(rp),  DIMENSION(sy:ey,sz:ez)  ::  rptabW
        REAL(rp),  DIMENSION(sx:ex,sz:ez)  ::  rptabS
        REAL(rp),  DIMENSION(sx:ex,sz:ez)  ::  rptabN
        REAL(rp),  DIMENSION(sx:ex,sy:ey)  ::  rptabAV
        REAL(rp),  DIMENSION(sx:ex,sy:ey)  ::  rptabAR
!
        POINTER( ipE,   rptabE  )
        POINTER( ipW,   rptabW  )
        POINTER( ipS,   rptabS  )
        POINTER( ipN,   rptabN  )
        POINTER( ipAR,  rptabAR )
        POINTER( ipAV,  rptabAV )
!
        COMMON / COMPTR_P / ipE, ipW, ipS, ipN, ipAV, ipAR
!$OMP THREADPRIVATE ( / COMPTR_P / )
!