source: LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/aero_mod.F90 @ 1373

Last change on this file since 1373 was 1279, checked in by Laurent Fairhead, 15 years ago

Merged LMDZ4-dev branch changes r1241:1278 into the trunk
Running trunk and LMDZ4-dev in LMDZOR configuration on local
machine (sequential) and SX8 (4-proc) yields identical results
(restart and restartphy are identical binarily)
Log history from r1241 to r1278 is available by switching to
source:LMDZ4/branches/LMDZ4-dev-20091210

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