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

Last change on this file since 1764 was 1764, checked in by Laurent Fairhead, 11 years ago

Inclusion d'une routine qui lit des champs d'aérosols stratosphériques
mensuels, prescrit des propriétés optiques et modifie le rayonnement en
conséquence. Pour le moment, seule l'interaction avec le rayonnement ondes
courtes est pris en compte. Les fichiers d'input doivent être au format des
fichiers de sortie. Contrôlé par la variable logique: flag_aerosol_strat
(false par défaut dans DefLists?/config.def)

  1. Boucher

A new routine has been added to the code that reads in monthly stratospheric
aerosols, prescribes optical properties and modifies radiation accordingly.
Presently, only the interaction with short wave radiation is taken into account.
Input files must be formatted as are the aerosol output fields. Control is by
the logical flag: flag_aerosol_strat (which is false by default and included
DefLists?/config.def)

  1. Boucher
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) :: 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.