real(kind=kind_phys), parameter radcons::con_99 = 99.0_kind_phys