L(451)
 
  PHOTON USE
  p
  phi
 
 
  view -0.4 1 1
  norm
  msg        FLOW AROUND FLOATING BODY WITH RIGID SURFACE
  msg
  msg   Pressure contours:
  con p1 y 1 fi;.001
  con p1 z 1 fi;.001
  gr ou y 1;gr ou z 1
  con p1 x 4 fi;.001
  con p1 x 7 fi;.001
  msg
  msg Press  to continue
  pause
  *cl
  *msg        Axial velocity contours:
  *con u1 y 1 fi;.001
  *con u1 z 1 fi;.001
  *gr ou y 1;gr ou z 1
  *con u1 x 4 fi;.001
  *con u1 x 7 fi;.001
  *msg
  *msg Press  to continue
  *pause
  cl
  msg        Velocity vectors:
  vec y 1 sh;vec z 1 sh
  gr ou y 1;gr ou z 1
  msg
  msg Press e to END
  enduse
 
TEXT(Free Surface Flow, 3D Surface     
TITLE
mesg(PC486/50 time last reported as appx. 45.sec
  In this case the compressibility is restricted to the top layer
  of cells, ie. those at iz=1, to emulate better the true shallow
  water assumptions. The negative ascription of RHO1 is a signal to
  GREX3 for this purpose.
RHO2=-1.0;RELAX(RHO1,LINRLX,0.25)
ISOLX=1;ISOLY=1;ISOLZ=1
 
   ***actdem***
selref=t; resfac=1.e-2
TSTSWP=-1