PATCH(WESTWALL,WWALL,1,1,1,NY,1,NZ,1,LSTEP)
IF(NY.GT.1) THEN
 COVAL(WESTWALL,V1,1.0,0.0)
ENDIF   
IF(NZ.GT.1) THEN
 COVAL(WESTWALL,W1,1.0,0.0)
ENDIF