yoeaerd.F90

Go to the documentation of this file.

MODULE yoeaerd


#include "tsmbkind.h"

IMPLICIT NONE

SAVE

!     ------------------------------------------------------------------
!*     *YOEAERD* SPECTRAL DISTRIBUTION OF AEROSOLS
!     ------------------------------------------------------------------

!REAL_B,ALLOCATABLE:: CVDAES(:)
!REAL_B,ALLOCATABLE:: CVDAEL(:)
!REAL_B,ALLOCATABLE:: CVDAEU(:)
!REAL_B,ALLOCATABLE:: CVDAED(:)

real_b :: cvdaes(601)
real_b :: cvdael(601)
real_b :: cvdaeu(601)
real_b :: cvdaed(601)

real_b :: raesc(66)
real_b :: raess(55)
real_b :: raelc(66)
real_b :: raels(55)
real_b :: raeuc(66)
real_b :: raeus(55)
real_b :: raedc(66)
real_b :: raeds(55)

real_b :: rcaeops
real_b :: rcaeopl
real_b :: rcaeopu
real_b :: rcaeopd
real_b :: rctrbga
real_b :: rcvobga
real_b :: rcstbga
real_b :: rctrpt
real_b :: rcaeadk(3)
real_b :: rcaeadm
real_b :: rcaeros


!*     *YOEAERD* SPECTRAL DISTRIBUTION OF AEROSOLS.
!                     (TRIANGULAR *T10* TRUNCATION FOR AEROSOLS).

!     R.G AND M.J        E.C.M.W.F.     29/11/82.
!     J.-J. MORCRETTE    E.C.M.W.F.     92/09/24  Adaptation to IFS

!      NAME     TYPE      PURPOSE
!      ----     ----      -------

!     *CAES_*   REAL      *REFERS TO *SEA AEROSOLS.
!     *CAEL_*   REAL      *REFERS TO *LAND AEROSOLS.
!     *CAEU_*   REAL      *REFERS TO *URBAN AEROSOLS.
!     *CAED_*   REAL      *REFERS TO *DESERT AEROSOLS.
!     *C___C*   REAL      *REFERS TO *COS COMPONENT.
!     *C___S*   REAL      *REFERS TO *SIN COMPONENT.
!     *CAEOP_*  REAL      *CONSTANTS USED FOR AEROSOL COMPUTATIONS.
!     *C___S*   REAL      *REFERS TO *SEA AEROSOLS.
!     *C___L*   REAL      *REFERS TO *LAND AEROSOLS.
!     *C___U*   REAL      *REFERS TO *URBAN AEROSOLS.
!     *C___D*   REAL      *REFERS TO *DESERT AEROSOLS.
!     *C__BGA*  REAL      *CONSTANTS USED FOR AEROSOL COMPUTATIONS.
!     *CVDAE_*  REAL      *CONSTANTS USED FOR AEROSOL COMPUTATIONS.(NFLEV+1)
!     *RCTRPT*   REAL      *CONSTANTS USED FOR AEROSOL COMPUTATIONS.
!     *RCAEADK*  REAL      *CONSTANTS USED FOR AEROSOL COMPUTATIONS.
!     *RCAEADM*  REAL      *CONSTANTS USED FOR AEROSOL COMPUTATIONS.
!     *RCAEROS*  REAL      *BACKGROUND VALUE IN ABSENCE OF AEROSOLS.

!     ------------------------------------------------------------------
END MODULE yoeaerd