yoerrtwn.F90

Go to the documentation of this file.

MODULE yoerrtwn

USE parkind1  ,ONLY : jpim     ,jprb

IMPLICIT NONE

SAVE

!    -------------------------------------------------------------------

INTEGER(KIND=JPIM) , DIMENSION(16) :: ng
INTEGER(KIND=JPIM) , DIMENSION(16) :: nspa
INTEGER(KIND=JPIM) , DIMENSION(16) :: nspb

REAL(KIND=JPRB) , DIMENSION(16) :: wavenum1
REAL(KIND=JPRB) , DIMENSION(16) :: wavenum2
REAL(KIND=JPRB) , DIMENSION(16) :: delwave

REAL(KIND=JPRB) , DIMENSION(181,16) :: totplnk
REAL(KIND=JPRB) , DIMENSION(181)    :: totplk16

!     -----------------------------------------------------------------
!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM LW RADIATION **

!     J.-J. MORCRETTE       E.C.M.W.F.      98/01/15

!  NAME     TYPE     PURPOSE
!  ----   : ----    : -------
!  NG     : INTEGER : Number of k-coefficients in spectral intervals
!  NSPA   : INTEGER :
!  NSPB   : INTEGER :
! WAVENUM1: REAL    : Lower wavenumber spectral limit
! WAVENUM2: REAL    : Higher wavenumber spectral limit
! DELWAVE : REAL    : Spectral interval width
! TOTPLNK : REAL    :
! TOTPLK16: REAL    :
!     -----------------------------------------------------------------
!$OMP THREADPRIVATE(delwave,ng,nspa,nspb,totplk16,totplnk,wavenum1,wavenum2)
END MODULE yoerrtwn