yoeaerop.F90

Go to the documentation of this file.

MODULE yoeaerop

USE parkind1  ,ONLY : jprb

IMPLICIT NONE

SAVE

!     ------------------------------------------------------------------
!*    ** *YOEAEROP* - OPTICAL PROPERTIES FOR PROGNOSTIC AEROSOLS
!     ------------------------------------------------------------------

REAL(KIND=JPRB) :: alf_bc(16)     , asy_bc(16)     , omg_bc(16)
REAL(KIND=JPRB) :: alf_dd(3,16)   , asy_dd(3,16)   , omg_dd(3,16)
REAL(KIND=JPRB) :: alf_fa(16)     , asy_fa(16)     , omg_fa(16)
REAL(KIND=JPRB) :: alf_om(12,16)  , asy_om(12,16)  , omg_om(12,16)
REAL(KIND=JPRB) :: alf_ss(12,16,3), asy_ss(12,16,3), omg_ss(12,16,3)
REAL(KIND=JPRB) :: alf_su(12,16)  , asy_su(12,16)  , omg_su(12,16)

!     ------------------------------------------------------------------
! 3 refers to 3 bins, 16 to 16 SW channel radiances, 12 to 12 reference RH
! BC is for black carbon
! DD is for desert dust
! FA is fort flying ash
! OM is for organic matter
! SS is for sea-salt
! SU is for sulfate

! ALF is alpha , the mass extinction coefficient   in m2/g
! ASY is g     , the assymetry factor                                ND
! OMG is pizero, the single scattering albedo        ND
!     ------------------------------------------------------------------

!$OMP THREADPRIVATE(alf_bc,alf_dd,alf_fa,alf_om,alf_ss,alf_su,asy_bc,asy_dd)
!$OMP THREADPRIVATE(asy_fa,asy_om,asy_ss,asy_su,omg_bc,omg_dd,omg_fa,omg_om,omg_ss,omg_su)

END MODULE yoeaerop