!
      ! $Header$
      !
      integer iflag_pbl
      common/compbl/iflag_pbl
!$OMP THREADPRIVATE(/compbl/)