suaerl.F90

Go to the documentation of this file.

SUBROUTINE suaerl

!**** *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
IF (lhook) CALL dr_hook('SUAERL',0,zhook_handle)
raer( :, 1)= (/&
 & .036271_jprb, .030153_jprb, .017343_jprb, .015002_jprb, .008806_jprb, .006865_jprb /)  
raer( :, 2)= (/&
 & .026561_jprb, .032657_jprb, .017977_jprb, .014210_jprb, .016775_jprb, .022123_jprb /)  
raer( :, 3)= (/&
 & .014897_jprb, .016359_jprb, .019789_jprb, .030777_jprb, .013341_jprb, .014321_jprb /)  
raer( :, 4)= (/&
 & .001863_jprb, .002816_jprb, .002355_jprb, .002557_jprb, .001774_jprb, .001780_jprb /)  
raer( :, 5)= (/&
 & .011890_jprb, .016142_jprb, .021105_jprb, .028908_jprb, .011890_jprb, .011890_jprb /)  
raer( :, 6)= (/&
 & .013792_jprb, .026810_jprb, .052203_jprb, .066338_jprb, .013792_jprb, .013792_jprb /)  

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

IF (lhook) CALL dr_hook('SUAERL',1,zhook_handle)
END SUBROUTINE suaerl