yoerrtftr.F90

Go to the documentation of this file.

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