TALK=T;RUN(1,1)
  PHOTON USE
  p;parphi;;;;

  msg                        TURBULENT MIXING LAYER
  msg        Velocity vectors:
  vec x 1 sh
  pause; vec off;red
  msg        average mixl contours:
  con mixl x 1 fi;0.01;pause; con off;red
  msg        average f contours:
  con avef x 1 fi;0.01; pause; con off;red
  msg        root-mean-square fluctuation contours:
  con mnsq x 1 fi;0.01; pause; con off;red
  msg        f1 contours:
  con f1 x 1 fi;0.01; pause; con off;red
  msg        f5 contours:
  con f5 x 1 fi;0.01; pause; con off;red
  msg        f10 contours:
  con f10 x 1 fi;0.01; pause; con off;red
  msg        eddy-viscosity (enut) contours:
  con enut x 1 fi;0.01
  enduse
  DISPLAY

  This mixing-layer model is created by first loading case 153,
  switching off the solution of temperature,
  and then introducing upstream and boundary conditions for the
  selected number fluids, of which fluid-1 forms the faster- and
  fluid-NFLF the  slower-moving stream.



  ENDDIS
  PHOTON USE
  p
  parphi




  msg                        TURBULENT ROUND JET
  msg
  msg        Velocity vectors:
  vec x 1 sh
  msg            -
  msg Press  to continue
  pause
  vec off;red
  msg        Axial velocity contours:
  con wcrt x 1 fi; 0.01
  msg            -
  msg Press  to continue
  pause
  con off;red
  msg        Temperature contours:
  con temp x 1 fi;0.01
  msg
  msg Press  to continue
  pause
  con off;red
  msg        eddy-viscosity (enut) contours:
  con enut x 1 fi;0.01
  msg
  msg Press e to END
  enduse
  DISPLAY
  The axi-symmetrical turbulent jet in stagnant surroundings is
  considered. This becomes "self-similar" after an initial
  development length, with the centre-line velocity and temperature
  difference varying as the reciprocal of the longitudinal distance.

  In case 153, the Prandtl Mixing-Length model is used, with the
  mixing length proportional to the distance across the jet.

  In case 154, the Prandtl Energy model is used, with the same
  presumption about the length scale.

  In case 155, the k-epsilon model is used, so that no length-scale
  presumption is needed.

  A PHOTON USE file is supplied
  ENDDIS
  DISPLAY
  Notes:

  (1) four macros are provided in order reduce the repetiveness of
      MFM q1s.

  (2) they are named mfm, mfm1, mfm2 and mfm3, and are normally
      called in that order at the top of the q1 file, which then
      appears  as:

      #mfm
      settings of nflr, nflf, etc
      #mfm1
      settings of
      #mfm2
      #mfm3

  (3) the character variable mfm is declared and set in the
      always-loaded core-library macro 014.htm, which, in its turn,
      declares and sets the character variables mfm1, mfm2, mfm3.

  (4) the values are:
      mfm  = $L004
      mfm1 = $L003
      mfm2 = $L002
      mfm3 = $L001
  ENDDIS
 ************************************************************
  Group 1. Run Title and Number
 ************************************************************
 ************************************************************
 
 TEXT(10-Fluid Model Of Mixing Layer; Conmix=5)
 
 ************************************************************
 ************************************************************
 
 IRUNN = 1 ;LIBREF = 300
 ************************************************************
  Group 2. Time dependence
 STEADY = T
 ************************************************************
  Group 3. X-Direction Grid Spacing
 CARTES = T
 NX = 1
 XULAST =0.1
 XFRAC(1)=1.
 ************************************************************
  Group 4. Y-Direction Grid Spacing
 NY = 20
 YVLAST =0.1
 AZYV =1. ;AZRI =0. ;AZAL =0.
   Method of pairs used for grid setting.
 YFRAC(2)=0.05
 ************************************************************
  Group 5. Z-Direction Grid Spacing
 PARAB = T
 NZ = 100
 ZWADD =0.5
 ZWLAST =1.
 AZDZ = GRND2
 ZFRAC(1)=1.
 ************************************************************
  Group 6. Body-Fitted Coordinates
 ************************************************************
  Group 7. Variables: STOREd,SOLVEd,NAMEd
 ONEPHS = T
 NAME(1)=P1 ;NAME(5)=V1
 NAME(7)=W1 ;NAME(135)=MIXL
 NAME(136)=F1 ;NAME(137)=F2
 NAME(138)=F3 ;NAME(139)=F4
 NAME(140)=F5 ;NAME(141)=F6
 NAME(142)=F7 ;NAME(143)=F8
 NAME(144)=F9 ;NAME(145)=F10
 NAME(146)=MNSQ ;NAME(147)=AVEF
 NAME(148)=RATE ;NAME(150)=ENUT
    * 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(V1,Y,Y,N,N,N,Y)
 SOLUTN(W1,Y,Y,N,N,N,Y)
 SOLUTN(MIXL,Y,Y,N,N,N,Y)
 SOLUTN(F1,Y,Y,N,N,N,Y)
 SOLUTN(F2,Y,Y,N,N,N,Y)
 SOLUTN(F3,Y,Y,N,N,N,Y)
 SOLUTN(F4,Y,Y,N,N,N,Y)
 SOLUTN(F5,Y,Y,N,N,N,Y)
 SOLUTN(F6,Y,Y,N,N,N,Y)
 SOLUTN(F7,Y,Y,N,N,N,Y)
 SOLUTN(F8,Y,Y,N,N,N,Y)
 SOLUTN(F9,Y,Y,N,N,N,Y)
 SOLUTN(F10,Y,Y,N,N,N,Y)
 SOLUTN(MNSQ,Y,N,N,N,N,Y)
 SOLUTN(AVEF,Y,N,N,N,N,Y)
 SOLUTN(RATE,Y,N,N,N,N,Y)
 SOLUTN(ENUT,Y,N,N,N,N,Y)
 VIST = 150
 ************************************************************
  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(V1,Y,Y,Y,Y,Y,Y)
 TERMS(W1,Y,Y,Y,Y,Y,Y)
 TERMS(MIXL,N,Y,Y,Y,N,Y)
 TERMS(F1,N,Y,Y,Y,Y,Y)
 TERMS(F2,N,Y,Y,Y,N,Y)
 TERMS(F3,N,Y,Y,Y,Y,Y)
 TERMS(F4,N,Y,Y,Y,N,Y)
 TERMS(F5,N,Y,Y,Y,Y,Y)
 TERMS(F6,N,Y,Y,Y,N,Y)
 TERMS(F7,N,Y,Y,Y,Y,Y)
 TERMS(F8,N,Y,Y,Y,N,Y)
 TERMS(F9,N,Y,Y,Y,Y,Y)
 TERMS(F10,N,Y,Y,Y,N,Y)
 DIFCUT =0. ;ZDIFAC =1.
 GALA = F ;ADDDIF = F
 NEWENT = T
 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 = GRND6
 TSURR =0. ;TEMP0 =0. ;PRESS0 =0.
 DVO1DT =0. ;DRH1DP =0.
 EMISS =0. ;SCATT =0.
 RADIA =0. ;RADIB =0.
 EL1A =0.05 ;EL1B =0.075 ;EL1C =1.0E-02
 EL1D =0. ;EL1E =10.
 ENUL =2.0E-06 ;ENUT = GRND10
 ENUTA =0. ;ENUTB =0. ;ENUTC =0.
 IENUTA = 0
 PRNDTL(V1)=1. ;PRNDTL(W1)=1.
 PRNDTL(MIXL)=1. ;PRNDTL(F1)=1.
 PRNDTL(F2)=1. ;PRNDTL(F3)=1.
 PRNDTL(F4)=1. ;PRNDTL(F5)=1.
 PRNDTL(F6)=1. ;PRNDTL(F7)=1.
 PRNDTL(F8)=1. ;PRNDTL(F9)=1.
 PRNDTL(F10)=1.
 PRT(V1)=1. ;PRT(W1)=1.
 PRT(MIXL)=0.1 ;PRT(F1)=1.
 PRT(F2)=1. ;PRT(F3)=1.
 PRT(F4)=1. ;PRT(F5)=1.
 PRT(F6)=1. ;PRT(F7)=1.
 PRT(F8)=1. ;PRT(F9)=1.
 PRT(F10)=1.
 CP1 =1. ;CP2 =1.
 ************************************************************
  Group 10.Inter-Phase Transfer Processes
 ************************************************************
  Group 11.Initial field variables (PHIs)
 FIINIT(P1)=1.0E-10 ;FIINIT(V1)=1.0E-10
 FIINIT(W1)=1.0E-10 ;FIINIT(MIXL)=1.0E-03
 FIINIT(F1)=1.0E-10 ;FIINIT(F2)=1.0E-10
 FIINIT(F3)=1.0E-10 ;FIINIT(F4)=1.0E-10
 FIINIT(F5)=1.0E-10 ;FIINIT(F6)=1.0E-10
 FIINIT(F7)=1.0E-10 ;FIINIT(F8)=1.0E-10
 FIINIT(F9)=1.0E-10 ;FIINIT(F10)=1.0E-10
 FIINIT(MNSQ)=1.0E-10 ;FIINIT(AVEF)=1.0E-10
 FIINIT(RATE)=1.0E-10 ;FIINIT(ENUT)=1.0E-10
 
 PATCH(START2 ,INIVAL, 1, 1, 11, 20, 1, 1, 1, 1)
 INIT(START2 ,F10 ,0. ,1. )
 
 PATCH(START1 ,INIVAL, 1, 1, 1, 10, 1, 1, 1, 1)
 INIT(START1 ,F1 ,0. ,1. )
 INIADD = F
 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(HIGHY ,NORTH , 1, 1, 20, 20, 1, 100, 1, 1)
 COVAL(HIGHY ,P1 ,1.0E+04 ,0. )
 COVAL(HIGHY ,V1 ,0. ,0. )
 COVAL(HIGHY ,W1 ,1.0E+06 ,0. )
 COVAL(HIGHY ,F1 ,0. ,0. )
 COVAL(HIGHY ,F2 ,0. ,0. )
 COVAL(HIGHY ,F3 ,0. ,0. )
 COVAL(HIGHY ,F4 ,0. ,0. )
 COVAL(HIGHY ,F5 ,0. ,0. )
 COVAL(HIGHY ,F6 ,0. ,0. )
 COVAL(HIGHY ,F7 ,0. ,0. )
 COVAL(HIGHY ,F8 ,0. ,0. )
 COVAL(HIGHY ,F9 ,0. ,0. )
 COVAL(HIGHY ,F10 ,0. ,1. )
 
 PATCH(NOZZLE ,LOW , 1, 1, 1, 10, 1, 1, 1, 1)
 COVAL(NOZZLE ,P1 , FIXFLU ,10. )
 COVAL(NOZZLE ,W1 ,0. ,10. )
 COVAL(NOZZLE ,F1 , FIXVAL ,1. )
 
 PATCH(SOUTH ,SOUTH , 1, 1, 1, 1, 1, 100, 1, 1)
 COVAL(SOUTH ,P1 ,1.0E+06 ,0. )
 COVAL(SOUTH ,W1 ,1.0E+06 ,10. )
 COVAL(SOUTH ,F1 ,0. ,1. )
 COVAL(SOUTH ,F2 ,0. ,0. )
 COVAL(SOUTH ,F3 ,0. ,0. )
 COVAL(SOUTH ,F4 ,0. ,0. )
 COVAL(SOUTH ,F5 ,0. ,0. )
 COVAL(SOUTH ,F6 ,0. ,0. )
 COVAL(SOUTH ,F7 ,0. ,0. )
 COVAL(SOUTH ,F8 ,0. ,0. )
 COVAL(SOUTH ,F9 ,0. ,0. )
 COVAL(SOUTH ,F10 ,0. ,0. )
 
 PATCH(MIDPLANE,CELL , 1, 1, 10, 10, 1, 100, 1, 1)
 COVAL(MIDPLANE,V1 , FIXVAL ,-0.15 )
 
 PATCH($MNSQ ,PHASEM, 1, 1, 1, 20, 1, 100, 1, 1)
 COVAL($MNSQ ,MIXL,5.0E-06 ,1.0E+05 )
 XCYCLE = F
 EGWF = T
 WALLCO = GRND2
 ************************************************************
  Group 14. Downstream Pressure For PARAB
 IPARAB = 1
 AZPH =0. ;PBAR =0.
 ************************************************************
  Group 15. Terminate Sweeps
 LSWEEP = 1 ;ISWC1 = 1
 LITHYD = 50 ;LITFLX = 1 ;LITC = 1 ;ITHC1 = 1
 SELREF = T
 RESFAC =1.0E-03
 ************************************************************
  Group 16. Terminate Iterations
 LITER(P1)=20 ;LITER(V1)=10
 LITER(W1)=10 ;LITER(MIXL)=20
 LITER(F1)=20 ;LITER(F2)=20
 LITER(F3)=20 ;LITER(F4)=20
 LITER(F5)=20 ;LITER(F6)=20
 LITER(F7)=20 ;LITER(F8)=20
 LITER(F9)=20 ;LITER(F10)=20
 ENDIT(P1)=1.0E-03 ;ENDIT(V1)=1.0E-03
 ENDIT(W1)=1.0E-03 ;ENDIT(MIXL)=1.0E-03
 ENDIT(F1)=1.0E-03 ;ENDIT(F2)=1.0E-03
 ENDIT(F3)=1.0E-03 ;ENDIT(F4)=1.0E-03
 ENDIT(F5)=1.0E-03 ;ENDIT(F6)=1.0E-03
 ENDIT(F7)=1.0E-03 ;ENDIT(F8)=1.0E-03
 ENDIT(F9)=1.0E-03 ;ENDIT(F10)=1.0E-03
 ************************************************************
  Group 17. Relaxation
 RELAX(P1,LINRLX,1.)
 RELAX(V1,FALSDT,10.)
 RELAX(W1,FALSDT,10.)
 RELAX(MIXL,FALSDT,1.0E+09)
 RELAX(F1,LINRLX,0.25)
 RELAX(F2,LINRLX,0.25)
 RELAX(F3,LINRLX,0.25)
 RELAX(F4,LINRLX,0.25)
 RELAX(F5,LINRLX,0.25)
 RELAX(F6,LINRLX,0.25)
 RELAX(F7,LINRLX,0.25)
 RELAX(F8,LINRLX,0.25)
 RELAX(F9,LINRLX,0.25)
 RELAX(F10,LINRLX,0.25)
 RELAX(MNSQ,LINRLX,1.)
 RELAX(AVEF,LINRLX,1.)
 RELAX(RATE,LINRLX,1.)
 RELAX(ENUT,LINRLX,1.)
 OVRRLX =0.
 EXPERT = F ;NNORSL = F
 ************************************************************
  Group 18. Limits
 VARMAX(P1)=1.0E+10 ;VARMIN(P1)=-1.0E+10
 VARMAX(V1)=1000. ;VARMIN(V1)=-1000.
 VARMAX(W1)=1.0E+06 ;VARMIN(W1)=-1.0E+06
 VARMAX(MIXL)=1.0E+10 ;VARMIN(MIXL)=-1.0E+10
 VARMAX(F1)=1. ;VARMIN(F1)=0.
 VARMAX(F2)=1. ;VARMIN(F2)=0.
 VARMAX(F3)=1. ;VARMIN(F3)=0.
 VARMAX(F4)=1. ;VARMIN(F4)=0.
 VARMAX(F5)=1. ;VARMIN(F5)=0.
 VARMAX(F6)=1. ;VARMIN(F6)=0.
 VARMAX(F7)=1. ;VARMIN(F7)=0.
 VARMAX(F8)=1. ;VARMIN(F8)=0.
 VARMAX(F9)=1. ;VARMIN(F9)=0.
 VARMAX(F10)=1. ;VARMIN(F10)=0.
 VARMAX(MNSQ)=1. ;VARMIN(MNSQ)=0.
 VARMAX(AVEF)=1. ;VARMIN(AVEF)=0.
 VARMAX(RATE)=1.0E+10 ;VARMIN(RATE)=-1.0E+10
 VARMAX(ENUT)=1.0E+10 ;VARMIN(ENUT)=-1.0E+10
 ************************************************************
  Group 19. Data transmitted to GROUND
 DWDY = T
 PARSOL = F
 DZW1 =0.1
 ISG62 = 1
 SPEDAT(SET,MFM,MFMMOD,C,MNSQ)
 SPEDAT(SET,MFM,NFLUIDS,I,10)
 SPEDAT(SET,MFM,NFLR,I,1)
 SPEDAT(SET,MFM,NFLF,I,10)
 SPEDAT(SET,MFM,CONREA,R,0.)
 SPEDAT(SET,MFM,CONMIX,R,5.)
 SPEDAT(SET,MFM,VISCON,R,2.)
 SPEDAT(SET,MFM,POPMIN,R,0.)
 SPEDAT(SET,MFM,POPMAX,R,10.)
 SPEDAT(SET,GXMONI,PLOTALL,L,T)
 ************************************************************
  Group 20. Preliminary Printout
 DISTIL = T ;NULLPR = F
 NDST = 0
 DSTTOL =1.0E-02
 EX(P1)=0.1456 ;EX(V1)=0.1954
 EX(W1)=4.127 ;EX(MIXL)=0.01786
 EX(F1)=0.146 ;EX(F2)=0.03967
 EX(F3)=0.06627 ;EX(F4)=0.06856
 EX(F5)=0.06886 ;EX(F6)=0.07454
 EX(F7)=0.08606 ;EX(F8)=0.1106
 EX(F9)=0.1892 ;EX(F10)=0.152
 EX(MNSQ)=0.06848 ;EX(AVEF)=0.5774
 EX(RATE)=125.900002 ;EX(ENUT)=0.02702
 ************************************************************
  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(V1,Y,N,Y,Y,Y,Y)
 OUTPUT(W1,Y,N,Y,Y,Y,Y)
 OUTPUT(MIXL,Y,N,Y,Y,Y,Y)
 OUTPUT(F1,Y,N,Y,Y,Y,Y)
 OUTPUT(F2,Y,N,Y,Y,Y,Y)
 OUTPUT(F3,Y,N,Y,Y,Y,Y)
 OUTPUT(F4,Y,N,Y,Y,Y,Y)
 OUTPUT(F5,Y,N,Y,Y,Y,Y)
 OUTPUT(F6,Y,N,Y,Y,Y,Y)
 OUTPUT(F7,Y,N,Y,Y,Y,Y)
 OUTPUT(F8,Y,N,Y,Y,Y,Y)
 OUTPUT(F9,Y,N,Y,Y,Y,Y)
 OUTPUT(F10,Y,N,Y,Y,Y,Y)
 OUTPUT(MNSQ,Y,N,Y,N,N,N)
 OUTPUT(AVEF,Y,N,Y,N,N,N)
 OUTPUT(RATE,Y,N,Y,N,N,N)
 OUTPUT(ENUT,Y,N,Y,N,N,N)
 ************************************************************
  Group 22. Monitor Print-Out
 IXMON = 1 ;IYMON = 10 ;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
 NYPRIN = 2 ;IYPRF = 1 ;IYPRL = 10000
 NZPRIN = 100 ;IZPRF = 1 ;IZPRL = 10000
 IPLTF = 1 ;IPLTL = 25 ;NPLT = 1
 ISWPRF = 1 ;ISWPRL = 100000
 ITABL = 1 ;IPROF = 1
 ABSIZ =0.5 ;ORSIZ =0.2
 NTZPRF = 1 ;NCOLPF = 50
 ICHR = 2 ;NCOLCO = 45 ;NROWCO = 20
 
 PATCH(IZEQNZ ,PROFIL, 1, 1, 1, 20, 100, 100, 1, 1)
 PLOT(IZEQNZ ,W1 ,0. ,0. )
 PLOT(IZEQNZ ,ENUT,0. ,0. )
 
 PATCH(MIDDLE ,PROFIL, 1, 1, 10, 10, 1, 100, 1, 1)
 PLOT(MIDDLE ,F1 ,0. ,0. )
 PLOT(MIDDLE ,F4 ,0. ,0. )
 PLOT(MIDDLE ,F7 ,0. ,0. )
 PLOT(MIDDLE ,F10 ,0. ,0. )
 
 PATCH(PROF1 ,PROFIL, 1, 1, 1, 20, 1, 100, 1, 1)
 PLOT(PROF1 ,F1 ,0. ,0. )
 
 PATCH(PROF2 ,PROFIL, 1, 1, 1, 20, 1, 100, 1, 1)
 PLOT(PROF2 ,F2 ,0. ,0. )
 
 PATCH(PROF3 ,PROFIL, 1, 1, 1, 20, 1, 100, 1, 1)
 PLOT(PROF3 ,F3 ,0. ,0. )
 
 PATCH(PROF4 ,PROFIL, 1, 1, 1, 20, 1, 100, 1, 1)
 PLOT(PROF4 ,F4 ,0. ,0. )
 
 PATCH(PROF5 ,PROFIL, 1, 1, 1, 20, 1, 100, 1, 1)
 PLOT(PROF5 ,F5 ,0. ,0. )
 
 PATCH(PROF6 ,PROFIL, 1, 1, 1, 20, 1, 100, 1, 1)
 PLOT(PROF6 ,F6 ,0. ,0. )
 
 PATCH(PROF7 ,PROFIL, 1, 1, 1, 20, 1, 100, 1, 1)
 PLOT(PROF7 ,F7 ,0. ,0. )
 
 PATCH(PROF8 ,PROFIL, 1, 1, 1, 20, 1, 100, 1, 1)
 PLOT(PROF8 ,F8 ,0. ,0. )
 
 PATCH(PROF9 ,PROFIL, 1, 1, 1, 20, 1, 100, 1, 1)
 PLOT(PROF9 ,F9 ,0. ,0. )
 
 PATCH(PROF10 ,PROFIL, 1, 1, 1, 20, 1, 100, 1, 1)
 PLOT(PROF10 ,F10 ,0. ,0. )
 
 PATCH(FINAL ,PROFIL, 1, 1, 1, 20, 100, 100, 1, 1)
 PLOT(FINAL ,W1 ,0. ,0. )
 PLOT(FINAL ,MIXL,0. ,0. )
 PLOT(FINAL ,MNSQ,0. ,0. )
 PLOT(FINAL ,ENUT,0. ,0. )
 ************************************************************
  Group 24. Dumps For Restarts
 SAVE = T ;NOWIPE = F
 NSAVE =CHAM
 IDISPA = 1 ;IDISPB = 0 ;IDISPC = 0
STOP