source: LMDZ6/branches/LMDZ-ECRAD/libf/phylmd/ecrad/yoeaeratm.F90 @ 3880

MODULE YOEAERATM

USE PARKIND1  ,ONLY : JPIM     ,JPRB

IMPLICIT NONE

SAVE

!     ------------------------------------------------------------------
!*    ** *YOEAERATM* - CONTROL PARAMETERS FOR AEROSOLS IN THE ATMOSPHERE
!     ------------------------------------------------------------------

INTEGER(KIND=JPIM) :: NAERCONF
INTEGER(KIND=JPIM) :: NINIDAY   
INTEGER(KIND=JPIM) :: NXT3DAER
INTEGER(KIND=JPIM) :: NDD1, NSS1
INTEGER(KIND=JPIM) :: NBCOPTP, NDDOPTP, NOMOPTP, NSSOPTP, NSUOPTP
INTEGER(KIND=JPIM) :: NVISWL
INTEGER(KIND=JPIM) :: NDRYDEP
INTEGER(KIND=JPIM) :: NWHTDDEP, NTDDEP, NINDDDEP(15)
INTEGER(KIND=JPIM) :: NWHTSCAV, NTSCAV, NINDSCAV(15)
INTEGER(KIND=JPIM) :: NWHTSEDM, NTSEDM, NINDSEDM(15)
INTEGER(KIND=JPIM) :: NWHTWDEP, NTWDEP, NINDWDEP(15)

REAL(KIND=JPRB) :: RGRATE
REAL(KIND=JPRB) :: RMASSE(15)

REAL(KIND=JPRB) :: REPSCAER

LOGICAL :: LAERCLIMG, LAERCLIMZ, LAERCLIST, LAERDRYDP, LAERHYGRO, LAERLISI 
LOGICAL :: LAERNGAT , LAERSCAV , LAERSEDIM, LAERSURF , LAERELVS , LAER6SDIA
LOGICAL :: LAERGTOP , LAERRAD  , LAERCCN  , LAEROPT(8),LAERINIT , LAERVOL
LOGICAL :: LAERCSTR , LAERDIAG1, LAERDIAG2, LAERRRTM , LAERUVP  , LUVINDX   
LOGICAL :: LAEREXTR , LAERGBUD , LAERPRNT , LAERCALIP

!     ------------------------------------------------------------------
! NDD1       : location of first bin for desert dust
! NSS1       : location of first bin for sea-salt
! NBCOPTP    : index for choosing the black carbon LW and SW optic.prop. (1: Boucher, 2: Bond, Bergstrom, 3: Stier et al.)
! NDDOPTP    : index for choosing the dust LW and SW optic.prop. (1: Boucher, 2: Highwood, 3: Woodward)
! NOMOPTP    : index for choosing the organic carbon optic.prop.
! NSSOPTP    : index for choosing the sea salt optic.prop.
! NSUOPTP    : index for choosing the sulphate optic.prop.
! NVISWL     : index of wavelength for visibility computations
! RMFMIN     : minimum mass flux for convective aerosol transport
! RGRATE     : transformation rate from hygrophopic to hygrophilic for BC and OM aerosols
! RMASSE     : Molar mass: N.B.: either g/mol or Avogadro number

! REPSCAER   : security on aerosol concentration: always >= 1.E-15

! LAERCLIMG  : .T. to start prognostic aerosols with geographical monthly 
!                  mean climatology
! LAERCLIMZ  : .T. to start prognostic aerosols with zonal annual mean 
!                  climatology
! LAERCLIST  : .T. to start prognostic aerosols with geographical monthly 
!                  mean climatology for background stratospheric only
! LAERDRYDP  : .T. dry deposition is active
! LAERHYDRO  : .T. hygroscopic effects on BC and OM aerosols
! LAERNGAT   : .T. prevents negative aerosol concentrations
! LAERSCAV   : .T. in-cloud and below cloud scavenging is active
! LAERSEDIM  : .T. sedimentation is active
! LAERSURF   : .T. if surface emissions
! LAERELVS   : .T. if "elevated" source
! LAER6SDIA  : .T. if radiance diagnostics with 6S
! LAERGTOP   : .T. if gas-to-particle conversion for SO2/SO4
! LAERRAD    : .T. if there is any prognostic aerosols used for RT
! LAEROPT(.) : .T. if a given aerosol type is radiatively interactive
! LAERCCN    : .T. if prognostic aerosols are used to define the Re of liq.wat.clds
! LAERUVP    : .T. if prognostic aerosols are used in UV-processor
! LAERCSTR   : .T. if climatological stratospheric aerosols are used in radiation 
!                  schemes with the prognostic tropospheric aerosols.
! LAERRRTM   : .T. if RRTM schemes get the information from the prognostic aerosols
! LAERINIT   : .T. if analysed prognostic aerosols are ONLY used as "climatological" aerosols
! LAERVOL    : .T. if volcanic aerosol is considered
! NDRYDEP    : dry deposition 1: a la GEMS; 2: "exp" (a la D_GRG_4.6)
! NWHTDDEP   : =0 only SS+DU;  =1 SS+DU+VOL;  =2 SS+DU+OM+BC+SU+VOL
! NTDDEP     : total number of aerosol species to be in- and below-cloud scavenged
! NINDDDEP   : actual set of aerosol indices to be dry deposited
! NWHTSEDM   : =0 only SS+DU;  =1 SS+DU+VOL;  =2 SS+DU+OM+BC+SU+VOL
! NTSEDM     : total number of aerosol species to be in- and below-cloud scavenged
! NINDSEDM   : actual set of aerosol indices to be sedimented
! NWHTWDEP   : =0 only SS+DU;  =1 SS+DU+VOL;  =2 SS+DU+OM+BC+SU+VOL
! NTWDEP     : total number of aerosol species to be in- and below-cloud scavenged
! NINDWDEP   : actual set of aerosol indices to be scavenged
! NWHTSCAV   : =0 only SS+DU;  =1 SS+DU+VOL;  =2 SS+DU+OM+BC+SU+VOL
! NTSCAV     : total number of aerosol species to be in- and below-cloud scavenged
! NINDSCAV   : actual set of aerosol indices to be scavenged
! LAERCALIP  : .T. works with LAERLISI=t, store only the CALIOP-type profile at 532 nm
!     ------------------------------------------------------------------
END MODULE YOEAERATM