L(172)
TEXT(Fully-Developed Flow; K-EPS Model 
TITLE
  DISPLAY
  The fully-developed flow of case 172 is computed  directly, ie
  without marching integration. The pressure gradient is arbitrary.
  ENDDIS
 NZ=1;LSWEEP=100;PARAB=F
  ** Cut out convection, solution for v1, and IN patch
 TERMS(W1,N,N,P,P,P,P);TERMS(TEMP,N,N,P,P,P,P)
 TERMS(KE,P,N,P,P,P,P);TERMS(EP,P,N,P,P,P,P)
 SOLUTN(V1,N,N,N,N,N,N);OUTPUT(V1,N,N,N,N,N,N)
 SOLUTN(P1,N,N,N,N,N,N);OUTPUT(P1,N,N,N,N,N,N)
 IN=SKIP
   ** Provide source of W1
 PATCH(PRESDIF,HIGH,1,NX,1,NY,1,1,1,1)
 COVAL(PRESDIF,W1,FIXFLU,10.0);COVAL(PRESDIF,TEMP,FIXFLU,1.0)
 FIINIT(ENUT)=0.001;RELAX(ENUT,LINRLX,0.5);RELAX(W1,FALSDT,0.01)
 RELAX(KE,FALSDT,0.001);RELAX(EP,FALSDT,0.001)
 RESFAC=2.E-4;TSTSWP=-1;NYPRIN=NY/5