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