MODULE YOMAERD15

USE PARKIND1  ,ONLY : JPIM     ,JPRB

IMPLICIT NONE

SAVE

!     ------------------------------------------------------------------
!*     *YOMAERD15* SPECTRAL DISTRIBUTION OF AEROSOLS
!*                       FROZEN VERSION (CYCLE 15) OF YOEAERD
!     ------------------------------------------------------------------

REAL(KIND=JPRB),ALLOCATABLE:: CVDAES15(:)
REAL(KIND=JPRB),ALLOCATABLE:: CVDAEL15(:)
REAL(KIND=JPRB),ALLOCATABLE:: CVDAEU15(:)
REAL(KIND=JPRB),ALLOCATABLE:: CVDAED15(:)
REAL(KIND=JPRB),ALLOCATABLE:: CVDAEF15(:)

REAL(KIND=JPRB) :: RCAEOPS15
REAL(KIND=JPRB) :: RCAEOPL15
REAL(KIND=JPRB) :: RCAEOPU15
REAL(KIND=JPRB) :: RCAEOPD15
REAL(KIND=JPRB) :: RCAEOPF15
REAL(KIND=JPRB) :: RCTRBGA15
REAL(KIND=JPRB) :: RCVOBGA15
REAL(KIND=JPRB) :: RCSTBGA15
REAL(KIND=JPRB) :: RCTRPT15
REAL(KIND=JPRB) :: RCAEADM15
REAL(KIND=JPRB) :: RCAEROS15

REAL(KIND=JPRB) :: RAESC15(66)
REAL(KIND=JPRB) :: RAESS15(55)
REAL(KIND=JPRB) :: RAELC15(66)
REAL(KIND=JPRB) :: RAELS15(55)
REAL(KIND=JPRB) :: RAEUC15(66)
REAL(KIND=JPRB) :: RAEUS15(55)
REAL(KIND=JPRB) :: RAEDC15(66)
REAL(KIND=JPRB) :: RAEDS15(55)
REAL(KIND=JPRB) :: RCAEADK15(3)

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

!        96-11: Ph. Dandin. Meteo-France
!     J.-J. MORCRETTE    E.C.M.W.F.     92/09/24  Adaptation to IFS
!     R.G AND M.J        E.C.M.W.F.     29/11/82.
!     A. Alias           29-09-05 Sulfate aerosols (Hu Ron Ming)

!      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.
!     *CAEF_*   REAL      *REFERS TO *SULFATE 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 COMPUT. (NFLEVG+1)
!     *RCTRPT15*   REAL      *CONSTANTS USED FOR AEROSOL COMPUTATIONS.
!     *RCAEADK15*  REAL      *CONSTANTS USED FOR AEROSOL COMPUTATIONS.
!     *RCAEADM15*  REAL      *CONSTANTS USED FOR AEROSOL COMPUTATIONS.
!     *RCAEROS15*  REAL      *BACKGROUND VALUE IN ABSENCE OF AEROSOLS.
!     ------------------------------------------------------------------
!$OMP THREADPRIVATE(raedc15,raeds15,raelc15,raels15,raesc15,raess15,raeuc15,raeus15,rcaeadk15,rcaeadm15)
!$OMP THREADPRIVATE(rcaeopd15,rcaeopf15,rcaeopl15,rcaeops15,rcaeopu15,rcaeros15,rcstbga15,rctrbga15,rctrpt15,rcvobga15)
!$OMP THREADPRIVATE(cvdaed15,cvdaef15,cvdael15,cvdaes15,cvdaeu15)
END MODULE YOMAERD15