You can try exporting as cdf, but you had better making the panels self-contained, without relying on separate sliders:
g = 9.81;
rdot = 0.05;
theta0 = 0.2;
thetadot0 = 0;
s = ParametricNDSolveValue[{theta''[t] ==
Sin[theta[t]]*Cos[theta[t]]*omega^2 - g/r0*Sin[theta[t]],
theta[0] == theta0, theta'[0] == thetadot0},
theta, {t, 0, 100}, {omega, r0}];
Manipulate[
Graphics[{Blue, Circle[{0.0, 0.0}, r0], Black,
Line[{{-1.2, 0}, {1.2, 0}}], Line[{{0, -1.2}, {0, 1.2}}], Black,
Inset[Style[NumberForm[t, {3, 2}], 20], {1.0, 1.1}], Red,
Disk[{r0*Sin[s[omega, r0][t]], -r0*Cos[s[omega, r0][t]]}, rdot]}],
{t, 0, 100, 0.001, Animator, AnimationRunning -> False,
AnimationRepetitions -> 1, AnimationRate -> anrate},
{anrate, 0.1, 1, 0.05},
{omega, 0, 20, 0.5},
{{r0, 1}, 0.01, 2, 0.1}, SaveDefinitions -> True]