modd_slt_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_slt_surf
!
IMPLICIT NONE
!
REAL, PARAMETER  :: xdensity_slt     = 2.1e3    ! [kg/m3] density of sea salt
REAL, PARAMETER  :: xmolarweight_slt = 58.e-3   ! [kg/mol] molar weight sea salt
!
INTEGER, PARAMETER  :: nemismodes_max=3
INTEGER, DIMENSION(NEMISMODES_MAX), PARAMETER :: jorder_slt=(/3,2,1/) !Dust modes in order of importance
!Set emission related parameters
REAL,DIMENSION(NEMISMODES_MAX)   :: xemisradius_ini_slt          ! number madian radius initialization for sea salt mode (um)
REAL,DIMENSION(NEMISMODES_MAX)   :: xemissig_ini_slt             ! dispersion initialization for sea salt mode
!
 CHARACTER(LEN=5)   :: cemisparam_slt    ! Reference to paper where emission parameterization is proposed
INTEGER            :: jpmode_slt        ! number of sea salt modes (max 3; default = 1)
LOGICAL            :: lvarsig_slt       ! switch to active pronostic dispersion for all modes
LOGICAL            :: lrgfix_slt        ! switch to active pronostic mean radius for all modes
!
INTEGER            :: nslt_mdebeg       ! Index of mass flux in first sea salt mode in scalar list
INTEGER            :: nsltmde           ! Number of sea salt modes emitted
!
END MODULE modd_slt_surf