modd_dst_surf.F90

Go to the documentation of this file.

!SFX_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
!SFX_LIC This is part of the SURFEX software governed by the CeCILL-C licence
!SFX_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt  
!SFX_LIC for details. version 1.
MODULE modd_dst_surf
!
IMPLICIT NONE
!
REAL, PARAMETER  :: xdensity_dst     = 2.5e3    ! [kg/m3] density of dust
REAL, PARAMETER  :: xmolarweight_dst = 100.e-3   ! [kg/mol] molar weight dust
!
INTEGER             :: nvegno_dst        !Number of vegetation classes considered dust emitters
INTEGER, PARAMETER  :: nemismodes_max=3
INTEGER, DIMENSION(NEMISMODES_MAX), PARAMETER :: jorder_dst=(/3,2,1/) !Dust modes in order of importance
!Set emission related parameters
REAL,DIMENSION(NEMISMODES_MAX)   :: xemisradius_ini_dst          ! number madian radius initialization for sea salt mode (um)
REAL,DIMENSION(NEMISMODES_MAX)   :: xemissig_ini_dst             ! dispersion initialization for sea salt mode
REAL,DIMENSION(NEMISMODES_MAX)   :: xmss_frc_src_ini             ! Mass fraction from each mode
!
 CHARACTER(LEN=5)   :: cemisparam_dst    ! Reference to paper where emission parameterization is proposed
INTEGER            :: jpmode_dst        ! number of sea salt modes (max 3; default = 1)
LOGICAL            :: lvarsig_dst       ! switch to active pronostic dispersion for all modes
LOGICAL            :: lrgfix_dst        ! switch to active pronostic mean radius for all modes
!
INTEGER            :: ndst_mdebeg       ! Index of mass flux in first sea salt mode in scalar list
INTEGER            :: ndstmde           ! Number of sea salt modes emitted
 CHARACTER(LEN=6)   :: cvermod
!
REAL :: xflx_mss_fdg_fct 
!
END MODULE modd_dst_surf