source: LMDZ5/branches/testing/libf/phylmd/aero_mod.F90 @ 5409

Last change on this file since 5409 was 2839, checked in by Laurent Fairhead, 8 years ago

Merged trunk changes r2785:2838 into testing branch

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