source: LMDZ5/branches/LMDZ5_SPLA/libf/phylmd/aero_mod.F90

! $Id$
!
MODULE aero_mod
! Declaration des indices pour les aerosols 

! 1/ Total number of aerosols for which an aerosol optical depth is provided
!--strat aerosols are only prescribed naero_tot = 10 ==> 11 

  INTEGER, PARAMETER :: naero_tot = 11

! Identification number used in aeropt_2bands and aeropt_5wv
! corresponding to naero_tot
  INTEGER, PARAMETER :: id_ASBCM    = 1
  INTEGER, PARAMETER :: id_ASPOMM   = 2
  INTEGER, PARAMETER :: id_ASSO4M   = 3
  INTEGER, PARAMETER :: id_CSSO4M   = 4
  INTEGER, PARAMETER :: id_SSSSM    = 5
  INTEGER, PARAMETER :: id_CSSSM    = 6
  INTEGER, PARAMETER :: id_ASSSM    = 7
  INTEGER, PARAMETER :: id_CIDUSTM  = 8
  INTEGER, PARAMETER :: id_AIBCM    = 9
  INTEGER, PARAMETER :: id_AIPOMM   = 10
  INTEGER, PARAMETER :: id_STRAT   = 11

! Corresponding names for the aerosols
  CHARACTER(len=7),DIMENSION(naero_tot), PARAMETER :: name_aero_tau=(/&
       "ASBCM  ", &
       "ASPOMM ", &
       "SO4    ", &
       "CSSO4M ", &
       "SSSSM  ", &
       "CSSSM  ", &
       "ASSSM  ", &
       "CIDUSTM", &
       "AIBCM  ", &
       "AIPOMM ", &
       "STRAT  " /)

! 2/ Total number of aerosols for which an aerosol mass is provided

  INTEGER, PARAMETER :: naero_spc = 10

! Corresponding names for the aerosols
  CHARACTER(len=7),DIMENSION(naero_spc), PARAMETER :: name_aero=(/&
       "ASBCM  ", &
       "ASPOMM ", &
       "SO4    ", &
       "CSSO4M ", &
       "SSSSM  ", &
       "CSSSM  ", &
       "ASSSM  ", &
       "CIDUSTM", &
       "AIBCM  ", &
       "AIPOMM " /)

! 3/ Number of aerosol groups
  INTEGER, PARAMETER :: naero_grp = 9 
  ! 1 = ZERO    
  ! 2 = AER total    
  ! 3 = NAT    
  ! 4 = BC    
  ! 5 = SO4    
  ! 6 = POM    
  ! 7 = DUST    
  ! 8 = SS    
  ! 9 = NO3    

! Number of  wavelengths
  INTEGER, PARAMETER :: nwave = 5

! Number of modes spectral bands
  INTEGER, parameter :: nbands = 2
  INTEGER, parameter :: nbands_rrtm = 6

END MODULE aero_mod