INTERFACE:
subroutine DustEmission (lbp, ubp, lbc,ubc,lbl,ubl,num_nolakep, filter_nolakep)DESCRIPTION:
Dust mobilization. This code simulates dust mobilization due to wind from the surface into the lowest atmospheric layer On output flx_mss_vrt_dst(ndst) is the surface dust emission (kg/m**2/s) [ + = to atm] Source: C. Zender's dust model
!USES use clm_atmlnd , only : clm_a2l use shr_const_mod, only : SHR_CONST_RHOFW
ARGUMENTS:
implicit none
integer, intent(in) :: lbp, ubp,lbc,ubc,ubl,lbl ! pft bounds
integer, intent(in) :: num_nolakep ! number of column non-lake points in pft filter
integer, intent(in) :: filter_nolakep(num_nolakep) ! pft filter for non-lake points
!LOCAL VARIABLES
local pointers to implicit in arguments
integer , pointer :: pcolumn(:) ! pft's column index
integer , pointer :: plandunit(:) ! pft's landunit index
integer , pointer :: pgridcell(:) ! pft's gridcell index
integer , pointer :: ityplun(:) ! landunit type
real(r8), pointer :: tlai(:) ! one-sided leaf area index, no burying by snow
real(r8), pointer :: tsai(:) ! one-sided stem area index, no burying by snow
real(r8), pointer :: frac_sno(:) ! fraction of ground covered by snow (0 to 1)
real(r8), pointer :: gwc_thr(:) ! threshold gravimetric soil moisture based on clay content
real(r8), pointer :: forc_rho(:) ! density (kg/m**3)
real(r8), pointer :: fv(:) ! friction velocity (m/s) (for dust model)
real(r8), pointer :: u10(:) ! 10-m wind (m/s) (created for dust model)
real(r8), pointer :: mbl_bsn_fct(:) ! basin factor
real(r8), pointer :: mss_frc_cly_vld(:) ! [frc] Mass fraction clay limited to 0.20
real(r8), pointer :: h2osoi_vol(:,:) ! volumetric soil water (0<=h2osoi_vol<=watsat)
real(r8), pointer :: h2osoi_liq(:,:) ! liquid soil water (kg/m2)
real(r8), pointer :: h2osoi_ice(:,:) ! frozen soil water (kg/m2)
real(r8), pointer :: watsat(:,:) ! saturated volumetric soil water
local pointers to implicit out arguments
real(r8), pointer :: flx_mss_vrt_dst(:,:) ! surface dust emission (kg/m**2/s)
real(r8), pointer :: flx_mss_vrt_dst_tot(:) ! total dust flux into atmosphere
!REVISION HISTORY
Created by Sam Levis
Migrated to new data structures by Peter Thornton and Mariana Vertenstein
!Created by Peter Thornton and Mariana Vertenstein
!OTHER LOCAL VARIABLES: