```
TALK=T;RUN(1,1)
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
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
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
************************************************************
Group 1. Run Title and Number
************************************************************
************************************************************

TEXT( FLOW IN A MODEL FURNACE:136            )

************************************************************
************************************************************

IRUNN = 1 ;LIBREF = 136
************************************************************
Group 2. Time dependence
STEADY = T
************************************************************
Group 3. X-Direction Grid Spacing
CARTES = T
NX = 20
XULAST =1.
XFRAC(1)=0.05 ;XFRAC(2)=0.1
XFRAC(3)=0.15 ;XFRAC(4)=0.2
XFRAC(5)=0.25 ;XFRAC(6)=0.3
XFRAC(7)=0.35 ;XFRAC(8)=0.4
XFRAC(9)=0.45 ;XFRAC(10)=0.5
XFRAC(11)=0.55 ;XFRAC(12)=0.6
XFRAC(13)=0.65 ;XFRAC(14)=0.7
XFRAC(15)=0.75 ;XFRAC(16)=0.8
XFRAC(17)=0.85 ;XFRAC(18)=0.9
XFRAC(19)=0.95 ;XFRAC(20)=1.
************************************************************
Group 4. Y-Direction Grid Spacing
NY = 21
YVLAST =2.
YFRAC(1)=0.047619 ;YFRAC(2)=0.095238
YFRAC(3)=0.142857 ;YFRAC(4)=0.190476
YFRAC(5)=0.238095 ;YFRAC(6)=0.285714
YFRAC(7)=0.333333 ;YFRAC(8)=0.380952
YFRAC(9)=0.428571 ;YFRAC(10)=0.47619
YFRAC(11)=0.52381 ;YFRAC(12)=0.571429
YFRAC(13)=0.619048 ;YFRAC(14)=0.666667
YFRAC(15)=0.714286 ;YFRAC(16)=0.761905
YFRAC(17)=0.809524 ;YFRAC(18)=0.857143
YFRAC(19)=0.904762 ;YFRAC(20)=0.952381
YFRAC(21)=1.
************************************************************
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(14)=TEMP
NAME(147)=PRPS ;NAME(149)=NPOR
NAME(150)=EPOR
* 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,N,N,N,Y)
SOLUTN(U1,Y,Y,N,N,N,Y)
SOLUTN(V1,Y,Y,N,N,N,Y)
SOLUTN(TEMP,Y,Y,N,N,N,Y)
SOLUTN(PRPS,Y,N,N,N,N,Y)
SOLUTN(NPOR,Y,N,N,N,N,Y)
SOLUTN(EPOR,Y,N,N,N,N,Y)
EPOR = 150 ;HPOR = 0 ;NPOR = 149 ;VPOR = 0
PRPS = 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(TEMP,N,Y,Y,N,Y,N)
DIFCUT =0.5 ;ZDIFAC =1.
GALA = F ;ADDDIF = F
ISOLX = -1 ;ISOLY = -1 ;ISOLZ = -1
************************************************************
Group 9. Properties used if PRPS is not
stored, and where PRPS = -1.0 if it is!
RHO1 =1. ;TMP1 =0.
EL1 =0.
TSURR =0. ;TEMP0 =0.
PRESS0 =0.
DVO1DT =0. ;DRH1DP =0.
EMISS =0. ;SCATT =0.
RADIA =0. ;RADIB =0.
ENUL =1.0E-02 ;ENUT =0.
PRNDTL(U1)=1. ;PRNDTL(V1)=1.
PRNDTL(TEMP)=0.702
PRT(U1)=1. ;PRT(V1)=1.
PRT(TEMP)=1.
CP1 =1. ;CP2 =1.
************************************************************
Group 10.Inter-Phase Transfer Processes
************************************************************
Group 11.Initial field variables (PHIs)
FIINIT(P1)=1.0E-10 ;FIINIT(U1)=8.
FIINIT(V1)=1.0E-10 ;FIINIT(TEMP)=1.0E-10
FIINIT(PRPS)=-1. ;FIINIT(NPOR)=1.
FIINIT(EPOR)=1.

PATCH(CMP0 ,INIVAL, 1, 3, 7, 21, 1, 1, 1, 1)
INIT(CMP0 ,PRPS,0. ,198. )

PATCH(CMP1 ,INIVAL, 19, 20, 7, 21, 1, 1, 1, 1)
INIT(CMP1 ,PRPS,0. ,198. )

PATCH(CMP2 ,INIVAL, 11, 11, 1, 14, 1, 1, 1, 1)
INIT(CMP2 ,PRPS,0. ,198. )
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(IN ,WEST , 1, 1, 1, 6, 1, 1, 1, 1)
COVAL(IN ,P1 , FIXFLU ,8. )
COVAL(IN ,U1 ,0. ,8. )
COVAL(IN ,TEMP,0. ,1. )

PATCH(OUT ,EAST , 20, 20, 1, 6, 1, 1, 1, 1)
COVAL(OUT ,P1 ,1. ,0. )
COVAL(OUT ,TEMP,0. , SAME )

PATCH(HEX ,VOLUME, 4, 18, 15, 21, 1, 1, 1, 1)
COVAL(HEX ,TEMP, GRND ,0. )
XCYCLE = F
EGWF = T
WALLCO = GRND2
************************************************************
Group 14. Downstream Pressure For PARAB
************************************************************
Group 15. Terminate Sweeps
LSWEEP = 100 ;ISWC1 = 20
LITHYD = 1 ;LITFLX = 1 ;LITC = 1 ;ITHC1 = 1
SELREF = T
RESFAC =1.0E-04
************************************************************
Group 16. Terminate Iterations
LITER(P1)=20 ;LITER(U1)=10
LITER(V1)=10 ;LITER(TEMP)=20
ENDIT(P1)=1.0E-03 ;ENDIT(U1)=1.0E-03
ENDIT(V1)=1.0E-03 ;ENDIT(TEMP)=1.0E-03
************************************************************
Group 17. Relaxation
RELAX(P1,LINRLX,0.5)
RELAX(U1,FALSDT,1.)
RELAX(V1,FALSDT,1.)
RELAX(TEMP,FALSDT,10.)
RELAX(PRPS,LINRLX,1.)
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(TEMP)=1.0E+10 ;VARMIN(TEMP)=-1.0E+10
VARMAX(PRPS)=1.0E+10 ;VARMIN(PRPS)=-1.0E+10
VARMAX(NPOR)=1.0E+10 ;VARMIN(NPOR)=-1.0E+10
VARMAX(EPOR)=1.0E+10 ;VARMIN(EPOR)=-1.0E+10
************************************************************
Group 19. Data transmitted to GROUND
NAMSAT =MOSG
PARSOL = F
ISG62 = 1
SPEDAT(SET,MATERIAL,198,L,T)
************************************************************
Group 20. Preliminary Printout
DISTIL = T ;NULLPR = F
NDST = 0
DSTTOL =1.0E-02
EX(P1)=219.600006 ;EX(U1)=2.678
EX(V1)=6.599 ;EX(TEMP)=0.5932
EX(PRPS)=42.75 ;EX(NPOR)=1.
EX(EPOR)=1.
************************************************************
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,N,Y,Y,Y,Y)
OUTPUT(U1,Y,N,Y,Y,Y,Y)
OUTPUT(V1,Y,N,Y,Y,Y,Y)
OUTPUT(TEMP,Y,N,Y,Y,Y,Y)
OUTPUT(PRPS,Y,N,Y,N,N,N)
OUTPUT(NPOR,Y,N,Y,N,N,N)
OUTPUT(EPOR,Y,N,Y,N,N,N)
************************************************************
Group 22. Monitor Print-Out
IXMON = 10 ;IYMON = 20 ;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 = 1 ;IXPRF = 1 ;IXPRL = 10000
NYPRIN = 1 ;IYPRF = 1 ;IYPRL = 10000
IPLTF = 1 ;IPLTL = -1 ;NPLT = -1
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
```