TALK=T;RUN(1,1) PHOTON USE p phi 5 1 msg grid gr z 1 msg Pressto continue pause cl msg 1st-phase velocity vectors at t=5s set vec ref;1 set vec comp au1 cv1 - vec z 1 sh gr ou z 1 msg Press to continue pause cl msg 2nd-phase velocity vectors at t=5s set vec ref;1 set vec comp bu2 dv2 - vec z 1 sh gr ou z 1 msg Press to continue pause cl msg contour of pressure at t=5s con p1 z 1 fi;0.002 gr ou z 1 msg Press to continue pause cl msg contour of 1st-phase volume fraction at t=5s con r1 z 1 fi;0.002 gr ou z 1 msg Press to continue pause cl msg contour of 1st-phase volume fraction at t=5s con r2 z 1 fi;0.002 gr ou z 1 msg Press e to END enduse DISPLAY A light fluid lies above a heavy one in a box which is suddenly tilted, so that gravity acts along the diagonal. Friction at the walls is neglected. The donor-acceptor option is activated, in Group 8, so as to diminish the extent of the blurring of the interface, which it does not however eliminate entirely. That it does some good can be checked by re-running with DONACC=F. ENDDIS ************************************************************ Group 1. Run Title and Number ************************************************************ ************************************************************ TEXT(THE TILTING OF A BOX : W427) ************************************************************ ************************************************************ IRUNN = 1 ;LIBREF = 14 ************************************************************ Group 2. Time dependence STEADY = F * Set overall time and no. of steps TFIRST =0. ;TLAST =0.1 FSTEP = 1 ;LSTEP = 10 TFRAC(1)=0.1 ;TFRAC(3)=0.3 TFRAC(5)=0.5 ;TFRAC(7)=0.7 TFRAC(9)=0.9 ************************************************************ Group 3. X-Direction Grid Spacing CARTES = T NX = 5 XULAST =1. XFRAC(1)=0.2 ;XFRAC(2)=0.4 XFRAC(3)=0.6 ;XFRAC(4)=0.8 XFRAC(5)=1. ************************************************************ Group 4. Y-Direction Grid Spacing NY = 5 YVLAST =1. YFRAC(1)=0.2 ;YFRAC(2)=0.4 YFRAC(3)=0.6 ;YFRAC(4)=0.8 YFRAC(5)=1. ************************************************************ Group 5. Z-Direction Grid Spacing PARAB = F NZ = 1 ZWLAST =1. ZFRAC(1)=1. ************************************************************ Group 6. Body-Fitted Coordinates ************************************************************ Group 7. Variables: STOREd,SOLVEd,NAMEd ONEPHS = F EQUVEL = F NAME(1)=P1 ;NAME(3)=AU1 NAME(4)=BU2 ;NAME(5)=CV1 NAME(6)=DV2 ;NAME(9)=R1 NAME(10)=R2 * Y in SOLUTN argument list denotes: * 1-stored 2-solved 3-whole-field * 4-point-by-point 5-explicit 6-harmonic averaging SOLUTN(P1,Y,Y,N,N,N,Y) SOLUTN(AU1,Y,Y,N,N,N,Y) SOLUTN(BU2,Y,Y,N,N,N,Y) SOLUTN(CV1,Y,Y,N,N,N,Y) SOLUTN(DV2,Y,Y,N,N,N,Y) SOLUTN(R1,Y,Y,N,N,N,Y) SOLUTN(R2,Y,Y,N,N,N,Y) ************************************************************ Group 8. Terms & Devices * Y in TERMS argument list denotes: * 1-built-in source 2-convection 3-diffusion 4-transient * 5-first phase variable 6-interphase transport TERMS(P1,Y,Y,Y,N,Y,Y) TERMS(AU1,Y,Y,Y,Y,Y,Y) TERMS(BU2,Y,Y,Y,Y,N,Y) TERMS(CV1,Y,Y,Y,Y,Y,Y) TERMS(DV2,Y,Y,Y,Y,N,Y) TERMS(R1,Y,Y,Y,Y,Y,Y) TERMS(R2,Y,Y,Y,Y,N,Y) DIFCUT =0.5 ;ZDIFAC =1. GALA = F ;ADDDIF = F EQDVDP = F DONACC = T RUPLIM =0.99 ;RLOLIM =1.0E-02 ISOLX = -1 ;ISOLY = -1 ;ISOLZ = -1 ************************************************************ Group 9. Properties used if PRPS is not stored, and where PRPS = -1.0 if it is! RHO1 =1. ;TMP1 =0. ;EL1 =0. TSURR =0. ;TEMP0 =0. ;PRESS0 =0. DVO1DT =0. ;DRH1DP =0. EMISS =0. ;SCATT =0. RADIA =0. ;RADIB =0. RHO2 =1000. ;TMP2 =0. ;EL2 =0. DVO2DT =0. ;DRH2DP =0. ENUL =1.0E-03 ;ENUT =0. PHINT(AU1)=-2.022E+04 ;PHINT(BU2)=-2.022E+04 PHINT(CV1)=-2.022E+04 ;PHINT(DV2)=-2.022E+04 PHINT(R1)=-2.022E+04 ;PHINT(R2)=-2.022E+04 PRNDTL(AU1)=1. ;PRNDTL(BU2)=1. PRNDTL(CV1)=1. ;PRNDTL(DV2)=1. PRNDTL(R1)=1. ;PRNDTL(R2)=1. PRT(AU1)=1. ;PRT(BU2)=1. PRT(CV1)=1. ;PRT(DV2)=1. PRT(R1)=1. ;PRT(R2)=1. CP1 =1. ;CP2 =1. ************************************************************ Group 10.Inter-Phase Transfer Processes CFIPS =1.0E+09 RLOLIM =1.0E-02 ;CMDOT =0. CINT(P1)=1. ;CINT(AU1)=1. CINT(BU2)=1. ;CINT(CV1)=1. CINT(DV2)=1. ;CINT(R1)=1. CINT(R2)=1. PHINT(P1)=-2.022E+04 ;PHINT(AU1)=-2.022E+04 PHINT(BU2)=-2.022E+04 ;PHINT(CV1)=-2.022E+04 PHINT(DV2)=-2.022E+04 ;PHINT(R1)=-2.022E+04 PHINT(R2)=-2.022E+04 ************************************************************ Group 11.Initial field variables (PHIs) FIINIT(P1)=0. ;FIINIT(AU1)=0. FIINIT(BU2)=0. ;FIINIT(CV1)=0. FIINIT(DV2)=0. ;FIINIT(R1)=1. FIINIT(R2)=0. PATCH(INIT ,INIVAL, 1, 5, 1, 2, 1, 1, 1, 1) INIT(INIT ,P1 ,0. ,1000. ) INIT(INIT ,R1 ,0. ,-1. ) INIT(INIT ,R2 ,0. ,1. ) INIADD = T FSWEEP = 1 NAMFI =CHAM ************************************************************ Group 12. Patchwise adjustment of terms Patches for this group are printed with those for Group 13. Their names begin either with GP12 or & ************************************************************ Group 13. Boundary & Special Sources PATCH(REFP ,CELL , 5, 5, 5, 5, 1, 1, 1, 10) COVAL(REFP ,R1 , FIXVAL ,0. ) PATCH(GRAVITY ,PHASEM, 1, 5, 1, 5, 1, 1, 1, 10) COVAL(GRAVITY ,AU1 , FIXFLU ,-10. ) COVAL(GRAVITY ,BU2 , FIXFLU ,-10. ) COVAL(GRAVITY ,CV1 , FIXFLU ,-10. ) COVAL(GRAVITY ,DV2 , FIXFLU ,-10. ) XCYCLE = F EGWF = T WALLCO = GRND2 ************************************************************ Group 14. Downstream Pressure For PARAB ************************************************************ Group 15. Terminate Sweeps LSWEEP = 20 ;ISWC1 = 1 LITHYD = 1 ;LITFLX = 1 ;LITC = 1 ;ITHC1 = 1 ISWR1 = 1 ;ISWR2 = 10000 SELREF = T RESFAC =1.0E-05 ************************************************************ Group 16. Terminate Iterations LITER(P1)=20 ;LITER(AU1)=10 LITER(BU2)=10 ;LITER(CV1)=10 LITER(DV2)=10 ;LITER(R1)=1 LITER(R2)=1 ENDIT(P1)=1.0E-03 ;ENDIT(AU1)=1.0E-03 ENDIT(BU2)=1.0E-03 ;ENDIT(CV1)=1.0E-03 ENDIT(DV2)=1.0E-03 ;ENDIT(R1)=1.0E-03 ENDIT(R2)=1.0E-03 ************************************************************ Group 17. Relaxation RELAX(P1,LINRLX,1.) RELAX(AU1,FALSDT,1.0E-02) RELAX(BU2,FALSDT,1.0E-02) RELAX(CV1,FALSDT,1.0E-02) RELAX(DV2,FALSDT,1.0E-02) RELAX(R1,LINRLX,0.25) RELAX(R2,LINRLX,0.25) OVRRLX =0. EXPERT = F ;NNORSL = F ************************************************************ Group 18. Limits VARMAX(P1)=1.0E+10 ;VARMIN(P1)=-1.0E+10 VARMAX(AU1)=1.0E+06 ;VARMIN(AU1)=-1.0E+06 VARMAX(BU2)=1.0E+06 ;VARMIN(BU2)=-1.0E+06 VARMAX(CV1)=1.0E+06 ;VARMIN(CV1)=-1.0E+06 VARMAX(DV2)=1.0E+06 ;VARMIN(DV2)=-1.0E+06 VARMAX(R1)=1. ;VARMIN(R1)=1.0E-06 VARMAX(R2)=1. ;VARMIN(R2)=1.0E-06 ************************************************************ Group 19. Data transmitted to GROUND USEGRX = F PARSOL = F ISG62 = 1 SPEDAT(SET,GXMONI,TRANSIENT,L,F) SPEDAT(SET,GXMONI,PLOTALL,L,T) ************************************************************ Group 20. Preliminary Printout ************************************************************ Group 21. Print-out of Variables INIFLD = F ;SUBWGR = F * Y in OUTPUT argument list denotes: * 1-field 2-correction-eq. monitor 3-selective dumping * 4-whole-field residual 5-spot-value table 6-residual table OUTPUT(P1,Y,N,Y,Y,Y,Y) OUTPUT(AU1,Y,N,Y,Y,Y,Y) OUTPUT(BU2,Y,N,Y,Y,Y,Y) OUTPUT(CV1,Y,N,Y,Y,Y,Y) OUTPUT(DV2,Y,N,Y,Y,Y,Y) OUTPUT(R1,Y,N,Y,Y,Y,Y) OUTPUT(R2,N,N,N,N,N,N) ************************************************************ Group 22. Monitor Print-Out IXMON = 4 ;IYMON = 4 ;IZMON = 1 NPRMON = 100000 ;NPRMNT = 1 ;TSTSWP = -1 UWATCH = T ;USTEER = T HIGHLO = F ************************************************************ Group 23.Field Print-Out & Plot Control NPRINT = 100000 ;NUMCLS = 5 NTPRIN = 2 ;ISTPRF = 1 ;ISTPRL = 100000 NXPRIN = -1 ;IXPRF = 1 ;IXPRL = 10000 NYPRIN = -1 ;IYPRF = 1 ;IYPRL = 10000 IPLTF = 1 ;IPLTL = 20 ;NPLT = -1 ISWPRF = 1 ;ISWPRL = 100000 ITABL = 1 ;IPROF = 1 ABSIZ =0.5 ;ORSIZ =0.4 NTZPRF = 1 ;NCOLPF = 50 ICHR = 2 ;NCOLCO = 45 ;NROWCO = 20 PATCH(CONT ,CONTUR, 1, 5, 1, 5, 1, 1, 1, 10) PLOT(CONT ,R2 ,0. ,10. ) ************************************************************ Group 24. Dumps For Restarts SAVE = T ;NOWIPE = F NSAVE =CHAM STOP