real(kind=kind_phys), parameter physcons::con_p0 =1.01325e5_kind_phys