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