PATCH(EASTWALL,EWALL,NX,NX,1,NY,1,NZ,1,LSTEP)
IF(NY.GT.1) THEN
 COVAL(EASTWALL,V1,1.0,0.0)
ENDIF   
IF(NZ.GT.1) THEN
 COVAL(EASTWALL,W1,1.0,0.0)
ENDIF