real(kind=kind_dyn), parameter physcons::con_rd_dyn =2.8705e+2_kind_dyn