RTBP : Zero Velocity Curves

Clear["Global`*"]
m=0.0123;
r1=(Sqrt[(x+m)^2+y^2]); r2=(Sqrt[(x-1+m)^2+y^2]);

(* f=v^2/2=(dx^2+dy^2)/2 *)
f=(1-m)/r1+m/r2+(1/2)(x^2+y^2)+h

h=-1.65;
ContourPlot[f,{x,-2,2},{y,-2,2}, Contours->{0}, ContourShading->False]
f/.{x->0, y->0}

h=-((1-m)/r1+m/r2+(1/2)(x^2+y^2))
ContourPlot[h,{x,-2,2},{y,-2,2}, Contours->{-1.63343,-1.589,-1.526,-1.505,-1.494}, ContourShading->False]

Plot3D[h,{x,-1.3,1.3},{y,-1.3,1.3}]