copyright (C) 2001  MSC-RPN COMM  %%%MC2%%%
***s/r hauteurs

      subroutine hauteurs 3
      implicit none
*
#include "dynmem.cdk"
#include "topo.cdk"
#include "h_geop2.cdk"
*
      integer i,j,k
*
!$omp do
      do k=1,gnk
         do j=miny,maxy
         do i=minx,maxx
            hw(i,j,k) = h_geopw(i,j,k)
         end do
         end do
         do j=miny,maxy
         do i=minx,maxx
            ht(i,j,k) = h_geopt(i,j,k)
         end do
         end do
         do j=miny,maxy
         do i=minx,maxx
            hm(i,j,k) = h_geopm(i,j,k)
         end do
         end do
      end do
!$omp enddo
*
!$omp do
      do j=miny,maxy
      do i=minx,maxx
         hm(i,j,0) =  hh0(i,j,1)
      end do
      end do
!$omp enddo
*
      return
      end