!
! Lower boundary conditions for t,u,v,z. tbnd, ubnd, and vbnd
! are set by tuvbnd.f. zbnd is set by bndry_planetary.
!
      real :: 
     |  tbnd(zimxp),     ! tn lower boundary (not used)
     |  ubnd(zimxp),     ! un lower boundary (used by duv.f)
     |  vbnd(zimxp),     ! vn lower boundary (used by duv.f)
     |  zbnd(zimxp,zjmx) ! set to 0. by bndry_planetary
!
      common/bndz/ tbnd,ubnd,vbnd,zbnd
!$OMP THREADPRIVATE (/bndz/)
!DIR$ TASKCOMMON bndz