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

Last change on this file since 2237 was 2146, checked in by idelkadi, 10 years ago

Les modifications introduites ont pour but :
1/ d'autoriser le couplage entre INCA-aerosol et les parametrisations de
la nouvelle physique (NP) de LMDZ, en particulier les thermiques et le
transport convectif,
2/ generaliser les routines de calcul de proprietes optiques des
aerosols pour RRTM au cas ou les aerosols sont interactifs
3/ d'inclure les effets LW des aerosols stratospheriques pour RRTM
  • 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.3 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       "SO4    ", &
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 = 9
65  ! 1 = ZERO   
66  ! 2 = AER total   
67  ! 3 = NAT   
68  ! 4 = BC   
69  ! 5 = SO4   
70  ! 6 = POM   
71  ! 7 = DUST   
72  ! 8 = SS   
73  ! 9 = NO3   
74
75! Number of diagnostics wavelengths (5 SW + 1 LW @ 10 um)
76  INTEGER, PARAMETER :: nwave = 5
77  INTEGER, PARAMETER :: nwave_lw = 1
78
79! Number of modes spectral bands
80  INTEGER, parameter :: nbands = 2
81  INTEGER, parameter :: nbands_sw_rrtm = 6
82  INTEGER, parameter :: nbands_lw_rrtm = 16
83
84END MODULE aero_mod
Note: See TracBrowser for help on using the repository browser.