MODULE YOMSW15

USE PARKIND1  ,ONLY : JPIM     ,JPRB

IMPLICIT NONE

SAVE

!     ------------------------------------------------------------------
!*    ** *YOMSW15* - COEFFICIENTS FOR SHORTWAVE RADIATION TRANSFER
!*                         FROZEN VERSION (CYCLE 15) OF YOESW
!     ------------------------------------------------------------------

REAL(KIND=JPRB) :: APAD15(2,3,7)
REAL(KIND=JPRB) :: BPAD15(2,3,7)
REAL(KIND=JPRB) :: RRAY15(2,6)
REAL(KIND=JPRB) :: RSUN15(2)
REAL(KIND=JPRB) :: RPDH115
REAL(KIND=JPRB) :: RPDU115
REAL(KIND=JPRB) :: RPNH15
REAL(KIND=JPRB) :: RPNU15
REAL(KIND=JPRB) :: RSWCE15
REAL(KIND=JPRB) :: RSWCP15
REAL(KIND=JPRB) :: RTDH2O15
REAL(KIND=JPRB) :: RTDUMG15
REAL(KIND=JPRB) :: RTH2O15
REAL(KIND=JPRB) :: RTUMG15
REAL(KIND=JPRB) :: D15(2,3)

!        * E.C.M.W.F. PHYSICS PACKAGE *

!        96-11: Ph. Dandin. Meteo-France
!     ORIGINAL BY J.-J. MORCRETTE       E.C.M.W.F.      89/07/14

!  NAME       TYPE     PURPOSE
!  ----    :  ----   : -------------------------------------------------
!  APAD15  :  REAL     PADE APPROXIMANTS NUMERATOR
!  BPAD15  :  REAL     PADE APPROXIMANTS DENOMINATOR
!  D15     :  REAL     TRANSMISSION LIMIT FOR INFINITE ABSORBER AMOUNT
!  RRAY15  :  REAL     RAYLEIGH SCATTERING COEFFICIENTS
!  RSUN15  :  REAL     SOLAR FRACTION IN SPECTRAL INTERVALS
!  RPDH115 :  1 + EXPONENT PRESSURE DEPENDENCE H2O
!  RPDU115 :  1 + EXPONENT PRESSURE DEPENDENCE UNIFORMLY MIXED GASES
!  RPNH15  :  REFERENCE PRESSURE FACTOR FOR H2O
!  RPNU15  :  REFERENCE PRESSURE FACTOR FOR UNIFORMLY MIXED GASES
!  RSWCE15 :  E-TYPE, H2O CONTINUUM ABSORP. COEFFICIENT OVER 0.68-4 MU
!  RSWCP15 :  P-TYPE, H2O CONTINUUM ABSORP. COEFFICIENT OVER 0.68-4 MU
!  RTDH2O15:  EXPONENT TEMPERATURE DEPENDENCE H2O
!  RTDUMG15:  EXPONENT TEMPERATURE DEPENDENCE UNIFORMLY MIXED GASES
!  RTH2O15 :  REFERENCE TEMPERATURE H2O
!  RTUMG15 :  REFERENCE TEMPERATURE UNIFORMLY MIXED GASES
!     -----------------------------------------------------------------
!$OMP THREADPRIVATE(apad15,bpad15,d15,rpdh115,rpdu115,rpnh15,rpnu15,rray15,rsun15,rswce15,rswcp15)
!$OMP THREADPRIVATE(rtdh2o15,rtdumg15,rth2o15,rtumg15)
END MODULE YOMSW15