real(kind=kind_dyn), parameter physcons::con_g_dyn =9.80665e+0_kind_dyn