#$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