real :: difkt,difkk,difkv,difkh
      COMMON/EDDDY/DIFKT(ZIMXP,ZKMXP),DIFKK(ZIMXP,ZKMXP),
     $             DIFKV(ZIMXP,ZKMXP),DIFKH(ZIMXP,ZKMXP)
!$OMP THREADPRIVATE (/edddy/)
!DIR$ TASKCOMMON EDDDY