c initialize Radius

	forall(iz=1:nz)vr2(iz)=Rmax-(iz-izfree)*dr
	forall(iz=1:nz)vr1(iz)=vr2(iz)-.5*dr

	forall(ix=1:nx,iz=1:nz)r1(ix,iz)=vr1(iz)
	forall(ix=1:nx,iz=1:nz)r2(ix,iz)=vr2(iz)

