Radius=10;
NDipoles =8;

Clear[B,r,c,x,y,z,t,θ,w]

r=Sqrt[x^2+y^2+z^2];
Bunit[x_,y_,z_,t_,θ_]=Abs[Cos[θ]x+Sin[θ]y] Sin[w(t-r/c)]/r^2;

B[x_,y_,z_,t_]=Sum[Bunit[x-Radius Cos[θ],y-Radius Sin[θ],z,t,θ],{θ,0,(NDipoles-1)/NDipoles 2Pi,2Pi/NDipoles}];

w=2;
c=1;
F=20;
DensityPlot[B[x,y,0,0],{x,-F,F},{y,-F,F},PlotPoints->40,ColorFunction->"GrayTones"]

Frames=10;
ListAnimate[
Table[
ContourPlot[B[x,z,0],{x,-10,10},{z,-10,10},PlotPoints->50],
{t,0,(Frames-1)/Frames 2Pi,2Pi/Frames}
]
]

Bv[x_,z_,t_]=Abs[x] Sin[w(t-r/c)]/r^2;
Bh[x_,z_,t_]=Abs[z] Sin[w(t-r/c)]/r^2;


B[x_,z_,t_]=Bv[x+Radius,z,0]+Bv[x-Radius,z,0]+Bh[x,z+Radius,0]+Bh[x,z-Radius,0];

Clear[B,r,c,x,y,z,t,θ,w]

r=Sqrt[x^2+y^2+z^2];
B[x_,y_,z_,t_]=Sqrt[x^2+y^2] Sin[w(t-r/c)]/r^2;

w=2;
c=1;
F=20;
RegionPlot3D[B[x,y,z,0]>.05,{x,-F,F},{y,-F,F},{z,-F,F},PlotPoints->40,ColorFunction->"GrayTones",AxesLabel->{x,y,z}]