doxy_201512/html/phymar_2suaerl_8_f90_source.html

 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)


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


 #include "tsmbkind.h"


 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

 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 /)


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


 RETURN

 END SUBROUTINE suaerl

suaerl
subroutine suaerl
Definition: suaerl.F90:2

yoesw
Definition: yoesw.F90:1

yoesw::raer
real(kind=jprb), dimension(6, 6) raer
Definition: yoesw.F90:118