SURFEX v7.3: /home/dasprezs/EXPORT_v7_3/src/SURFEX/modd_dst

Go to the documentation of this file.
00001 MODULE MODD_DST_SURF
00002 !
00003 IMPLICIT NONE
00004 !
00005 REAL, PARAMETER  :: XDENSITY_DST     = 2.5e3    ! [kg/m3] density of dust
00006 REAL, PARAMETER  :: XMOLARWEIGHT_DST = 100.e-3   ! [kg/mol] molar weight dust
00007 !
00008 INTEGER             :: NVEGNO_DST        !Number of vegetation classes considered dust emitters
00009 INTEGER, PARAMETER  :: NEMISMODES_MAX=3
00010 INTEGER, DIMENSION(NEMISMODES_MAX), PARAMETER :: JORDER_DST=(/3,2,1/) !Dust modes in order of importance
00011 !Set emission related parameters
00012 REAL,DIMENSION(NEMISMODES_MAX)   :: XEMISRADIUS_INI_DST          ! number madian radius initialization for sea salt mode (um)
00013 REAL,DIMENSION(NEMISMODES_MAX)   :: XEMISSIG_INI_DST             ! dispersion initialization for sea salt mode
00014 REAL,DIMENSION(NEMISMODES_MAX)   :: XMSS_FRC_SRC_INI             ! Mass fraction from each mode
00015 !
00016  CHARACTER(LEN=5)   :: CEMISPARAM_DST    ! Reference to paper where emission parameterization is proposed
00017 INTEGER            :: JPMODE_DST        ! number of sea salt modes (max 3; default = 1)
00018 LOGICAL            :: LVARSIG_DST       ! switch to active pronostic dispersion for all modes
00019 LOGICAL            :: LRGFIX_DST        ! switch to active pronostic mean radius for all modes
00020 !
00021 INTEGER            :: NDST_MDEBEG       ! Index of mass flux in first sea salt mode in scalar list
00022 INTEGER            :: NDSTMDE           ! Number of sea salt modes emitted
00023  CHARACTER(LEN=6)   :: CVERMOD
00024 !
00025 REAL :: XFLX_MSS_FDG_FCT 
00026 !
00027 END MODULE MODD_DST_SURF