MODULE YOERRTBG2 USE PARKIND1 ,ONLY : JPIM ,JPRB USE PARRRTM IMPLICIT NONE SAVE ! ------------------------------------------------------------------- ! ------------------------------------------------------------------- REAL(KIND=JPRB) :: CORR1(0:200) REAL(KIND=JPRB) :: CORR2(0:200) ! ----------------------------------------------------------------- ! * E.C.M.W.F. PHYSICS PACKAGE ** RRTM LW RADIATION ** ! J.-J. MORCRETTE E.C.M.W.F. 98/07/14 ! NAME TYPE PURPOSE ! ---- : ---- : --------------------------------------------------- ! CORR1 : REAL : ! CORR2 : REAL : ! ------------------------------------------------------------------- !$OMP THREADPRIVATE(corr1,corr2) END MODULE YOERRTBG2