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

Last change on this file since 1992 was 1907, checked in by lguez, 11 years ago

Added a copyright property to every file of the distribution, except
for the fcm files (which have their own copyright). Use svn propget on
a file to see the copyright. For instance:

$ svn propget copyright libf/phylmd/physiq.F90
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

Also added the files defining the CeCILL version 2 license, in French
and English, at the top of the LMDZ tree.

  • 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.8 KB
Line 
1! $Id$
2!
3MODULE aero_mod
4  ! Declaration des indices pour les aerosols
5
6  ! Total number of aerosols
7!  INTEGER, PARAMETER :: naero_tot = 10
8!--STRAT AER
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!--STRAT AER
24  INTEGER, PARAMETER :: id_strat   = 11
25
26
27  ! Total number of aerosols actually used in LMDZ
28  ! 1 =  ASBCM
29  ! 2 =  ASPOMM
30  ! 3 =  ASSO4M ( = SO4)
31  ! 4 =  CSSO4M
32  ! 5 =  SSSSM
33  ! 6 =  CSSSM
34  ! 7 =  ASSSM
35  ! 8 =  CIDUSTM
36  ! 9 =  AIBCM
37  !10 =  AIPOMM
38!--STRAT AER
39  !11 = aerosols stratos
40!  INTEGER, PARAMETER :: naero_spc = 10
41  INTEGER, PARAMETER :: naero_spc = 11
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       "AIPOMM ", &
56       "STRAT  " /)
57
58
59  ! Number of aerosol groups
60  ! 1 = ZERO   
61  ! 2 = AER total   
62  ! 3 = NAT   
63  ! 4 = BC   
64  ! 5 = SO4   
65  ! 6 = POM   
66  ! 7 = DUST   
67  ! 8 = SS   
68  ! 9 = NO3   
69  INTEGER, PARAMETER :: naero_grp = 9
70
71  ! Number of  wavelengths
72  INTEGER, PARAMETER :: nwave = 5
73
74  ! Number of modes spectral bands
75  INTEGER, parameter :: nbands = 2
76
77END MODULE aero_mod
Note: See TracBrowser for help on using the repository browser.