L(452)
TEXT(Free Surface Flow, 2D Incompressi 
TITLE
  NZ is set to 1, & the flow is made incompressible again by
  setting CON to a large number. This case is for comparison with
  the next run in which compressiblity is re-introduced.
RHO2=1.0
CON=1.E06;VARMIN(P1)=0.001-CON
RHO1=COMPRESS;RHO1A=CON**-0.5;PRESS0=CON;RHO1B=0.5;RHO1C=0.0
NREGZ=1; IREGZ=1; GRDPWR(Z,1,1.0,1.0)
SOLUTN(W1,N,N,N,N,N,N);OUTPUT(W1,N,N,N,N,N,N)
  * Re-define Patches with new limits
INLET(UPSTRM,WEST,#1,#1,#1,#NREGY,#1,#NREGZ,1,1)
PATCH(DWNSTRM,EAST,#NREGX,#NREGX,#1,#NREGY,#1,#NREGZ,1,1)