Changeset 1764 for LMDZ5/trunk/libf/phylmd/aero_mod.F90
- Timestamp:
- Jun 10, 2013, 3:40:50 PM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/aero_mod.F90
r1279 r1764 5 5 6 6 ! Total number of aerosols 7 INTEGER, PARAMETER :: naero_tot = 10 7 ! INTEGER, PARAMETER :: naero_tot = 10 8 !--STRAT AER 9 INTEGER, PARAMETER :: naero_tot = 11 8 10 9 11 ! Identification number used in aeropt_2bands and aeropt_5wv … … 19 21 INTEGER, PARAMETER :: id_AIBCM = 9 20 22 INTEGER, PARAMETER :: id_AIPOMM = 10 23 !--STRAT AER 24 INTEGER, PARAMETER :: id_strat = 11 25 21 26 22 27 ! Total number of aerosols actually used in LMDZ … … 31 36 ! 9 = AIBCM 32 37 !10 = AIPOMM 33 INTEGER, PARAMETER :: naero_spc = 10 38 !--STRAT AER 39 !11 = aerosols stratos 40 ! INTEGER, PARAMETER :: naero_spc = 10 41 INTEGER, PARAMETER :: naero_spc = 11 34 42 35 43 ! Corresponding names for the aerosols … … 44 52 "CIDUSTM", & 45 53 "AIBCM ", & 46 "AIPOMM " /) 54 ! "AIPOMM " /) 55 "AIPOMM ", & 56 "STRAT " /) 47 57 48 58 … … 65 75 INTEGER, parameter :: nbands = 2 66 76 67 68 77 END MODULE aero_mod
Note: See TracChangeset
for help on using the changeset viewer.