source: LMDZ5/branches/LMDZ5_SPLA/libf/phylmd/aero_mod.F90

Last change on this file was 2003, checked in by Laurent Fairhead, 11 years ago

Nouvelle version qui inclut les effets des aérosols et propose les mêmes diagnostics des effets
directs et indirects que l'ancienne version du rayonnement.
OB


New RRTM version that includes the effects of aerosols and outputs the same direct and indirect effects
diagnostics as the old version
OB

  • 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: 1.9 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
9  INTEGER, PARAMETER :: naero_tot = 11
10
11! Identification number used in aeropt_2bands and aeropt_5wv
12! corresponding to naero_tot
13  INTEGER, PARAMETER :: id_ASBCM    = 1
14  INTEGER, PARAMETER :: id_ASPOMM   = 2
15  INTEGER, PARAMETER :: id_ASSO4M   = 3
16  INTEGER, PARAMETER :: id_CSSO4M   = 4
17  INTEGER, PARAMETER :: id_SSSSM    = 5
18  INTEGER, PARAMETER :: id_CSSSM    = 6
19  INTEGER, PARAMETER :: id_ASSSM    = 7
20  INTEGER, PARAMETER :: id_CIDUSTM  = 8
21  INTEGER, PARAMETER :: id_AIBCM    = 9
22  INTEGER, PARAMETER :: id_AIPOMM   = 10
23  INTEGER, PARAMETER :: id_STRAT   = 11
24
25! Corresponding names for the aerosols
26  CHARACTER(len=7),DIMENSION(naero_tot), PARAMETER :: name_aero_tau=(/&
27       "ASBCM  ", &
28       "ASPOMM ", &
29       "SO4    ", &
30       "CSSO4M ", &
31       "SSSSM  ", &
32       "CSSSM  ", &
33       "ASSSM  ", &
34       "CIDUSTM", &
35       "AIBCM  ", &
36       "AIPOMM ", &
37       "STRAT  " /)
38
39! 2/ Total number of aerosols for which an aerosol mass is provided
40
41  INTEGER, PARAMETER :: naero_spc = 10
42
43! Corresponding names for the aerosols
44  CHARACTER(len=7),DIMENSION(naero_spc), PARAMETER :: name_aero=(/&
45       "ASBCM  ", &
46       "ASPOMM ", &
47       "SO4    ", &
48       "CSSO4M ", &
49       "SSSSM  ", &
50       "CSSSM  ", &
51       "ASSSM  ", &
52       "CIDUSTM", &
53       "AIBCM  ", &
54       "AIPOMM " /)
55
56! 3/ Number of aerosol groups
57  INTEGER, PARAMETER :: naero_grp = 9
58  ! 1 = ZERO   
59  ! 2 = AER total   
60  ! 3 = NAT   
61  ! 4 = BC   
62  ! 5 = SO4   
63  ! 6 = POM   
64  ! 7 = DUST   
65  ! 8 = SS   
66  ! 9 = NO3   
67
68! Number of  wavelengths
69  INTEGER, PARAMETER :: nwave = 5
70
71! Number of modes spectral bands
72  INTEGER, parameter :: nbands = 2
73  INTEGER, parameter :: nbands_rrtm = 6
74
75END MODULE aero_mod
Note: See TracBrowser for help on using the repository browser.