yoesrtwn.F90

Go to the documentation of this file.

MODULE yoesrtwn

USE parkind1  ,ONLY : jpim     ,jprb

IMPLICIT NONE

SAVE

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

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

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

REAL(KIND=JPRB), DIMENSION(59) :: pref
REAL(KIND=JPRB), DIMENSION(59) :: preflog
REAL(KIND=JPRB), DIMENSION(59) :: tref

INTEGER(KIND=JPIM), DIMENSION(224) :: ngm
INTEGER(KIND=JPIM), DIMENSION(14)  :: ngc, ngs
! Use for 112 g-points
INTEGER(KIND=JPIM), DIMENSION(112) :: ngbsw, ngn
! Use for 224 g-points
!INTEGER(KIND=JPIM), DIMENSION(224) :: NGBSW, NGN

REAL(KIND=JPRB), DIMENSION(16)  :: wt, wtsm
REAL(KIND=JPRB), DIMENSION(224) :: rwgt

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

!     J.-J. MORCRETTE       E.C.M.W.F.      03-03-07
!     M. J. IACONO          AER             12/09/03

!  NAME     TYPE     PURPOSE
!  ----   : ----    : -------
!  NG     : INTEGER : Number of k-coefficients in spectral intervals
!  NSPA   : INTEGER :
!  NSPB   : INTEGER :
! NMPSRTM : INTEGER : MAAPING INDICES FOR 6-SPECTRAL INT. SURFACE ALBEDO 
! WAVENUM1: REAL    : Lower wavenumber spectral limit
! WAVENUM2: REAL    : Higher wavenumber spectral limit
! DELWAVE : REAL    : Spectral interval width
! PREF    : REAL    : Reference pressure
! PREFLOG : REAL    : Log reference pressure
! TREF    : REAL    : Reference temperature
!  NGC    : INTEGER : The number of new g-points in each band
!  NGS    : INTEGER : The cumulative sum of new g-points for each band
!  NGM    : INTEGER : The index of each new g-point relative to the
!                     original 16 g-points for each band.
!  NGN    : INTEGER : The number of original g-points that are combined 
!                     to make each new g-point in each band.
!  NGB    : INTEGER : The band index for each new g-point.
!  WT     : REAL    : RRTM weights for 16 g-points.
!  WTSUM  : REAL    : Sum of the weights
!  RWGT   : REAL    : 
!     -----------------------------------------------------------------
!$OMP THREADPRIVATE(delwave,ng,ngbsw,ngc,ngm,ngn,ngs,nmpsrtm,nspa,nspb)
!$OMP THREADPRIVATE(pref,preflog,rwgt,tref,wavenum1,wavenum2,wt,wtsm)
END MODULE yoesrtwn