| [1989] | 1 | MODULE YOEAERSRC |
|---|
| 2 | |
|---|
| 3 | USE PARKIND1 ,ONLY : JPIM ,JPRB |
|---|
| 4 | |
|---|
| 5 | IMPLICIT NONE |
|---|
| 6 | |
|---|
| 7 | SAVE |
|---|
| 8 | |
|---|
| 9 | ! ------------------------------------------------------------------ |
|---|
| 10 | !* ** *YOEAERSRC* - CONTROL OPTIONS FOR AEROSOLS' SOURCE |
|---|
| 11 | ! ------------------------------------------------------------------ |
|---|
| 12 | INTEGER(KIND=JPIM) :: NMAXTAER |
|---|
| 13 | INTEGER(KIND=JPIM) :: NTAER |
|---|
| 14 | INTEGER(KIND=JPIM) :: NBINAER(9) |
|---|
| 15 | INTEGER(KIND=JPIM) :: NINDAER(15), JKTYP(15), JKBIN(15) |
|---|
| 16 | INTEGER(KIND=JPIM) :: NTYPAER(9) |
|---|
| 17 | INTEGER(KIND=JPIM) :: NDDUST |
|---|
| 18 | |
|---|
| 19 | LOGICAL :: LEPAERO, LAEREXTR |
|---|
| 20 | |
|---|
| 21 | REAL(KIND=JPRB) :: RGELAV, RGEMUV, RDGLAV, RDGMUV |
|---|
| 22 | REAL(KIND=JPRB) :: RCLONV, RSLONV, RDCLONV, RDSLONV |
|---|
| 23 | REAL(KIND=JPRB) :: RLATVOL,RLONVOL |
|---|
| 24 | |
|---|
| 25 | REAL(KIND=JPRB) :: RSSFLX(3) |
|---|
| 26 | |
|---|
| 27 | ! ------------------------------------------------------------------ |
|---|
| 28 | ! MMAXTAER : MAXIMUM TOTAL NUMBER OF AEROSOLS |
|---|
| 29 | ! NTAER : TOTAL NUMBER OF AEROSOLS |
|---|
| 30 | ! NTYPAER( ) : NBINAER( ) |
|---|
| 31 | ! (1) : 3 FOR SEA-SALT |
|---|
| 32 | ! (2) : 3 FOR DESERT DUST |
|---|
| 33 | ! (3) : 2 FOR ORGANIC MATTERS |
|---|
| 34 | ! (4) : 2 FOR BLACK CARBON |
|---|
| 35 | ! (5) : 1 FOR SULFATE |
|---|
| 36 | ! (6) : 1 FOR FLY ASH |
|---|
| 37 | ! (7) : 1 FOR PSEUDO-PROGNOSTIC STRATOSPHERIC AEROSOLS |
|---|
| 38 | ! (8) : 1 FOR PROGNOSTIC STRATOSPHERIC AEROSOLS |
|---|
| 39 | ! (9) : 1 FOR VOLCANIC AEROSOLS |
|---|
| 40 | |
|---|
| 41 | ! RSSFLX : sea salt flux for 3-size bins (in mg m-2 s-1) for a 1 m s-1 |
|---|
| 42 | ! wind speed, at 10 m height and 80% RH |
|---|
| 43 | ! Rlat/lonVOL: LAT/LON of a possible volcanic eruption |
|---|
| 44 | ! JDDUST : 1 =LSCE, 2 =based on MODIS |
|---|
| 45 | ! ------------------------------------------------------------------ |
|---|
| [2056] | 46 | |
|---|
| 47 | |
|---|
| 48 | |
|---|
| 49 | !$OMP THREADPRIVATE(jkbin,jktyp,laerextr,lepaero,nbinaer,nddust,nindaer) |
|---|
| 50 | !$OMP THREADPRIVATE(nmaxtaer,ntaer,ntypaer,rclonv,rdclonv,rdglav,rdgmuv) |
|---|
| 51 | !$OMP THREADPRIVATE(rdslonv,rgelav,rgemuv,rlatvol,rlonvol,rslonv,rssflx) |
|---|
| 52 | |
|---|
| [1989] | 53 | END MODULE YOEAERSRC |
|---|
| 54 | |
|---|
