yomsw15.F90

Go to the documentation of this file.

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