!
! 76*(8*3045+2926) = 2073736, i.e. ~2Mw
!
      real :: f
      COMMON /fcom/ F(ZIMXP,8*ZFLDX+ZPHYX)
!$OMP THREADPRIVATE (/fcom/)
!DIR$ TASKCOMMON fcom
C