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