subroutine module_smoke_plumerise::get_env_condition | ( | type(plumegen_coms), pointer | coms, |
integer | k1, | ||
integer | k2, | ||
integer | kmt, | ||
integer | wind_eff, | ||
real(kind=kind_phys) | g, | ||
real(kind=kind_phys) | cp, | ||
real(kind=kind_phys) | rgas, | ||
real(kind=kind_phys) | cpor, | ||
character(*), intent(inout) | errmsg, | ||
integer, intent(inout) | errflg ) |