c
c $Id: comhyb.h,v 1.1.1.1 1995/02/09 23:26:42 ccm2 Exp $
c $Author: ccm2 $
c
C
C Hybrid level definitions: p = a*p0 + b*ps
C        interfaces   p(k) = hyai(k)*ps0 + hybi(k)*ps
C        midpoints    p(k) = hyam(k)*ps0 + hybm(k)*ps
C
      common /comhyb/
     $     hyai(plevp) ,hyam(plev) ,hybi(plevp) ,hybm(plev) ,hybd(plev),
     $     hypi(plevp) ,hypm(plev) ,hypd(plev)  ,ps0        ,psr       ,
     $     prsfac      ,nprlev
!$OMP THREADPRIVATE (/comhyb/)
!DIR$ TASKCOMMON comhyb
C
      real hyai        ! ps0 component of hybrid coordinate - interfaces
      real hyam        ! ps0 component of hybrid coordinate - midpoints
      real hybi        ! ps component of hybrid coordinate - interfaces
      real hybm        ! ps component of hybrid coordinate - midpoints
C
      real hybd        ! difference  in b (hybi) across layers
      real hypi        ! reference pressures at interfaces
      real hypm        ! reference pressures at midpoints
      real hypd        ! reference pressure layer thickness
C
      real ps0         ! base state sfc pressure for level definitions
      real psr         ! reference surface pressure for linearization
      real prsfac      ! log pressure extrapolation factor
C                      !     (time, space independent)
      integer nprlev   ! number of pure pressure levels at top
C