w[x_,t_]=w0/2(1+Erf[x/Sqrt[4 k t]])

w0=100;
k=2;
Animate[Plot[w[x,t],{x,-150,150},PlotRange->{0,100}],{t,0.001,1000}]