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