settling()

subroutine coarsepm_settling_mod::settling	(	integer, intent(in)	imx,
		integer, intent(in)	jmx,
		integer, intent(in)	lmx,
		integer, intent(in)	nmx,
		real(kind_phys), intent(in)	g0,
		real(kind_phys), intent(in)	dyn_visc,
		real(kind_phys), dimension(imx,jmx,lmx,nmx), intent(inout)	tc,
		real(kind_phys), dimension(imx,jmx,lmx), intent(in)	tmp,
		real(kind_phys), dimension(imx,jmx,lmx), intent(in)	p_mid,
		real(kind_phys), dimension(imx,jmx,lmx), intent(in)	delz,
		real(kind_phys), dimension(imx,jmx,lmx), intent(in)	airmas,
		real(kind_phys), dimension(nmx), intent(in)	den,
		real(kind_phys), dimension(nmx), intent(in)	reff,
		real(kind_phys), intent(in)	dt,
		real(kind_phys), dimension(imx,jmx,nmx), intent(out)	bstl,
		integer, intent(in)	idust,
		real(kind_phys), dimension(imx,jmx,lmx), intent(in)	airden )