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