real(kind=kind_phys), parameter physcons::con_sqrt2 =1.414214e+0_kind_phys