L(151)
TEXT(Plane Jet; K-E Turbu Model; Para  
TITLE
  DISPLAY
  As for case 150, but with the Prandtl 1-equation model.
  ENDDIS
    The locally-defined variables are as follows:
     EPSIN     The dissipation rate at the inlet
     GMIXL     The length scale at the inlet
REAL(EPSIN,GMIXL)
    GROUP 7. Variables stored, solved & named
SOLUTN(EP,Y,Y,N,N,N,Y)
    GROUP 9. Properties of the medium (or media)
  ** Select k-e Length scale formula
EL1=KE15DEP;ENUT=PRKOLM
    GROUP 13. Boundary conditions and special sources
COVAL(HIGHY,EP,ONLYMS,1.E-6)
COVAL(OUTSIDE,EP,ONLYMS,1.E-6)
  ** Inlet dissipation rate=.1643*k**1.5/Lm
GMIXL=0.035*HSLOT;EPSIN=TKEIN**1.5/GMIXL*.1643
COVAL(SLOT,EP,ONLYMS,EPSIN)
  ** Activate source terms for EP by setting CO & VAL to GRND4;
     and the source terms are calculated in subroutine GXKESO
COVAL(KESO,EP,KESOURCE,KESOURCE)
 
KELIN=3;RELAX(KE,LINRLX,0.25);RELAX(EP,LINRLX,1.0)
 
    GROUP 18. Limits on variables or increments to them
VARMIN(EP)=1.E-5
    GROUP 21. Print-out of variables
OUTPUT(EP,Y,Y,Y,N,Y,Y)