Clear[]
n = 0;
k = 5.5201;
c = 1;
ω = c k;
u[r_, θ_, t_] := 
      BesselJ[n, k r]*Cos[n θ]*Cos[ω t] /; 
        0 ≤ r ≤ 1
u[r_, θ_, t_] := 0 /; r < 0 || r > 1
Vib1[t_] := 
      ParametricPlot3D[{r Cos[θ], r Sin[θ], 
          u[r, θ, t]}, {r, 0, 1}, {θ, 0, 2  π}, 
        AspectRatio -> Automatic, Axes -> False, 
        PlotRange -> {{-1, 1}, {-1, 1}, {-1, 1}}, 
        DisplayFunction -> Identity]
Vib2[t_] := 
      ParametricPlot3D[{r Cos[θ], r Sin[θ], 
          u[r, θ, t]}, {r, 0, 1}, {θ, 0, 2  π}, 
        AspectRatio -> Automatic, Axes -> False, 
        PlotRange -> {{-1, 1}, {-1, 1}, {-1, 1}}, 
        ViewPoint -> {0, 3, 0}, 
        DisplayFunction -> Identity]
Table[
      Show[GraphicsArray[{Vib1[t], Vib2[t]}], ImageSize -> {600, 400}, 
        DisplayFunction -> $DisplayFunction], {t, 0, 20, 
        1}]