!
      integer :: j
      real :: racs
      COMMON/JPHYS/J
      COMMON/RPHYS/RACS
!$OMP THREADPRIVATE (/jphys/,/rphys/)
!DIR$ TASKCOMMON jphys,rphys
C