MODULE YOERRTFTR USE PARKIND1 ,ONLY : JPIM ,JPRB USE PARRRTM IMPLICIT NONE SAVE ! ------------------------------------------------------------------- ! ------------------------------------------------------------------- INTEGER(KIND=JPIM) :: NGC(JPBAND) INTEGER(KIND=JPIM) :: NGS(JPBAND) INTEGER(KIND=JPIM) :: NGN(JPGPT) INTEGER(KIND=JPIM) :: NGB(JPGPT) INTEGER(KIND=JPIM) :: NGM(JPG*JPBAND) REAL(KIND=JPRB) :: WT(JPG) ! ----------------------------------------------------------------- ! * E.C.M.W.F. PHYSICS PACKAGE ** RRTM LW RADIATION ** ! J.-J. MORCRETTE E.C.M.W.F. 98/07/14 ! NAME TYPE PURPOSE ! ---- : ---- : --------------------------------------------------- ! NGC : INTEGER : ! NGS : INTEGER : ! NGN : INTEGER : ! NGB : INTEGER : ! NGM : INTEGER : ! WT : REAL : ! ------------------------------------------------------------------- !$OMP THREADPRIVATE(ngb,ngc,ngm,ngn,ngs,wt) END MODULE YOERRTFTR