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

      subroutine les_sfc (geobus,ngeop) 1,1
      implicit none
      integer ngeop
      real geobus(ngeop)
*
#include "dynmem.cdk"
#include "topo.cdk"
#include "rec.cdk"
#include "nestpnt.cdk"
#include "partopo.cdk"
#include "yomdyn.cdk"
#include "yomdyn1.cdk"
#include "lesbus.cdk"

      integer i,j

      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
*
      if (gnmaphy.eq.1) then
      if (myproc.eq.0) print*, 'Code must be adapted for local ',
     $              'dimensions of processor - ABORT in les_sfc'
      call mc2stop(-1)
c      if (myproc.eq.0) call inibus (geobus,ngeop,gni,gnj)
c      call MPI_bcast(geonm,maxbus*2,MPI_CHARACTER,0,MPI_COMM_WORLD,err)
c      call MPI_bcast(geopar,maxbus*3,MPI_INTEGER,0,MPI_COMM_WORLD,err )
c      call MPI_bcast(geobus,geospc  ,MPI_REAL   ,0,MPI_COMM_WORLD,err )
      endif
*
*----------------------------------------------------------------------
      return
      end