yomrdu15.F90

Go to the documentation of this file.

MODULE yomrdu15

USE parkind1  ,ONLY : jpim     ,jprb

IMPLICIT NONE

SAVE

!     ------------------------------------------------------------------
!*    ** *YOMRDU15* - CONTROL, PARAM. AND SECURITY IN RADIATION
!*                          FROZEN VERSION (CYCLE 15) OF YOERDU
!     ------------------------------------------------------------------

INTEGER(KIND=JPIM) :: nuaer15
INTEGER(KIND=JPIM) :: ntraer15
INTEGER(KIND=JPIM) :: nimp15
INTEGER(KIND=JPIM) :: nout15
REAL(KIND=JPRB) :: rcday15
REAL(KIND=JPRB) :: r10e15
REAL(KIND=JPRB) :: reelog15
REAL(KIND=JPRB) :: repsc15
REAL(KIND=JPRB) :: repsco15
REAL(KIND=JPRB) :: repscq15
REAL(KIND=JPRB) :: repsct15
REAL(KIND=JPRB) :: repscw15
REAL(KIND=JPRB) :: repsec15
REAL(KIND=JPRB) :: diff15

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

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

!  NAME        TYPE     PURPOSE
!  ----     :  ----   : ------------------------------------------------
! NUAER15   : INTEGER   # OF ABSORBER AMOUNTS        W OR W/O AEROSOLS
! NTRAER15  : INTEGER   # OF TRANSMISSION FUNCTIONS  W OR W/O AEROSOLS
! NIMP15    : INTEGER   INDEX FOR EXTRA PRINTS WITHIN RADIATION CODE
! NOUT15    : INTEGER   UNIT NUMBER FOR THE EXTRA PRINTS
! RCDAY15   : REAL
! CCO215    : REAL      CONVERSION COEFFICIENT FOR CO2 IN S.W. CODE
! CH2O15    : REAL      CONVERSION COEFFICIENT FOR H2O IN S.W. CODE
! R10E15    : REAL      DECIMAL/NATURAL LOG.FACTOR
! DIFF15    : REAL      DIFFUSIVITY FACTOR
!-SECURITY THRESHOLDS
! REELOG15  : REAL      SEC. EPSILON FOR ABS.AMOUNT IN LAPLACE TRANSFORM
! REPSC15   : REAL      SEC. EPSILON FOR CLOUD COVER
! REPSEC15  : REAL      SEC. EPSILON FOR CLOUD COVER (was in YOECLD)
! REPSCO15  : REAL      SEC. EPSILON FOR OZONE AMOUNT
! REPSCQ15  : REAL      SEC. EPSILON FOR WATER VAPOR
! REPSCT15  : REAL      SEC. EPSILON FOR SHORTWAVE OPTICAL THICKNESS
! REPSCW15  : REAL      SEC. EPSILON FOR CLOUD LIQUID WATER PATH
!     -----------------------------------------------------------------
!$OMP THREADPRIVATE(diff15,nimp15,nout15,ntraer15,nuaer15,r10e15,rcday15,reelog15)
!$OMP THREADPRIVATE(repsc15,repsco15,repscq15,repsct15,repscw15,repsec15)
END MODULE yomrdu15