Dynamic Diagrams

Needs["WSMLink`"];

WSMModelCenter["MathematicaExamples.Simulation.Tanks.TankSystem"]

sim=WSMSimulate["MathematicaExamples.Simulation.Tanks.TankSystem",200, WSMProgressMonitor-> False]

diag=Quiet[sim["Diagram",t,ImageSize-> 570,Frame->False]];

Animate[diag/.t->nt,{{nt, 0, "Time"},0,200},AnimationRate-> 1,SaveDefinitions->False, AnimationRunning-> True,ContentSize->600]

diag/.t->120