L(W898)
TEXT(BOILING ,TRANSVERSE GRAVITY :       W899
TITLE
COVAL(GRAVITY,U1,FIXFLU,0.0);COVAL(GRAVITY,AU2,FIXFLU,0.0)
COVAL(GRAVITY,V1,FIXFLU,-9.81);COVAL(GRAVITY,BV2,FIXFLU,-9.81)
RELAX(U1,FALSDT,0.001*CHATIM);RELAX(AU2,FALSDT,0.001*CHATIM)
RELAX(H1,FALSDT,0.1*CHATIM);RELAX(ILIQ,FALSDT,0.1*CHATIM)
RELAX(P1,LINRLX,0.8)
NOWIPE=F