TALK=T;RUN(1,1)
501
#$L500
NFLF= 21
TEXT(MFM; Stirred Tank; Nfluids = :Nflf:
TITLE
libref=501
DO II = 1,NFLUIDS
FIINIT(F:II:)=0.0
COVAL(START,F:II:,0.0,0.0)
RELAX(F:II:,LINRLX,.25)
COVAL(PRELIEF,F:II:,ONLYMS,0.0)
ENDDO
fluid :nfluids: occupies the top half, fluid 1 the lower
FIINIT(F:NFLUIDS:)=1.0
COVAL(START,F1,0.0,1.0)
DO II=1,NFLUIDS
NAMPROF=PROF:II:
PATCH(:NAMPROF:,PROFIL,1,1,1,NY,1,NZ,1,1)
COVAL(:NAMPROF:,F:II:,0.0,0.0)
ENDDO
EX(P1 )= 7.432E+01; EX(V1 )= 9.456E-02; EX(W1 )= 1.466E-01
EX(KE )= 5.478E-02; EX(EP )= 2.388E-01; EX(F1 )= 1.383E-05
EX(F2 )= 2.812E-05; EX(F3 )= 8.503E-05; EX(F4 )= 7.441E-03
EX(F5 )= 3.341E-01; EX(F6 )= 3.102E-01; EX(F7 )= 1.923E-01
EX(F8 )= 1.190E-01; EX(F9 )= 3.107E-02; EX(F10 )= 4.958E-03
EX(F11 )= 7.499E-04; EX(MNSQ)= 7.536E-02; EX(AVEF)= 5.198E-01
EX(SLTS)= 2.013E-06; EX(SLTM)= 1.702E-06; EX(EPKE)= 2.002E+00
EX(LEN1)= 1.619E-02
STOP