c
c=======================================================================
c  Include file "hybrid.h"
c=======================================================================
c
#ifndef rmdocinc
c   HAVE     thickness of flat levels (cm).
c   HZ       thicknesses of the flat grid vertical boxes (cm).
c   KC       level interface for terrain-following coordinates.
c   REFZ     depths at center of the flat vertical boxes as computed
c            from thicknesses (cm).
c   ZC1      minimum depth of coordinate interface (cm).
c   ZC2      maximum depth of coordinate interface (cm).
c   ZREF     depths at center of the flat vertical boxes (cm).
c   ZSLOPE   slope parameter of coordinate interface.
#if !defined gridold & defined dblsigma
c   TINTER   interface depth at tracer points.
c   VINTER   interface depth at velocity points.
#endif
c
c=======================================================================
c
#endif
      common /ihybrid/ kc
      integer kc
c
      common /fhybrid/ hc,hz,have,refz,zc1,zc2,zslope,zref
#if !defined gridold & defined dblsigma
     *                ,tinter,vinter
#endif
      FLOAT
     *      have,hc,zc1,zc2,zref,zslope
      FLOAT
     *      hz(km),refz(km)
#if !defined gridold & defined dblsigma
     *      ,tinter(imt,jmt),vinter(imt,jmt)
#endif