Plot3D[Re[Zeta[x+I y]],{x,-5,5},{y,-5,5}]