!
      real :: f
      COMMON /fcom/ F(ZIMXP,8*ZFLDX+ZPHYX)
      integer :: idn ! day/night 1/0 index at current j
      common /idn_com/ idn(zimxp)
!$OMP THREADPRIVATE (/fcom/,/idn_com/)
!DIR$ TASKCOMMON fcom,idn_com
C