yoeaersnk.F90

Go to the documentation of this file.

MODULE yoeaersnk

USE parkind1  ,ONLY : jpim     ,jprb

IMPLICIT NONE

SAVE

!     ------------------------------------------------------------------
!*    ** *YOEAERSNK* - CONTROL OPTIONS FOR AEROSOLS' SINKS
!     ------------------------------------------------------------------
REAL(KIND=JPRB) :: r_r, r_s
REAL(KIND=JPRB) :: ralphar(15), ralphas(15)
REAL(KIND=JPRB) :: rfrbc(2)
REAL(KIND=JPRB) :: rfrif 
REAL(KIND=JPRB) :: rfrdd(3), rfrss(3) 
REAL(KIND=JPRB) :: rfrom(2) 
REAL(KIND=JPRB) :: rfrso4
REAL(KIND=JPRB) :: rfraer, rfrgas 

INTEGER(KIND=JPIM) :: nbrh
REAL(KIND=JPRB) :: rrhmax, rrhtab(12), rrho_ss(12), rssgrow(12)
REAL(KIND=JPRB) :: rmmd_ss(3)
REAL(KIND=JPRB) :: rmmd_dd(3), rrho_dd(3)
REAL(KIND=JPRB) :: rho_wat, rho_ice

REAL(KIND=JPRB) :: rvdpoce(15), rvdpsic(15), rvdplnd(15), rvdplic(15)
REAL(KIND=JPRB) :: rvsedoce(15),rvsedsic(15),rvsedlnd(15),rvsedlic(15)
!     ------------------------------------------------------------------
! R_R        : mean radius for rain drops (m)
! R_S        : mean radius for snow crystals (m)
! RALPHAR    : impaction coefficients for rain
! RALPHAS    : IMPACTION coefficients for snow
! dissolution constants
! RFRBCn     : for black carbon (BC1: hydrophobic, BC2: hydrophylic)
! RFRDDn     : for dust     (3 bins: 0.03 - 0.55 - 0.9 - 20 um)
! RFRIF      : for inorganic fraction (i.e., fly-ash)
! RFROMn     : for organic matter (OM1: hydrophobic, OM2: hydrophylic)
! RFRSSn     : for sea-salt (3 bins: 0.03 - 0.5 - 5 - 20 um)

! re-evaporation constants
! RFRAER     : for aerosols
! RFRGAS     : for gases

! RRHMAX     : 
! RRHTAB     : 

! dry deposition velocity
! RVDPOCE    :
! RVDPSIC    :
! RVDPLND    :
! RVDPLIC    :

! sedimentation (gravitational settling) velocity
! RVSEDOCE   : for ocean
! RVSEDSIC   :
! RVSEDLND   :
! RVSEDLIC   :
!     -----------------------------------------------------------------

!$OMP THREADPRIVATE(nbrh,r_r,r_s,ralphar,ralphas,rfraer,rfrbc,rfrdd,rfrgas)
!$OMP THREADPRIVATE(rfrif,rfrom,rfrso4,rfrss,rho_ice,rho_wat,rmmd_dd,rmmd_ss)
!$OMP THREADPRIVATE(rrhmax,rrho_dd,rrho_ss,rrhtab,rssgrow,rvdplic,rvdplnd)
!$OMP THREADPRIVATE(rvdpoce,rvdpsic,rvsedlic,rvsedlnd,rvsedoce,rvsedsic)

END MODULE yoeaersnk