L(171)
    GROUP 1. Run title and other preliminaries
TEXT(Channel Flow  K-EPS Model
TITLE
  DISPLAY
  This is like case 170; but the k-epsilon turbulence model is used.
  ENDDIS
 
  GXLEN, GXENUT, GXKESO, GXGENK, GXSQUR and GXWFUN are used
  for this case.
 
REAL(EPIN);TWALL=1
 
    GROUP 7. Variables stored, solved & named
SOLVE(P1,V1,W1);TURMOD(KEMODL)
 
    GROUP 8. Terms (in differential equations) & devices
TERMS(TEMP,N,Y,Y,Y,Y,Y)
 
    GROUP 9.Properties of the medium or media
EL1A=0.0;EL1B=0.0;EL1C=0.0
 
    GROUP 11. Initialization of variable or porosity fields
  ** EPIN=0.1643*KIN**1.5/LMIX where LMIX=0.045*WIDTH
GMIXL=0.09*WD2;EPIN=TKEIN**1.5/GMIXL*0.1643;FIINIT(EP)=EPIN
 
    GROUP 13. Boundary conditions and special sources
  ** North-Wall Boundary
WALL (WFUN,NORTH,1,1,NY,NY,1,NZ,1,1)
COVAL(WFUN,TEMP,LOGLAW,TWALL)
  ** Inlet Boundary
VALUE(IN,EP,EPIN)
 
    GROUP 16. Termination of iterations
RESREF(TEMP)=1.E-5;RESREF(EP)=1.E-5
 
    GROUP 18. Limits on variables or increments to them
VARMIN(W1)=1.000E-10
 
    GROUP 21. Print-out of variables
OUTPUT(TEMP,Y,Y,Y,N,Y,Y)
 
    GROUP 23. Field print-out and plot control
PLOT(IZEQNZ,LEN1,0.,0.011)
NZPRIN=80
 
    GROUP 24. Dumps for restarts