L(W887)
TEXT(BOILING ,TRANSVERSE GRAVITY :      W889
TITLE
PATCH(GRAVITY,RGRAD,1,NX,1,1,1,1,1,1)
COVAL(GRAVITY,U1,0.0,0.0)
COVAL(GRAVITY,VLIQ,0.0,SIDE*9.81*(RHO2-RHO1))
COVAL(OUTLET,P2,1.0*RHO2,-1.0)
RELAX(P1,LINRLX,0.7);RELAX(U1,FALSDT,0.01*CHATIM)
RELAX(VLIQ,FALSDT,0.001*CHATIM)
RELAX(GAS,LINRLX,0.5);RELAX(LIQ,LINRLX,0.5)
RELAX(ILIQ,FALSDT,0.01*CHATIM)
LSWEEP=1000;NPLT=LSWEEP/20