real(kind=kind_phys), parameter radcons::con_hr = 3600.0_kind_phys