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

Last change on this file since 4735 was 2823, checked in by oboucher, 8 years ago

Climatological ASNO3M, CSNO3M, CINO3M aerosol fields can be read and fed
through the aerosol routines for optical properties. The get_aero_fromfile
routine needed some change so that it doesn't stop if a particular field
is not there.

  • 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.6 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 ", &
[2423]33       "ASSO4M ", &
[2003]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
[2823]48  INTEGER, PARAMETER :: naero_spc = 13
[2003]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  ", &
[2823]61       "AIPOMM " ,&
62       "ASNO3M ", &
63       "CSNO3M ", &
64       "CINO3M " /)
[1181]65
[2003]66! 3/ Number of aerosol groups
[2394]67  INTEGER, PARAMETER :: naero_grp = 12
68  ! if info_trac = inca
[1181]69  ! 1 = ZERO   
70  ! 2 = AER total   
71  ! 3 = NAT   
72  ! 4 = BC   
73  ! 5 = SO4   
74  ! 6 = POM   
75  ! 7 = DUST   
76  ! 8 = SS   
[2394]77  ! 9 = FNO3   
78  ! 10 = DNO3
79  ! 11 = SNO3
80  ! 12 = empty actually
81  ! else
82  ! 1 = ZERO   
83  ! 2 = AER total   
84  ! 3 = NAT   
85  ! 4 = BC   
86  ! 5 = SO4   
87  ! 6 = POM   
88  ! 7 = DUST   
89  ! 8 = SS   
[1181]90  ! 9 = NO3   
91
[2146]92! Number of diagnostics wavelengths (5 SW + 1 LW @ 10 um)
[2550]93  INTEGER, PARAMETER :: nwave_sw = 5
[2146]94  INTEGER, PARAMETER :: nwave_lw = 1
[2550]95  INTEGER, PARAMETER :: nwave = nwave_sw + nwave_lw
[1181]96
[2003]97! Number of modes spectral bands
[1181]98  INTEGER, parameter :: nbands = 2
[2146]99  INTEGER, parameter :: nbands_sw_rrtm = 6
100  INTEGER, parameter :: nbands_lw_rrtm = 16
[1181]101
[1183]102END MODULE aero_mod
Note: See TracBrowser for help on using the repository browser.