yoerdi.F90

Go to the documentation of this file.

MODULE yoerdi

USE parkind1  ,ONLY : jprb

IMPLICIT NONE

SAVE

!     -----------------------------------------------------------------
!*    ** *YOERDI* - COEFFICIENTS WITHIN RADIATION INTERFACE
!     -----------------------------------------------------------------

REAL(KIND=JPRB) :: rrae
REAL(KIND=JPRB) :: rsundur
REAL(KIND=JPRB) :: rcardi
REAL(KIND=JPRB) :: rch4
REAL(KIND=JPRB) :: rn2o
REAL(KIND=JPRB) :: ro3
REAL(KIND=JPRB) :: rcfc11
REAL(KIND=JPRB) :: rcfc12
REAL(KIND=JPRB) :: repclc
REAL(KIND=JPRB) :: reph2o
REAL(KIND=JPRB) :: rcco2, rcch4, rcn2o, rccfc11, rccfc12
REAL(KIND=JPRB) :: rhvar(151,5), rfvar(101,3,5), rincsol(154), rsolinc

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

!     Original  J.-J. MORCRETTE       E.C.M.W.F.      89/07/14
!     Modified  P. Viterbo    99/03/26    Surface tiling
!     Modified  P. Viterbo    24/05/2004  surf library
!     Modified JJMorcrette    2005/01/19  GHG and Solar constant variability

!  NAME     TYPE     PURPOSE
!  ----  :  ----   : ---------------------------------------------------
! RRAE   : EFFECT OF EARTH'S CURVATURE ON COSINE SOLAR ZENITH ANGLE
! RSUNDUR: MINIMUM DIRECT SOLAR FOR COMPUTING SOLAR DURATION
! RCARDI : SPECIFIC ATMOSPHERIC CONTENT IN CO2
! REPCLC : SECURITY TO AVOID ZERO OR ONE CLOUD COVERS
! REPH2O : SECURITY TO AVOID WATER VAPOUR CONTENT IN A LAYER
!          TO BE MORE THAN THE RESPECTIVE VALUE AT SATURATION.
!     -----------------------------------------------------------------

!$OMP THREADPRIVATE(rcardi,rccfc11,rccfc12,rcch4,rcco2,rcfc11,rcfc12,rch4)
!$OMP THREADPRIVATE(rcn2o,repclc,reph2o,rfvar,rhvar,rincsol,rn2o,ro3,rrae)
!$OMP THREADPRIVATE(rsolinc,rsundur)

END MODULE yoerdi