```
TALK=T;RUN(1,1)
DISPLAY
The problem considered is turbulent couette flow in a plane
channel with one moving wall. The shear stress is uniform
across the flow and hence the axial pressure-gradient is zero.
The velocity profile has an S-shape and is symmetrical about
the central plane, and so the average velocity is one half of
the velocity of the moving wall. In the calculation made here
the Reynolds number is 1.E5 and it is based on the channel
height and the average velocity.
ENDDIS
AUTOPLOT USE
file; phi 5

cl; da 1 w1; col9 1
msg        Velocity (W1) profile; Press RETURN to continue
pause; cl; da 1 ke; col9 1; scale y 0. 2.e-3; redraw
msg        KE profile. Press RETURN, then e to END
pause
ENDUSE
************************************************************
Group 1. Run Title and Number
************************************************************
************************************************************

TEXT(CHEN-KIM K-E_1D PLANE COUETTE FLOW :T100)

************************************************************
************************************************************

IRUNN = 1 ;LIBREF = 14
************************************************************
Group 2. Time dependence
************************************************************
Group 3. X-Direction Grid Spacing
CARTES = T
NX = 1
XULAST =1.
XFRAC(1)=1.
************************************************************
Group 4. Y-Direction Grid Spacing
NY = 30
YVLAST =0.1
YFRAC(1)=0.033333 ;YFRAC(2)=0.066667
YFRAC(3)=0.1 ;YFRAC(4)=0.133333
YFRAC(5)=0.166667 ;YFRAC(6)=0.2
YFRAC(7)=0.233333 ;YFRAC(8)=0.266667
YFRAC(9)=0.3 ;YFRAC(10)=0.333333
YFRAC(11)=0.366667 ;YFRAC(12)=0.4
YFRAC(13)=0.433333 ;YFRAC(14)=0.466667
YFRAC(15)=0.5 ;YFRAC(16)=0.533333
YFRAC(17)=0.566667 ;YFRAC(18)=0.6
YFRAC(19)=0.633333 ;YFRAC(20)=0.666667
YFRAC(21)=0.7 ;YFRAC(22)=0.733333
YFRAC(23)=0.766667 ;YFRAC(24)=0.8
YFRAC(25)=0.833333 ;YFRAC(26)=0.866667
YFRAC(27)=0.9 ;YFRAC(28)=0.933333
YFRAC(29)=0.966667 ;YFRAC(30)=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 = T
NAME(7)=W1 ;NAME(12)=KE
NAME(13)=EP ;NAME(149)=LEN1
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(W1,Y,Y,N,N,N,N)
SOLUTN(KE,Y,Y,N,N,N,N)
SOLUTN(EP,Y,Y,N,N,N,N)
SOLUTN(LEN1,Y,N,N,N,N,Y)
SOLUTN(ENUT,Y,N,N,N,N,Y)
VIST = 150
LEN1 = 149
************************************************************
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(W1,N,N,Y,Y,Y,Y)
TERMS(KE,Y,N,Y,Y,Y,N)
TERMS(EP,Y,N,Y,Y,Y,N)
DIFCUT =0.5 ;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 = GRND4
TSURR =0. ;TEMP0 =0.
PRESS0 =0.
DVO1DT =0. ;DRH1DP =0.
EMISS =0. ;SCATT =0.
EL1A =0. ;EL1B =0.
EL1C =0.
ENUL =5.0E-07 ;ENUT = GRND3
ENUTA =0. ;ENUTB =0.
ENUTC =0.
IENUTA = 2
PRNDTL(W1)=1. ;PRNDTL(KE)=1.
PRNDTL(EP)=1.
PRT(W1)=1. ;PRT(KE)=0.75
PRT(EP)=1.15
CP1 =1. ;CP2 =1.
************************************************************
Group 10.Inter-Phase Transfer Processes
************************************************************
Group 11.Initial field variables (PHIs)
FIINIT(W1)=0.5 ;FIINIT(KE)=1.280533E-03
FIINIT(EP)=1.673059E-03 ;FIINIT(LEN1)=1.0E-10
FIINIT(ENUT)=1.0E-10
No PATCHes yet used for this Group
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(KESOURCE,PHASEM, 0, 0, 0, 0, 0, 0, 1, 1)
COVAL(KESOURCE,KE , GRND4 , GRND4 )
COVAL(KESOURCE,EP , GRND4 , GRND4 )

PATCH(KECHEN ,PHASEM, 0, 0, 0, 0, 0, 0, 1, 1)
COVAL(KECHEN ,EP , FIXFLU , GRND4 )

PATCH(WALLN ,NWALL , 1, 1, 30, 30, 1, 1, 1, 1)
COVAL(WALLN ,W1 , GRND2 ,1. )
COVAL(WALLN ,KE , GRND2 , GRND2 )
COVAL(WALLN ,EP , GRND2 , GRND2 )

PATCH(WALLS ,SWALL , 1, 1, 1, 1, 1, 1, 1, 1)
COVAL(WALLS ,W1 , GRND2 ,0. )
COVAL(WALLS ,KE , GRND2 , GRND2 )
COVAL(WALLS ,EP , GRND2 , GRND2 )
XCYCLE = F
EGWF = T
WALLCO = GRND2
************************************************************
Group 14. Downstream Pressure For PARAB
************************************************************
Group 15. Terminate Sweeps
LSWEEP = 10 ;ISWC1 = 1
LITHYD = 20 ;LITFLX = 1 ;LITC = 1 ;ITHC1 = 1
SELREF = T
RESFAC =1.0E-04
************************************************************
Group 16. Terminate Iterations
LITER(W1)=10 ;LITER(KE)=20
LITER(EP)=20
ENDIT(W1)=1.0E-03 ;ENDIT(KE)=1.0E-03
ENDIT(EP)=1.0E-03
************************************************************
Group 17. Relaxation
RELAX(W1,FALSDT,40.)
RELAX(KE,FALSDT,40.)
RELAX(EP,FALSDT,40.)
RELAX(LEN1,LINRLX,1.)
RELAX(ENUT,LINRLX,1.)
KELIN = 1
OVRRLX =0.
EXPERT = F ;NNORSL = F
************************************************************
Group 18. Limits
VARMAX(W1)=1.0E+06 ;VARMIN(W1)=1.0E-10
VARMAX(KE)=1.0E+10 ;VARMIN(KE)=1.0E-10
VARMAX(EP)=1.0E+10 ;VARMIN(EP)=1.0E-10
VARMAX(LEN1)=1.0E+10 ;VARMIN(LEN1)=-1.0E+10
VARMAX(ENUT)=1.0E+10 ;VARMIN(ENUT)=-1.0E+10
************************************************************
Group 19. Data transmitted to GROUND
GENK = T
PARSOL = F
IENUTA = 2
ISG62 = 1
************************************************************
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(W1,Y,N,Y,Y,Y,Y)
OUTPUT(KE,Y,N,Y,Y,Y,Y)
OUTPUT(EP,Y,N,Y,Y,Y,Y)
OUTPUT(LEN1,Y,N,Y,N,N,N)
OUTPUT(ENUT,Y,N,Y,N,N,N)
WALPRN = T
************************************************************
Group 22. Monitor Print-Out
IXMON = 1 ;IYMON = 28 ;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 = 1 ;IYPRF = 1 ;IYPRL = 10000
IPLTF = 1 ;IPLTL = -1 ;NPLT = 1
ISWPRF = 1 ;ISWPRL = 100000
ITABL = 3 ;IPROF = 1
ABSIZ =0.5 ;ORSIZ =0.4
NTZPRF = 1 ;NCOLPF = 50
ICHR = 2 ;NCOLCO = 45 ;NROWCO = 20
No PATCHes yet used for this Group
************************************************************
Group 24. Dumps For Restarts
SAVE = T ;NOWIPE = F
NSAVE =CHAM
STOP
```