source: LMDZ6/branches/blowing_snow/libf/phylmd/aero_mod.F90 @ 5018

Last change on this file since 5018 was 4176, checked in by lguez, 2 years ago

Polish

  • 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: 3.2 KB
Line 
1! $Id$
2!
3MODULE aero_mod
4
5  IMPLICIT NONE
6
7! Declaration des indices pour les aerosols
8
9! 1/ Total number of aerosols for which an aerosol optical depth is provided
10!--strat aerosols are only prescribed naero_tot = 10 ==> 11
11!--adding nitrate naero_tot = 14 OB
12
13  INTEGER, PARAMETER :: naero_tot = 14
14
15! Identification number used in aeropt_2bands and aeropt_5wv
16! corresponding to naero_tot
17  INTEGER, PARAMETER :: id_ASBCM_phy    = 1
18  INTEGER, PARAMETER :: id_ASPOMM_phy   = 2
19  INTEGER, PARAMETER :: id_ASSO4M_phy   = 3
20  INTEGER, PARAMETER :: id_CSSO4M_phy   = 4
21  INTEGER, PARAMETER :: id_SSSSM_phy    = 5
22  INTEGER, PARAMETER :: id_CSSSM_phy    = 6
23  INTEGER, PARAMETER :: id_ASSSM_phy    = 7
24  INTEGER, PARAMETER :: id_CIDUSTM_phy  = 8
25  INTEGER, PARAMETER :: id_AIBCM_phy    = 9
26  INTEGER, PARAMETER :: id_AIPOMM_phy   = 10
27  INTEGER, PARAMETER :: id_ASNO3M_phy   = 11
28  INTEGER, PARAMETER :: id_CSNO3M_phy   = 12
29  INTEGER, PARAMETER :: id_CINO3M_phy   = 13
30  INTEGER, PARAMETER :: id_STRAT_phy    = 14
31
32! Corresponding names for the aerosols
33  CHARACTER(len=7),DIMENSION(naero_tot), PARAMETER :: name_aero_tau=(/&
34       "ASBCM  ", &
35       "ASPOMM ", &
36       "ASSO4M ", &
37       "CSSO4M ", &
38       "SSSSM  ", &
39       "CSSSM  ", &
40       "ASSSM  ", &
41       "CIDUSTM", &
42       "AIBCM  ", &
43       "AIPOMM ", &
44       "ASNO3M ", &
45       "CSNO3M ", &
46       "CINO3M ", &
47       "STRAT  " /)
48
49! 2/ Total number of aerosols for which an aerosol mass is provided
50
51  INTEGER, PARAMETER :: naero_spc = 13
52
53! Corresponding names for the aerosols
54  CHARACTER(len=7),DIMENSION(naero_spc), PARAMETER :: name_aero=(/&
55       "ASBCM  ", & ! Accumulation-mode Soluble Black Carbon Mass
56       "ASPOMM ", & ! Accumulation-mode Soluble Particle Organic Matter Mass
57       "SO4    ", & ! Accumulation-mode Soluble Sulfate
58       "CSSO4M ", & ! Coarse-mode Soluble Sulfate Mass
59       "SSSSM  ", & ! Super-coarse mode Soluble Sea-Salt Mass
60       "CSSSM  ", & ! Coarse-mode Soluble Sea-Salt Mass
61       "ASSSM  ", & ! Accumulation-mode Soluble Sea-Salt Mass
62       "CIDUSTM", & ! Coarse-mode Insoluble Dust Mass
63       "AIBCM  ", & ! Accumulation-mode Insoluble Black Carbon Mass
64       "AIPOMM " ,& ! Accumulation-mode Insoluble Particle Organic Matter Mass
65       "ASNO3M ", & ! Accumulation-mode Soluble Nitrate Mass
66       "CSNO3M ", & ! Coarse-mode Soluble Nitrate Mass
67       "CINO3M " /) ! Coarse-mode Insoluble Nitrate Mass
68
69! 3/ Number of aerosol groups
70  INTEGER, PARAMETER :: naero_grp = 13
71  ! if info_trac = inca
72  ! 1 = ZERO   
73  ! 2 = AER total   
74  ! 3 = NAT   
75  ! 4 = BC   
76  ! 5 = SO4   
77  ! 6 = POM   
78  ! 7 = DUST   
79  ! 8 = SS   
80  ! 9 = FNO3   
81  ! 10 = DNO3
82  ! 11 = SNO3
83  ! 12 = SOAA
84  ! 13 = SOAB
85  ! else
86  ! 1 = ZERO   
87  ! 2 = AER total   
88  ! 3 = NAT   
89  ! 4 = BC   
90  ! 5 = SO4   
91  ! 6 = POM   
92  ! 7 = DUST   
93  ! 8 = SS   
94  ! 9 = NO3   
95
96! Number of diagnostics wavelengths (5 SW + 1 LW @ 10 um)
97  INTEGER, PARAMETER :: nwave_sw = 5
98  INTEGER, PARAMETER :: nwave_lw = 1
99  INTEGER, PARAMETER :: nwave = nwave_sw + nwave_lw
100
101! Number of modes spectral bands
102  INTEGER, parameter :: nbands = 2
103  INTEGER, parameter :: nbands_sw_rrtm = 6
104  INTEGER, parameter :: nbands_lw_rrtm = 16
105
106END MODULE aero_mod
Note: See TracBrowser for help on using the repository browser.