copyright (C) 2001  MSC-RPN COMM  %%%MC2%%%

      subroutine bulle_sfc 1

#include "dynmem.cdk"
#include "topo.cdk"

      integer i,j,k

      do j=1-hy,ldnj+hy
      do i=1-hx,ldni+hx 
         hh0i (i,j,1) = 0.
         hh0i (i,j,2) = 0.
         hh0f (i,j,1) = 0.
         hh0f (i,j,2) = 0.
      end do
      end do
*
      return
      end