source_dust()

subroutine dust_fengsha_mod::source_dust ( integer, intent(in)  imx, integer, intent(in)  jmx, integer, intent(in)  lmx, integer, intent(in)  nmx, real(kind_phys), intent(in)  dt1, real(kind_phys), dimension(nmx), intent(inout)  tc, real(kind_phys), intent(in)  ustar, real(kind_phys), dimension(3), intent(in)  massfrac, real(kind_phys), intent(in)  erod, real(kind_phys), intent(in)  dxy, real(kind_phys), intent(in)  smois, real(kind_phys), intent(in)  airden, real(kind_phys), intent(in)  airmas, real(kind_phys), dimension(nmx), intent(out)  bems, real(kind_phys), intent(in)  g0, real(kind_phys), intent(in)  alpha, real(kind_phys), intent(in)  gamma, real(kind_phys), intent(in)  r, real(kind_phys), intent(in)  uthres  )

private