subroutine module_smoke_plumerise::fa_zc_plumerise | ( | integer | m1, |
real(kind=kind_phys), dimension(m1) | scp, | ||
real(kind=kind_phys), dimension(m1) | scr1, | ||
real(kind=kind_phys), dimension(m1) | vt3dc, | ||
real(kind=kind_phys), dimension(m1) | vt3df, | ||
real(kind=kind_phys), dimension(m1) | vt3dg, | ||
real(kind=kind_phys), dimension(m1) | vt3dk, | ||
real(kind=kind_phys), dimension(m1) | vctr1, | ||
real(kind=kind_phys), dimension(m1) | vctr2 ) |