get_fire_properties()

subroutine module_smoke_plumerise::get_fire_properties	(	type(plumegen_coms), pointer	coms,
		integer	imm,
		real(kind=kind_phys)	burnt_area,
		real(kind=kind_phys)	frp,
		character(*), intent(inout)	errmsg,
		integer, intent(inout)	errflg )