PATCH(LOWWALL,HWALL,1,NX,1,NY,1,1,1,LSTEP)
IF(NX.GT.1) THEN
 COVAL(LOWWALL,U1,1.0,0.0)
ENDIF   
IF(NY.GT.1) THEN
 COVAL(LOWWALL,V1,1.0,0.0)
ENDIF