real(kind=kind_dyn), parameter physcons::con_rv_dyn =4.6150e+2_kind_dyn