!!======================================================================

  SUBROUTINE agrif_obc_u(uv)
!
!********************************************************************
!
!     objet    :  conditions aux limites ouvertes en vitesse.
!                 On remplit le cadre de u.
!
!
!
!     appelant         : stepu, step2dxy
!                      :
!     appeles          :
!                      :
!     canal d ecriture :
!                      :
!     canal de lecture :
!                      :
!     cle cpp          :
!                      :
!     variables in     : jh, jb, ig, id, hx, valmanq, h0fond
!                      :
!     variables out    :
!                      :
!     variables inout  : u
!                      :
!     dernieres modifs : 13/10/2005
!                      : 12/12/2007 F. Dumas
!&E       !  2009-05  (F. Dumas)  AGRIF pour nouveau schema temporel
!                      :
!***********************************************************






























































   USE parameters, ONLY : rsh,liminm2,limaxp2,ljminm2,ljmaxp2
   REAL(KIND=rsh),DIMENSION(liminm2:limaxp2,ljminm2:ljmaxp2),INTENT(inout) :: uv


  END SUBROUTINE agrif_obc_u

!!======================================================================


