TALK=T;RUN(1,1)
   PHOTON USE
   p;;;;

   view z; Gr ou z 1
   msg velocity vectors
   vec z 1 sh; pause
   msg wall-distance contours
   con wdis z 1 fi;0.001; Pause
   msg effective-viscosity contours
   con enut z 1 fi;0.001; Pause

   ENDUSE
  DISPLAY
   Turbulent buoyancy-driven air flow in a tall rectangular
   cavity of 5:1 aspect ratio with a Rayleigh number of 4.E10 is
   calculated using a buoyancy-extended low-Reynolds-number k-e
   model.

   The vertical walls are isothermal with a temperature difference
   of 45.8 degC;  the horizontal walls are adiabatic.

   This problem has been studied experimentally by Cheesewright
   et al (ASME HTD-60, p75, New York, 1986) and numerically by
   Davidson (Num. Heat Transfer,Vol.18,p129,1990).

   The calculation may be performed with or without the
   Boussinesq approximation and with the energy equation solved via
   the temperature TEM1 or the static enthalpy H1.
   Both calculations compute the dynamic laminar viscosity from
   Sutherland's formula.
   When the Boussinesq approximation is not used, variable density
   and thermal conductivity are also employed .
  ENDDIS
 ************************************************************
  Group 1. Run Title and Number
 ************************************************************
 ************************************************************
 
 TEXT(2D Turbulent Free Convection In A Cavity)
 
 ************************************************************
 ************************************************************
 
 IRUNN = 1 ;LIBREF = 296
 ************************************************************
  Group 2. Time dependence
 STEADY = T
 ************************************************************
  Group 3. X-Direction Grid Spacing
 CARTES = T
 NX = 28
 XULAST =1.
 XFRAC(1)=3.011689E-03 ;XFRAC(6)=0.03855
 XFRAC(11)=0.145198 ;XFRAC(16)=0.322141
 XFRAC(21)=0.447503 ;XFRAC(26)=0.493035
 ************************************************************
  Group 4. Y-Direction Grid Spacing
 NY = 28
 YVLAST =1.
 YFRAC(1)=0.015058 ;YFRAC(6)=0.192751
 YFRAC(11)=0.725992 ;YFRAC(16)=1.610707
 YFRAC(21)=2.237516 ;YFRAC(26)=2.465177
 ************************************************************
  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(1)=P1 ;NAME(3)=U1
 NAME(5)=V1 ;NAME(12)=KE
 NAME(13)=EP ;NAME(143)=EPKE
 NAME(144)=KOND ;NAME(145)=DEN1
 NAME(146)=VISL ;NAME(147)=ENUT
 NAME(148)=LTLS ;NAME(149)=WDIS
 NAME(150)=TEM1
    * Y in SOLUTN argument list denotes:
    * 1-stored 2-solved 3-whole-field
    * 4-point-by-point 5-explicit 6-harmonic averaging 
 SOLUTN(P1,Y,Y,Y,N,N,Y)
 SOLUTN(U1,Y,Y,Y,N,N,Y)
 SOLUTN(V1,Y,Y,Y,N,N,Y)
 SOLUTN(KE,Y,Y,N,N,N,N)
 SOLUTN(EP,Y,Y,N,N,N,N)
 SOLUTN(EPKE,Y,N,N,N,N,N)
 SOLUTN(KOND,Y,N,N,N,N,Y)
 SOLUTN(DEN1,Y,N,N,N,N,Y)
 SOLUTN(VISL,Y,N,N,N,N,Y)
 SOLUTN(ENUT,Y,N,N,N,N,Y)
 SOLUTN(LTLS,Y,Y,Y,N,N,Y)
 SOLUTN(WDIS,Y,N,N,N,N,N)
 SOLUTN(TEM1,Y,Y,N,N,N,Y)
 DEN1 = 145
 VISL = 146
 VIST = 147
 ************************************************************
  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(P1,Y,Y,Y,N,Y,Y)
 TERMS(U1,Y,Y,Y,Y,Y,Y)
 TERMS(V1,Y,Y,Y,Y,Y,Y)
 TERMS(KE,N,Y,Y,Y,Y,N)
 TERMS(EP,N,Y,Y,Y,Y,N)
 TERMS(LTLS,N,N,Y,N,Y,Y)
 TERMS(TEM1,N,Y,Y,Y,Y,Y)
 DIFCUT =0.5 ;ZDIFAC =1.
 GALA = F ;ADDDIF = F
 NEWRH1 = T
 NEWENL = T
 NEWENT = T
 ISOLX = -1 ;ISOLY = -1 ;ISOLZ = -1
 DENPCO = T
 ************************************************************
  Group 9. Properties used if PRPS is not
  stored, and where PRPS = -1.0 if it is!
 RHO1 = GRND10 ;TMP1 =0. ;EL1 = GRND4
 TSURR =0. ;TEMP0 =0. ;PRESS0 =0.
 DVO1DT =1.070903 ;DRH1DP =0.
 RHO1A =0. ;RHO1B =2.828814E-03 ;RHO1C =0.
 EMISS =0. ;SCATT =0.
 RADIA =0. ;RADIB =0.
 EL1A =0. ;EL1B =0. ;EL1C =0.
 ENUL = GRND6 ;ENUT = GRND3
 ENULA =1.458E-06 ;ENULB =110.400002 ;ENULC =0. ;ENULD =0.
 ENULE =0. ;ENULF =0. ;ENULG =0.
 IENULA = 0 ;IENULB = 0
 ENUTA =0. ;ENUTB =0. ;ENUTC =0.
 IENUTA = 3
 PRNDTL(U1)=1. ;PRNDTL(V1)=1.
 PRNDTL(KE)=1. ;PRNDTL(EP)=1.
 PRNDTL(LTLS)=1. ;PRNDTL(TEM1)=-GRND4
 PRLH1A =3.5E-03 ;PRLH1B =7.5E-05 ;PRLH1C =0.
 PRT(U1)=1. ;PRT(V1)=1.
 PRT(KE)=1. ;PRT(EP)=1.314
 PRT(LTLS)=1. ;PRT(TEM1)=0.9
 CP1 =1008. ;CP2 =1.
 ************************************************************
  Group 10.Inter-Phase Transfer Processes
 ************************************************************
  Group 11.Initial field variables (PHIs)
 FIINIT(P1)=1.0E-10 ;FIINIT(U1)=1.0E-10
 FIINIT(V1)=1.0E-10 ;FIINIT(KE)=3.402741E-03
 FIINIT(EP)=1.368744E-03 ;FIINIT(EPKE)=1.0E-10
 FIINIT(KOND)=0.028522 ;FIINIT(DEN1)=1.070903
 FIINIT(VISL)=1.0E-10 ;FIINIT(ENUT)=7.61339E-04
 FIINIT(LTLS)=1.0E-10 ;FIINIT(WDIS)=0.1
 FIINIT(TEM1)=330.100006
   No PATCHes yet used for this Group
 INIADD = F
 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(HOT ,WWALL , 1, 1, 1, 28, 1, 1, 1, 1)
 COVAL(HOT ,V1 , GRND2 ,0. )
 COVAL(HOT ,KE ,1. ,0. )
 COVAL(HOT ,TEM1, GRND2 ,353. )
 
 PATCH(COLD ,EWALL , 28, 28, 1, 28, 1, 1, 1, 1)
 COVAL(COLD ,V1 , GRND2 ,0. )
 COVAL(COLD ,KE ,1. ,0. )
 COVAL(COLD ,TEM1, GRND2 ,307.200012 )
 
 PATCH(TOPWAL ,NWALL , 1, 28, 28, 28, 1, 1, 1, 1)
 COVAL(TOPWAL ,U1 , GRND2 ,0. )
 COVAL(TOPWAL ,KE ,1. ,0. )
 
 PATCH(BOTWAL ,SWALL , 1, 28, 1, 1, 1, 1, 1, 1)
 COVAL(BOTWAL ,U1 , GRND2 ,0. )
 COVAL(BOTWAL ,KE ,1. ,0. )
 
 PATCH(BUOY ,PHASEM, 1, 28, 1, 28, 1, 1, 1, 1)
 COVAL(BUOY ,V1 , FIXFLU , GRND2 )
 
 PATCH(REFP ,CELL , 14, 14, 14, 14, 1, 1, 1, 1)
 COVAL(REFP ,P1 ,1. ,0. )
 COVAL(REFP ,V1 ,0. ,0. )
 
 PATCH(KEBUOY ,PHASEM, 1, 28, 1, 28, 1, 1, 1, 1)
 COVAL(KEBUOY ,KE , GRND4 , GRND4 )
 COVAL(KEBUOY ,EP , GRND4 , GRND4 )
 XCYCLE = F
 EGWF = T
 WALLCO = GRND2
 BUOYA =0. ; BUOYB =-9.81 ; BUOYC =0.
 BUOYD =1.070903
 ************************************************************
  Group 14. Downstream Pressure For PARAB
 ************************************************************
  Group 15. Terminate Sweeps
 LSWEEP = 1600 ;ISWC1 = 1
 LITHYD = 1 ;LITFLX = 1 ;LITC = 1 ;ITHC1 = 1
 SELREF = T
 RESFAC =1.0E-05
 ************************************************************
  Group 16. Terminate Iterations
 LITER(P1)=20 ;LITER(U1)=2
 LITER(V1)=2 ;LITER(KE)=2
 LITER(EP)=2 ;LITER(LTLS)=20
 LITER(TEM1)=50
 ENDIT(P1)=1.0E-03 ;ENDIT(U1)=1.0E-03
 ENDIT(V1)=1.0E-03 ;ENDIT(KE)=1.0E-03
 ENDIT(EP)=1.0E-03 ;ENDIT(LTLS)=1.0E-03
 ENDIT(TEM1)=1.0E-03
 ************************************************************
  Group 17. Relaxation
 RELAX(P1,LINRLX,1.)
 RELAX(U1,FALSDT,0.048402)
 RELAX(V1,FALSDT,0.048402)
 RELAX(KE,FALSDT,0.048402)
 RELAX(EP,FALSDT,0.048402)
 RELAX(EPKE,LINRLX,1.)
 RELAX(KOND,LINRLX,1.)
 RELAX(DEN1,LINRLX,1.)
 RELAX(VISL,LINRLX,1.)
 RELAX(ENUT,LINRLX,1.)
 RELAX(LTLS,FALSDT,1.0E+09)
 RELAX(WDIS,LINRLX,1.)
 RELAX(TEM1,FALSDT,2.420123)
 KELIN = 3
 OVRRLX =0.
 EXPERT = F ;NNORSL = F
 ************************************************************
  Group 18. Limits
 VARMAX(P1)=1.0E+10 ;VARMIN(P1)=-1.0E+10
 VARMAX(U1)=1.0E+06 ;VARMIN(U1)=-1.0E+06
 VARMAX(V1)=1.0E+06 ;VARMIN(V1)=-1.0E+06
 VARMAX(KE)=1.0E+10 ;VARMIN(KE)=1.0E-10
 VARMAX(EP)=1.0E+10 ;VARMIN(EP)=1.0E-10
 VARMAX(EPKE)=1.0E+10 ;VARMIN(EPKE)=-1.0E+10
 VARMAX(KOND)=1.0E+10 ;VARMIN(KOND)=-1.0E+10
 VARMAX(DEN1)=1.0E+10 ;VARMIN(DEN1)=-1.0E+10
 VARMAX(VISL)=1.0E+10 ;VARMIN(VISL)=-1.0E+10
 VARMAX(ENUT)=1.0E+10 ;VARMIN(ENUT)=-1.0E+10
 VARMAX(LTLS)=1.0E+10 ;VARMIN(LTLS)=-1.0E+10
 VARMAX(WDIS)=1.0E+10 ;VARMIN(WDIS)=-1.0E+10
 VARMAX(TEM1)=353. ;VARMIN(TEM1)=307.200012
 ************************************************************
  Group 19. Data transmitted to GROUND
 GENK = T
 YPLS = T
 PARSOL = F
 IENUTA = 3
 ISG62 = 1
 SPEDAT(SET,GXMONI,PLOTALL,L,T)
 ************************************************************
  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(P1,Y,Y,Y,Y,Y,Y)
 OUTPUT(U1,Y,Y,Y,Y,Y,Y)
 OUTPUT(V1,Y,Y,Y,Y,Y,Y)
 OUTPUT(KE,Y,N,Y,Y,Y,Y)
 OUTPUT(EP,Y,N,Y,Y,Y,Y)
 OUTPUT(EPKE,Y,N,Y,N,N,N)
 OUTPUT(KOND,Y,N,Y,N,N,N)
 OUTPUT(DEN1,Y,N,Y,N,N,N)
 OUTPUT(VISL,Y,N,Y,N,N,N)
 OUTPUT(ENUT,Y,N,Y,N,N,N)
 OUTPUT(LTLS,Y,N,Y,Y,Y,Y)
 OUTPUT(WDIS,Y,N,Y,N,N,N)
 OUTPUT(TEM1,Y,N,Y,Y,Y,Y)
 WALPRN = T
 ************************************************************
  Group 22. Monitor Print-Out
 IXMON = 5 ;IYMON = 14 ;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
 NXPRIN = 5 ;IXPRF = 1 ;IXPRL = 10000
 NYPRIN = 5 ;IYPRF = 1 ;IYPRL = 10000
 IPLTF = 1 ;IPLTL = -1 ;NPLT = 20
 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