!**** *SUAERL*   - INITIALIZE COMMON YOEAER

!     PURPOSE.

!     --------

!           INITIALIZE YOEAER, THE COMMON THAT CONTAINS THE

!           RADIATIVE CHARACTERISTICS OF THE AEROSOLS

!**   INTERFACE.

!     ----------

!              -----        -----

!        EXPLICIT ARGUMENTS :

!        --------------------

!        NONE

!        IMPLICIT ARGUMENTS :

!        --------------------

!        COMMON YOEAER

!     METHOD.

!     -------

!        SEE DOCUMENTATION

!     EXTERNALS.

!     ----------

!     REFERENCE.

!     ----------

!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE "IFS MODEL"

!     AUTHOR.

!     -------

!        JEAN-JACQUES MORCRETTE *ECMWF*

!     MODIFICATIONS.

!     --------------

!        ORIGINAL : 88-02-15

!        99-05-25   JJMorcrette   Revised Aerosol LW properties (OPAC)

!        M.Hamrud      01-Oct-2003 CY28 Cleaning

!     ------------------------------------------------------------------

USE PARKIND1  ,ONLY : JPIM     ,JPRB

USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK

USE YOESW    , ONLY : RAER

!      ----------------------------------------------------------------

!*       1.    SHORTWAVE COEFFICIENTS

!              ----------------------

!      Initialised in SUAERSn depending on NSW number of SW spectral

!      intervals

!      ----------------------------------------------------------------

!*       2.    LONGWAVE COEFFICIENTS

!              ---------------------

!=======================================================================

!-- The (old) five aerosol types were respectively:

!  1/ continental average (+desert)       2/ maritime

!  3/ urban                               4/ volcanic active

!  5/ stratospheric background

!      RAER  = RESHAPE((/

!     &          .038520, .037196, .040532, .054934, .038520

!     &        , .126130, .18313 , .10357 , .064106, .126130

!     &        , .012579, .013649, .018652, .025181, .012579

!     &        , .011890, .016142, .021105, .028908, .011890

!     &        , .013792, .026810, .052203, .066338, .013792 /)

!     & ,SHAPE=(/5,5/))

!=======================================================================

!-- The six aerosol types are respectively:

!  1/ continental average                 2/ maritime

!  3/ desert                              4/ urban

!  5/ volcanic active                     6/ stratospheric background

! The quantities given are:

! TAU : ratio of average optical thickness in interval to that at 0.55

!       micron

! PIZA: average single scattering albedo

! CGA : average asymmetry factor

! computed from Hess and Koepke (con, mar, des, urb)

!          from Bonnel et al.   (vol, str)

!-- data are entered for the 6 spectral intervals of the LW scheme (line)

!   and the different types of aerosols (column)

IMPLICIT NONE

REAL(KIND=JPRB) :: ZHOOK_HANDLE

RAER( :, 1)= (/&

RAER( :, 2)= (/&

RAER( :, 3)= (/&

RAER( :, 4)= (/&

RAER( :, 5)= (/&

RAER( :, 6)= (/&

!      ----------------------------------------------------------------