source: LMDZ5/trunk/libf/phylmd/aero_mod.F90 @ 2666

Last change on this file since 2666 was 2550, checked in by oboucher, 8 years ago

Correcting a bug in the calculation of od550_strat
Computing od_10um_strat in readaerosolstrato*.F90

  • 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 = 10
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
63! 3/ Number of aerosol groups
64  INTEGER, PARAMETER :: naero_grp = 12
65  ! if info_trac = inca
66  ! 1 = ZERO   
67  ! 2 = AER total   
68  ! 3 = NAT   
69  ! 4 = BC   
70  ! 5 = SO4   
71  ! 6 = POM   
72  ! 7 = DUST   
73  ! 8 = SS   
74  ! 9 = FNO3   
75  ! 10 = DNO3
76  ! 11 = SNO3
77  ! 12 = empty actually
78  ! else
79  ! 1 = ZERO   
80  ! 2 = AER total   
81  ! 3 = NAT   
82  ! 4 = BC   
83  ! 5 = SO4   
84  ! 6 = POM   
85  ! 7 = DUST   
86  ! 8 = SS   
87  ! 9 = NO3   
88
89! Number of diagnostics wavelengths (5 SW + 1 LW @ 10 um)
90  INTEGER, PARAMETER :: nwave_sw = 5
91  INTEGER, PARAMETER :: nwave_lw = 1
92  INTEGER, PARAMETER :: nwave = nwave_sw + nwave_lw
93
94! Number of modes spectral bands
95  INTEGER, parameter :: nbands = 2
96  INTEGER, parameter :: nbands_sw_rrtm = 6
97  INTEGER, parameter :: nbands_lw_rrtm = 16
98
99END MODULE aero_mod
Note: See TracBrowser for help on using the repository browser.