PHOTON USE
  p
 
 
 
  gr ou z 1;GR OU Z 1 X 1 3 Y 7 21 COL 2
  GR OU Z 1 X 19 20 Y 7 21 COL 2;GR OU Z 1 X 11 11 Y 1 14 COL 2
  red
  msg                    FLOW IN A MODEL FURNACE
  msg                            GEOMETRY
  msg Press  to continue
  pause;red
  vec z 1 sh
  msg                        VELOCITY VECTORS
  msg Press  to continue
  pause
  vec off;red
  msg                       PRESSURE CONTOURS
  con p1 z 1 fil;0.01
  msg Press  to continue
  pause
  con off;red
  msg                       TEMPERATURE CONTOURS
  con temp z 1 fil;0.01
  msg Press e to END
  ENDUSE
TEXT( FLOW IN A MODEL FURNACE:136

  DISPLAY
     The case is similar to the flow in the cavity
     with internal orifice. The upper part of the
     flow domain is filled by the convective surfaces.
     They act as volumetric heat sink with the overall
     heat transfer coefficient which depends on the
     local velocities.
  ENDDIS

REAL(U1IN,LENGTH,HIGHT);U1IN=8.0;LENGTH=1.;HIGHT=2.
GRDPWR(X,20,LENGTH,1.);GRDPWR(Y,21,HIGHT,1.)
SOLVE(P1,U1,V1,H1);NAME(H1)=TEMP;STORE(EPOR,NPOR,VPOR,PRPS)
TERMS(TEMP,N,Y,Y,N,Y,N)
ENUL=1.E-2;PRNDTL(TEMP)=.702
FIINIT(U1)=U1IN
CONPOR(0.0,CELL,-1,-3,-7,-NY,1,1)
CONPOR(0.0,CELL,-19,-20,-7,-NY,1,1)
CONPOR(0.0,CELL,-11,-11,-1,-14,1,1)
 
PATCH(IN,WEST,1,1,1,6,1,1,1,1)
COVAL(IN,P1,FIXFLU,RHO1*U1IN)
COVAL(IN,U1,ONLYMS,U1IN)
COVAL(IN,TEMP,ONLYMS,1.0)
 
PATCH(OUT,EAST,NX,NX,1,6,1,1,1,1)
COVAL(OUT,P1,FIXP,0.)
COVAL(OUT,TEMP,ONLYMS,SAME)

    PLANTBEGIN
  Heat-exchange with tube fluid
PATCH(HEX,VOLUME,4,18,15,NY,1,NZ,1,1)
    COF=2.2*(U1**2+V1**2)**0.25
COVAL(HEX,TEMP,GRND,0.0)
    PLANTEND
 
LSWEEP=100;ISWC1=20
RESREF(P1)=1.E-5;RESREF(U1)=1.E-5;RESREF(V1)=1.E-5
RELAX(P1,LINRLX,0.5);RELAX(U1,FALSDT,1.);RELAX(V1,FALSDT,1.)
RELAX(TEMP,FALSDT,10.)
NAMSAT=MOSG
IXMON=NX/2;IYMON=NY-1;NXPRIN=1;NYPRIN=1

tstswp=-1
dmpstk=t
DISTIL=T
 EX(P1)=2.196E+02; EX(U1)=2.678E+00; EX(V1)=6.599E+00
 EX(TEMP)=5.932E-01; EX(PRPS)=4.275E+01; EX(VPOR)=7.881E-01
 EX(NPOR)=1.000E+00; EX(EPOR)=1.000E+00
 LIBREF=136
STOP