realUold(0:i1,0:j1,0:k1),Vold(0:i1,0:j1,0:k1),Wold(0:i1,0:j1,0:k1) common /old/Uold,Vold,Wold realUnew(0:i1,0:j1,0:k1),Vnew(0:i1,0:j1,0:k1),Wnew(0:i1,0:j1,0:k1) common /new/Unew,Vnew,Wnew realdUdt(0:i1,0:j1,0:k1),dVdt(0:i1,0:j1,0:k1),dWdt(0:i1,0:j1,0:k1) common /deriv/dUdt,dVdt,dWdt real p(imax,jmax,kmax) common /pressure/p real dxi,dyi,dzi,Rei,dt,Ufree,cs common /parm/dxi,dyi,dzi,Rei,dt,Ufree,cs real visc(0:i1,0:j1,0:k1) common /viscosity/visc