real(kind=kind_phys), parameter physcons::con_gasv =22413.996e-6_kind_phys