yoeaersrc.F90

Go to the documentation of this file.

MODULE yoeaersrc

USE parkind1  ,ONLY : jpim     ,jprb

IMPLICIT NONE

SAVE

!     ------------------------------------------------------------------
!*    ** *YOEAERSRC* - CONTROL OPTIONS FOR AEROSOLS' SOURCE
!     ------------------------------------------------------------------
INTEGER(KIND=JPIM) :: nmaxtaer
INTEGER(KIND=JPIM) :: ntaer
INTEGER(KIND=JPIM) :: nbinaer(9)
INTEGER(KIND=JPIM) :: nindaer(15), jktyp(15), jkbin(15)
INTEGER(KIND=JPIM) :: ntypaer(9)
INTEGER(KIND=JPIM) :: nddust

LOGICAL :: lepaero, laerextr

REAL(KIND=JPRB) :: rgelav, rgemuv, rdglav, rdgmuv
REAL(KIND=JPRB) :: rclonv, rslonv, rdclonv, rdslonv
REAL(KIND=JPRB) :: rlatvol,rlonvol

REAL(KIND=JPRB) :: rssflx(3)

!     ------------------------------------------------------------------
! MMAXTAER   : MAXIMUM TOTAL NUMBER OF AEROSOLS
! NTAER      : TOTAL NUMBER OF AEROSOLS
! NTYPAER( ) : NBINAER( )
!        (1) :         3 FOR SEA-SALT 
!        (2) :         3 FOR DESERT DUST
!        (3) :         2 FOR ORGANIC MATTERS
!        (4) :         2 FOR BLACK CARBON
!        (5) :         1 FOR SULFATE
!        (6) :         1 FOR FLY ASH
!        (7) :         1 FOR PSEUDO-PROGNOSTIC STRATOSPHERIC AEROSOLS
!        (8) :         1 FOR PROGNOSTIC STRATOSPHERIC AEROSOLS
!        (9) :         1 FOR VOLCANIC AEROSOLS

! RSSFLX     : sea salt flux for 3-size bins (in mg m-2 s-1) for a 1 m s-1
!              wind speed, at 10 m height and 80% RH 
! Rlat/lonVOL: LAT/LON of a possible volcanic eruption
! JDDUST     : 1 =LSCE, 2 =based on MODIS
!     ------------------------------------------------------------------



!$OMP THREADPRIVATE(jkbin,jktyp,laerextr,lepaero,nbinaer,nddust,nindaer)
!$OMP THREADPRIVATE(nmaxtaer,ntaer,ntypaer,rclonv,rdclonv,rdglav,rdgmuv)
!$OMP THREADPRIVATE(rdslonv,rgelav,rgemuv,rlatvol,rlonvol,rslonv,rssflx)

END MODULE yoeaersrc