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

Last change on this file since 1851 was 1791, checked in by Ehouarn Millour, 11 years ago

Enrichissement et organisation en module de la structure ctrl_out des variables de sortie: ajout des champs description, unité et type_ecrit. Adaptation en conséquence des routines histdef et histwrite.
UG
...................................................

Improvement and transformation into a module of the ctrl_out structure describing output vars. New fields: description, unit and type_ecrit. Creation of new routines histwrite and histdef to take advantage of this structure.
UG

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.