real(kind=kind_dyn), parameter physcons::con_hvap_dyn =2.5000e+6_kind_dyn