L(150)
    GROUP 1. Run title and other preliminaries
TEXT(Plane Jet;K-L Turbul Model;Para   
  DISPLAY
  As for case 150, but with the Prandtl 1-equation model.
  ENDDIS
 
    The locally-defined variables are as follows:
 
    TKEIN       The turbulent kinematic energy at the inlet
 
REAL(TKEIN); TKEIN=WJET*WJET*0.0001
 
    GROUP 7. Variables stored, solved & named
SOLUTN(KE,Y,Y,N,N,N,Y)
 
    GROUP 9. Properties of the medium (or media)
ENUL=WJET*HSLOT/REYNO;PRT(TEMP)=0.5
  ** Select Prandtl-Kolmogorov formula for turbulent kinematic
     viscosity
ENUT=PRKOLM
    GROUP 13. Boundary conditions and special sources
COVAL(HIGHY,KE,ONLYMS,1.E-5)
COVAL(OUTSIDE,KE,ONLYMS,1.E-5)
COVAL(SLOT,KE,ONLYMS,TKEIN)
  ** Activate source terms for KE by setting CO & VAL to GRND4;
     the source terms are calculated in subroutine GXKESO
PATCH(KESO,PHASEM,1,1,1,NY,1,NZ,1,LSTEP)
COVAL(KESO,KE,KESOURCE,KESOURCE)
    GROUP 18. Limits on variables or increments to them
VARMIN(KE)=1.E-6
    GROUP 21. Print-out of variables
OUTPUT(KE,Y,Y,Y,N,Y,Y)
    GROUP 23. Field print-out and plot control
PLOT(IZEQNZ,KE,0.0,0.0)
  STOP