MODULE YOE_McICA

USE PARKIND1  ,ONLY : JPIM, JPRB

IMPLICIT NONE

SAVE
!------------------------------------------------------------------------------

REAL(KIND=JPRB) :: XCW(1000,140)
INTEGER(KIND=JPIM) :: NMcI1, NMcI2

!------------------------------------------------------------------------------

!$OMP THREADPRIVATE(nmci1,nmci2,xcw)

END MODULE YOE_McICA