yoeaer.F90

Go to the documentation of this file.

MODULE yoeaer


#include "tsmbkind.h"

IMPLICIT NONE

SAVE

!     -----------------------------------------------------------------
!*    ** *YOEAER* - RADIATIVE CHARACTERISTICS OF THE AEROSOLS
!     -----------------------------------------------------------------


!*       1.    SHORTWAVE COEFFICIENTS
!              ----------------------

real_b , DIMENSION(4,5)   :: rtaua=reshape((/&
 &.730719_jprb,.730719_jprb,.730719_jprb,.730719_jprb,&
 &.912819_jprb,.912819_jprb,.912819_jprb,.912819_jprb,&
 &.725059_jprb,.725059_jprb,.725059_jprb,.725059_jprb,&
 &.745405_jprb,.745405_jprb,.745405_jprb,.745405_jprb,&
 &.682188_jprb,.682188_jprb,.682188_jprb,.682188_jprb /)&
 &,shape=(/4,5/))
real_b , DIMENSION(4,5)   :: rpiza=reshape((/&
 &.872212_jprb,.872212_jprb,.872212_jprb,.872212_jprb,&
 &.982545_jprb,.982545_jprb,.982545_jprb,.982545_jprb,&
 &.623143_jprb,.623143_jprb,.623143_jprb,.623143_jprb,&
 &.944887_jprb,.944887_jprb,.944887_jprb,.944887_jprb,&
 &.997975_jprb,.997975_jprb,.997975_jprb,.997975_jprb /)&
 &,shape=(/4,5/))
real_b , DIMENSION(4,5)   :: rcga=reshape((/&
 &.647596_jprb,.647596_jprb,.647596_jprb,.647596_jprb,&
 &.739002_jprb,.739002_jprb,.739002_jprb,.739002_jprb,&
 &.580845_jprb,.580845_jprb,.580845_jprb,.580845_jprb,&
 &.662657_jprb,.662657_jprb,.662657_jprb,.662657_jprb,&
 &.624246_jprb,.624246_jprb,.624246_jprb,.624246_jprb /)&
 &,shape=(/4,5/))

!*       2.    LONGWAVE COEFFICIENTS
!              ---------------------


real_b , DIMENSION(5,5)   :: raer=reshape((/&
 &.038520_jprb, .037196_jprb, .040532_jprb, .054934_jprb, .038520_jprb ,&
 &.12613_jprb , .18313_jprb , .10357_jprb , .064106_jprb, .126130_jprb ,&
 &.012579_jprb, .013649_jprb, .018652_jprb, .025181_jprb, .012579_jprb ,&
 &.011890_jprb, .016142_jprb, .021105_jprb, .028908_jprb, .011890_jprb ,&
 &.013792_jprb, .026810_jprb, .052203_jprb, .066338_jprb, .013792_jprb /&
       &),shape=(/5,5/))


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

!     J.-J. MORCRETTE       E.C.M.W.F.      89/07/14

!  NAME     TYPE     PURPOSE
!  ----  :  ----   : -------
!  RTAUA :  REAL     S.W. NORMALIZED OPTICAL THICKNESS AT 0.55 MICRON
!  RPIZA :  REAL     S.W. SINGLE SCATTERING ALBEDO
!  RCGA  :  REAL     S.W. ASSYMETRY FACTOR
!  RAER  :  REAL     L.W. ABSORPTION COEFFICIENTS
!     -----------------------------------------------------------------
END MODULE yoeaer