| 1 | ! $Id$ |
|---|
| 2 | ! |
|---|
| 3 | MODULE aero_mod |
|---|
| 4 | |
|---|
| 5 | IMPLICIT NONE |
|---|
| 6 | |
|---|
| 7 | ! Declaration des indices pour les aerosols |
|---|
| 8 | |
|---|
| 9 | ! 1/ Total number of aerosols for which an aerosol optical depth is provided |
|---|
| 10 | !--strat aerosols are only prescribed naero_tot = 10 ==> 11 |
|---|
| 11 | !--adding nitrate naero_tot = 14 OB |
|---|
| 12 | |
|---|
| 13 | INTEGER, PARAMETER :: naero_tot = 14 |
|---|
| 14 | |
|---|
| 15 | ! Identification number used in aeropt_2bands and aeropt_5wv |
|---|
| 16 | ! corresponding to naero_tot |
|---|
| 17 | INTEGER, PARAMETER :: id_ASBCM_phy = 1 |
|---|
| 18 | INTEGER, PARAMETER :: id_ASPOMM_phy = 2 |
|---|
| 19 | INTEGER, PARAMETER :: id_ASSO4M_phy = 3 |
|---|
| 20 | INTEGER, PARAMETER :: id_CSSO4M_phy = 4 |
|---|
| 21 | INTEGER, PARAMETER :: id_SSSSM_phy = 5 |
|---|
| 22 | INTEGER, PARAMETER :: id_CSSSM_phy = 6 |
|---|
| 23 | INTEGER, PARAMETER :: id_ASSSM_phy = 7 |
|---|
| 24 | INTEGER, PARAMETER :: id_CIDUSTM_phy = 8 |
|---|
| 25 | INTEGER, PARAMETER :: id_AIBCM_phy = 9 |
|---|
| 26 | INTEGER, PARAMETER :: id_AIPOMM_phy = 10 |
|---|
| 27 | INTEGER, PARAMETER :: id_ASNO3M_phy = 11 |
|---|
| 28 | INTEGER, PARAMETER :: id_CSNO3M_phy = 12 |
|---|
| 29 | INTEGER, PARAMETER :: id_CINO3M_phy = 13 |
|---|
| 30 | INTEGER, PARAMETER :: id_STRAT_phy = 14 |
|---|
| 31 | |
|---|
| 32 | ! Corresponding names for the aerosols |
|---|
| 33 | CHARACTER(len=7),DIMENSION(naero_tot), PARAMETER :: name_aero_tau=(/& |
|---|
| 34 | "ASBCM ", & |
|---|
| 35 | "ASPOMM ", & |
|---|
| 36 | "ASSO4M ", & |
|---|
| 37 | "CSSO4M ", & |
|---|
| 38 | "SSSSM ", & |
|---|
| 39 | "CSSSM ", & |
|---|
| 40 | "ASSSM ", & |
|---|
| 41 | "CIDUSTM", & |
|---|
| 42 | "AIBCM ", & |
|---|
| 43 | "AIPOMM ", & |
|---|
| 44 | "ASNO3M ", & |
|---|
| 45 | "CSNO3M ", & |
|---|
| 46 | "CINO3M ", & |
|---|
| 47 | "STRAT " /) |
|---|
| 48 | |
|---|
| 49 | ! 2/ Total number of aerosols for which an aerosol mass is provided |
|---|
| 50 | |
|---|
| 51 | INTEGER, PARAMETER :: naero_spc = 13 |
|---|
| 52 | |
|---|
| 53 | ! Corresponding names for the aerosols |
|---|
| 54 | CHARACTER(len=7),DIMENSION(naero_spc), PARAMETER :: name_aero=(/& |
|---|
| 55 | "ASBCM ", & |
|---|
| 56 | "ASPOMM ", & |
|---|
| 57 | "SO4 ", & |
|---|
| 58 | "CSSO4M ", & |
|---|
| 59 | "SSSSM ", & |
|---|
| 60 | "CSSSM ", & |
|---|
| 61 | "ASSSM ", & |
|---|
| 62 | "CIDUSTM", & |
|---|
| 63 | "AIBCM ", & |
|---|
| 64 | "AIPOMM " ,& |
|---|
| 65 | "ASNO3M ", & |
|---|
| 66 | "CSNO3M ", & |
|---|
| 67 | "CINO3M " /) |
|---|
| 68 | |
|---|
| 69 | ! 3/ Number of aerosol groups |
|---|
| 70 | INTEGER, PARAMETER :: naero_grp = 13 |
|---|
| 71 | ! if info_trac = inca |
|---|
| 72 | ! 1 = ZERO |
|---|
| 73 | ! 2 = AER total |
|---|
| 74 | ! 3 = NAT |
|---|
| 75 | ! 4 = BC |
|---|
| 76 | ! 5 = SO4 |
|---|
| 77 | ! 6 = POM |
|---|
| 78 | ! 7 = DUST |
|---|
| 79 | ! 8 = SS |
|---|
| 80 | ! 9 = FNO3 |
|---|
| 81 | ! 10 = DNO3 |
|---|
| 82 | ! 11 = SNO3 |
|---|
| 83 | ! 12 = SOAA |
|---|
| 84 | ! 13 = SOAB |
|---|
| 85 | ! else |
|---|
| 86 | ! 1 = ZERO |
|---|
| 87 | ! 2 = AER total |
|---|
| 88 | ! 3 = NAT |
|---|
| 89 | ! 4 = BC |
|---|
| 90 | ! 5 = SO4 |
|---|
| 91 | ! 6 = POM |
|---|
| 92 | ! 7 = DUST |
|---|
| 93 | ! 8 = SS |
|---|
| 94 | ! 9 = NO3 |
|---|
| 95 | |
|---|
| 96 | ! Number of diagnostics wavelengths (5 SW + 1 LW @ 10 um) |
|---|
| 97 | INTEGER, PARAMETER :: nwave_sw = 5 |
|---|
| 98 | INTEGER, PARAMETER :: nwave_lw = 1 |
|---|
| 99 | INTEGER, PARAMETER :: nwave = nwave_sw + nwave_lw |
|---|
| 100 | |
|---|
| 101 | ! Number of modes spectral bands |
|---|
| 102 | INTEGER, parameter :: nbands = 2 |
|---|
| 103 | INTEGER, parameter :: nbands_sw_rrtm = 6 |
|---|
| 104 | INTEGER, parameter :: nbands_lw_rrtm = 16 |
|---|
| 105 | |
|---|
| 106 | END MODULE aero_mod |
|---|
