p={Cos[t],Sin[t],0}+1.4(Cos[s]{Cos[t],Sin[t],0}+Sin[s]{0,0,1})

ParametricPlot3D[
p,
{t,0,2π},{s,0,2π}
]

ParametricPlot3D[
p,
{t,0,2π},{s,0,2π}, Boxed->False, Axes->False,PlotStyle->{Red,Opacity[0.4]}
]