| [1989] | 1 | MODULE YOEAEROP |
|---|
| 2 | |
|---|
| 3 | USE PARKIND1 ,ONLY : JPRB |
|---|
| 4 | |
|---|
| 5 | IMPLICIT NONE |
|---|
| 6 | |
|---|
| 7 | SAVE |
|---|
| 8 | |
|---|
| 9 | ! ------------------------------------------------------------------ |
|---|
| 10 | !* ** *YOEAEROP* - OPTICAL PROPERTIES FOR PROGNOSTIC AEROSOLS |
|---|
| 11 | ! ------------------------------------------------------------------ |
|---|
| 12 | |
|---|
| 13 | REAL(KIND=JPRB) :: ALF_BC(16) , ASY_BC(16) , OMG_BC(16) |
|---|
| 14 | REAL(KIND=JPRB) :: ALF_DD(3,16) , ASY_DD(3,16) , OMG_DD(3,16) |
|---|
| 15 | REAL(KIND=JPRB) :: ALF_FA(16) , ASY_FA(16) , OMG_FA(16) |
|---|
| 16 | REAL(KIND=JPRB) :: ALF_OM(12,16) , ASY_OM(12,16) , OMG_OM(12,16) |
|---|
| 17 | REAL(KIND=JPRB) :: ALF_SS(12,16,3), ASY_SS(12,16,3), OMG_SS(12,16,3) |
|---|
| 18 | REAL(KIND=JPRB) :: ALF_SU(12,16) , ASY_SU(12,16) , OMG_SU(12,16) |
|---|
| 19 | |
|---|
| 20 | ! ------------------------------------------------------------------ |
|---|
| 21 | ! 3 refers to 3 bins, 16 to 16 SW channel radiances, 12 to 12 reference RH |
|---|
| 22 | ! BC is for black carbon |
|---|
| 23 | ! DD is for desert dust |
|---|
| 24 | ! FA is fort flying ash |
|---|
| 25 | ! OM is for organic matter |
|---|
| 26 | ! SS is for sea-salt |
|---|
| 27 | ! SU is for sulfate |
|---|
| 28 | |
|---|
| 29 | ! ALF is alpha , the mass extinction coefficient in m2/g |
|---|
| 30 | ! ASY is g , the assymetry factor ND |
|---|
| 31 | ! OMG is pizero, the single scattering albedo ND |
|---|
| 32 | ! ------------------------------------------------------------------ |
|---|
| [2056] | 33 | |
|---|
| 34 | !$OMP THREADPRIVATE(alf_bc,alf_dd,alf_fa,alf_om,alf_ss,alf_su,asy_bc,asy_dd) |
|---|
| 35 | !$OMP THREADPRIVATE(asy_fa,asy_om,asy_ss,asy_su,omg_bc,omg_dd,omg_fa,omg_om,omg_ss,omg_su) |
|---|
| 36 | |
|---|
| [1989] | 37 | END MODULE YOEAEROP |
|---|
| 38 | |
|---|
