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

Last change on this file since 2310 was 2146, checked in by idelkadi, 10 years ago

Les modifications introduites ont pour but :
1/ d'autoriser le couplage entre INCA-aerosol et les parametrisations de
la nouvelle physique (NP) de LMDZ, en particulier les thermiques et le
transport convectif,
2/ generaliser les routines de calcul de proprietes optiques des
aerosols pour RRTM au cas ou les aerosols sont interactifs
3/ d'inclure les effets LW des aerosols stratospheriques pour RRTM
  • 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: 2.3 KB
RevLine 
[1181]1! $Id$
2!
[1183]3MODULE aero_mod
[2003]4! Declaration des indices pour les aerosols
[1181]5
[2003]6! 1/ Total number of aerosols for which an aerosol optical depth is provided
7!--strat aerosols are only prescribed naero_tot = 10 ==> 11
[2146]8!--adding nitrate naero_tot = 14 OB
[2003]9
[2146]10  INTEGER, PARAMETER :: naero_tot = 14
[1181]11
[2003]12! Identification number used in aeropt_2bands and aeropt_5wv
13! corresponding to naero_tot
[2146]14  INTEGER, PARAMETER :: id_ASBCM_phy    = 1
15  INTEGER, PARAMETER :: id_ASPOMM_phy   = 2
16  INTEGER, PARAMETER :: id_ASSO4M_phy   = 3
17  INTEGER, PARAMETER :: id_CSSO4M_phy   = 4
18  INTEGER, PARAMETER :: id_SSSSM_phy    = 5
19  INTEGER, PARAMETER :: id_CSSSM_phy    = 6
20  INTEGER, PARAMETER :: id_ASSSM_phy    = 7
21  INTEGER, PARAMETER :: id_CIDUSTM_phy  = 8
22  INTEGER, PARAMETER :: id_AIBCM_phy    = 9
23  INTEGER, PARAMETER :: id_AIPOMM_phy   = 10
24  INTEGER, PARAMETER :: id_ASNO3M_phy   = 11
25  INTEGER, PARAMETER :: id_CSNO3M_phy   = 12
26  INTEGER, PARAMETER :: id_CINO3M_phy   = 13
27  INTEGER, PARAMETER :: id_STRAT_phy    = 14
[1181]28
[2003]29! Corresponding names for the aerosols
30  CHARACTER(len=7),DIMENSION(naero_tot), PARAMETER :: name_aero_tau=(/&
31       "ASBCM  ", &
32       "ASPOMM ", &
33       "SO4    ", &
34       "CSSO4M ", &
35       "SSSSM  ", &
36       "CSSSM  ", &
37       "ASSSM  ", &
38       "CIDUSTM", &
39       "AIBCM  ", &
40       "AIPOMM ", &
[2146]41       "ASNO3M ", &
42       "CSNO3M ", &
43       "CINO3M ", &
[2003]44       "STRAT  " /)
[1764]45
[2003]46! 2/ Total number of aerosols for which an aerosol mass is provided
[1181]47
[2003]48  INTEGER, PARAMETER :: naero_spc = 10
49
50! Corresponding names for the aerosols
[1791]51  CHARACTER(len=7),DIMENSION(naero_spc), PARAMETER :: name_aero=(/&
[1181]52       "ASBCM  ", &
53       "ASPOMM ", &
54       "SO4    ", &
[1221]55       "CSSO4M ", &
56       "SSSSM  ", &
57       "CSSSM  ", &
58       "ASSSM  ", &
[1181]59       "CIDUSTM", &
60       "AIBCM  ", &
[2003]61       "AIPOMM " /)
[1181]62
[2003]63! 3/ Number of aerosol groups
64  INTEGER, PARAMETER :: naero_grp = 9
[1181]65  ! 1 = ZERO   
66  ! 2 = AER total   
67  ! 3 = NAT   
68  ! 4 = BC   
69  ! 5 = SO4   
70  ! 6 = POM   
71  ! 7 = DUST   
72  ! 8 = SS   
73  ! 9 = NO3   
74
[2146]75! Number of diagnostics wavelengths (5 SW + 1 LW @ 10 um)
[1181]76  INTEGER, PARAMETER :: nwave = 5
[2146]77  INTEGER, PARAMETER :: nwave_lw = 1
[1181]78
[2003]79! Number of modes spectral bands
[1181]80  INTEGER, parameter :: nbands = 2
[2146]81  INTEGER, parameter :: nbands_sw_rrtm = 6
82  INTEGER, parameter :: nbands_lw_rrtm = 16
[1181]83
[1183]84END MODULE aero_mod
Note: See TracBrowser for help on using the repository browser.