subroutine module_smoke_plumerise::entrainment | ( | type(plumegen_coms), pointer | coms, |
integer | m1, | ||
real(kind=kind_phys), dimension(m1) | w, | ||
real(kind=kind_phys), dimension(m1) | wt, | ||
real(kind=kind_phys), dimension(m1) | radius, | ||
real(kind=kind_phys) | alpha ) |