get_env_condition()

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 )