yomaer15.F90

Go to the documentation of this file.

MODULE yomaer15

USE parkind1  ,ONLY : jpim     ,jprb

IMPLICIT NONE

SAVE

!     -----------------------------------------------------------------
!*    ** *YOMAER15* - RADIATIVE CHARACTERISTICS OF THE AEROSOLS
!*                          FROZEN VERSION (CYCLE 15) OF YOEAER
!     -----------------------------------------------------------------

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

!        96-11: Ph. Dandin. Meteo-France
!     J.-J. MORCRETTE       E.C.M.W.F.      89/07/14
!        04-06: F. Bouyssel. Initialisation done in suaer15
!        05-09: A. Alias     Sulfate aerosol (Hu Ron Ming)

!  NAME      TYPE     PURPOSE
!  ----   :  ----   : -------
!  TAUA15 :  REAL     S.W. NORMALIZED OPTICAL THICKNESS AT 0.55 MICRON
!  RPIZA15:  REAL     S.W. SINGLE SCATTERING ALBEDO
!  RCGA15 :  REAL     S.W. ASSYMETRY FACTOR
!  RAER15 :  REAL     L.W. ABSORPTION COEFFICIENTS
!     -----------------------------------------------------------------

REAL(KIND=JPRB) :: taua15 (2,6)
REAL(KIND=JPRB) :: rpiza15(2,6)
REAL(KIND=JPRB) :: rcga15 (2,6)
REAL(KIND=JPRB) :: raer15 (5,6)

!$OMP THREADPRIVATE(raer15,rcga15,rpiza15,taua15)
END MODULE yomaer15