real(kind=kind_phys), parameter physcons::pa2mb = 0.01_kind_phys