| 1 | MODULE YOEAERSNK |
|---|
| 2 | |
|---|
| 3 | USE PARKIND1 ,ONLY : JPIM ,JPRB |
|---|
| 4 | |
|---|
| 5 | IMPLICIT NONE |
|---|
| 6 | |
|---|
| 7 | SAVE |
|---|
| 8 | |
|---|
| 9 | ! ------------------------------------------------------------------ |
|---|
| 10 | !* ** *YOEAERSNK* - CONTROL OPTIONS FOR AEROSOLS' SINKS |
|---|
| 11 | ! ------------------------------------------------------------------ |
|---|
| 12 | REAL(KIND=JPRB) :: R_R, R_S |
|---|
| 13 | REAL(KIND=JPRB) :: RALPHAR(15), RALPHAS(15) |
|---|
| 14 | REAL(KIND=JPRB) :: RFRBC(2) |
|---|
| 15 | REAL(KIND=JPRB) :: RFRIF |
|---|
| 16 | REAL(KIND=JPRB) :: RFRDD(3), RFRSS(3) |
|---|
| 17 | REAL(KIND=JPRB) :: RFROM(2) |
|---|
| 18 | REAL(KIND=JPRB) :: RFRSO4 |
|---|
| 19 | REAL(KIND=JPRB) :: RFRAER, RFRGAS |
|---|
| 20 | |
|---|
| 21 | INTEGER(KIND=JPIM) :: NBRH |
|---|
| 22 | REAL(KIND=JPRB) :: RRHMAX, RRHTAB(12), RRHO_SS(12), RSSGROW(12) |
|---|
| 23 | REAL(KIND=JPRB) :: RMMD_SS(3) |
|---|
| 24 | REAL(KIND=JPRB) :: RMMD_DD(3), RRHO_DD(3) |
|---|
| 25 | REAL(KIND=JPRB) :: RHO_WAT, RHO_ICE |
|---|
| 26 | |
|---|
| 27 | REAL(KIND=JPRB) :: RVDPOCE(15), RVDPSIC(15), RVDPLND(15), RVDPLIC(15) |
|---|
| 28 | REAL(KIND=JPRB) :: RVSEDOCE(15),RVSEDSIC(15),RVSEDLND(15),RVSEDLIC(15) |
|---|
| 29 | ! ------------------------------------------------------------------ |
|---|
| 30 | ! R_R : mean radius for rain drops (m) |
|---|
| 31 | ! R_S : mean radius for snow crystals (m) |
|---|
| 32 | ! RALPHAR : impaction coefficients for rain |
|---|
| 33 | ! RALPHAS : IMPACTION coefficients for snow |
|---|
| 34 | ! dissolution constants |
|---|
| 35 | ! RFRBCn : for black carbon (BC1: hydrophobic, BC2: hydrophylic) |
|---|
| 36 | ! RFRDDn : for dust (3 bins: 0.03 - 0.55 - 0.9 - 20 um) |
|---|
| 37 | ! RFRIF : for inorganic fraction (i.e., fly-ash) |
|---|
| 38 | ! RFROMn : for organic matter (OM1: hydrophobic, OM2: hydrophylic) |
|---|
| 39 | ! RFRSSn : for sea-salt (3 bins: 0.03 - 0.5 - 5 - 20 um) |
|---|
| 40 | |
|---|
| 41 | ! re-evaporation constants |
|---|
| 42 | ! RFRAER : for aerosols |
|---|
| 43 | ! RFRGAS : for gases |
|---|
| 44 | |
|---|
| 45 | ! RRHMAX : |
|---|
| 46 | ! RRHTAB : |
|---|
| 47 | |
|---|
| 48 | ! dry deposition velocity |
|---|
| 49 | ! RVDPOCE : |
|---|
| 50 | ! RVDPSIC : |
|---|
| 51 | ! RVDPLND : |
|---|
| 52 | ! RVDPLIC : |
|---|
| 53 | |
|---|
| 54 | ! sedimentation (gravitational settling) velocity |
|---|
| 55 | ! RVSEDOCE : for ocean |
|---|
| 56 | ! RVSEDSIC : |
|---|
| 57 | ! RVSEDLND : |
|---|
| 58 | ! RVSEDLIC : |
|---|
| 59 | ! ----------------------------------------------------------------- |
|---|
| 60 | |
|---|
| 61 | !$OMP THREADPRIVATE(nbrh,r_r,r_s,ralphar,ralphas,rfraer,rfrbc,rfrdd,rfrgas) |
|---|
| 62 | !$OMP THREADPRIVATE(rfrif,rfrom,rfrso4,rfrss,rho_ice,rho_wat,rmmd_dd,rmmd_ss) |
|---|
| 63 | !$OMP THREADPRIVATE(rrhmax,rrho_dd,rrho_ss,rrhtab,rssgrow,rvdplic,rvdplnd) |
|---|
| 64 | !$OMP THREADPRIVATE(rvdpoce,rvdpsic,rvsedlic,rvsedlnd,rvsedoce,rvsedsic) |
|---|
| 65 | |
|---|
| 66 | END MODULE YOEAERSNK |
|---|
| 67 | |
|---|
