module kcnst 44
real, parameter :: &
	rdgas=287.04,& !gas constant for air
	g=9.8,& !acceleration due to gravity 
	cp=1004.,&
	cv=717.,&
	pi=3.14159265 
end module