```
TALK=T;RUN(1,1)
photon use
p
parphi

gr ou z 1
gr ou z m
gr y m
pause
gr off
red
gr ou x 1
gr ou z 1
do kk=1,20
con h1 z kk fi;0.01
enddo
gr ou z m
pause
con off
red
msg pressure contours on an axial plane; Press return for vectors
con p1 x 1 fi;0.01
gr ou z m
pause
msg velocity vectors on plane between fins.
msg Press e to end. Other wise enter command
con off
red
vec x m sh
gr ou z m
enduse
DISPLAY
The radial fins are continuous, thin, uniformly spaced.
Fluid enters the pipe with uniform velocity and temperature;
A constant temperature is prescribed for both fins and pipe wall.

x--->    Pipe wall (1/48 radian segment)
******    /
Fin |       ***                   Constant temperature
^       \ |           **                         |
|        \|            /         ^       .-.-----|-----.--
|         |                      |r    /     \           \
r         |         /            |   -|-->    |           |
-|-->    |           |
Symmetry |      /--Symmetry    Fixed  \     /           /
plane \            plane       mass,    `-'-----------'--
\ |   /                 momentum and  z---->
\                      enthalpy fluxes
|/
Note that the above sketch suggests the the fin projects only
part of the way towards the axis; but the patch representing
the fin wall in fact  extends to the axis.
This is altogther a poor representation of a finned tube,
no simulation is effected of the reduction in surface
temperature with diminishing radius resulting from the finite
conductivity of the fin material.
This library case should be replaced by one which is more
realistic.

The Q1 file contains PHOTON USE commands.

The locally-defined variables are as follows:

NFIN           number of fins
DPIP           pipe diameter
TWAL           wall temperature
TIN            inlet temperature
WIN            inlet velocity.
ENDDIS
************************************************************
Group 1. Run Title and Number
************************************************************
************************************************************

TEXT(Internally-Finned Pipe; Laminar         )

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

IRUNN = 1 ;LIBREF = 14
************************************************************
Group 2. Time dependence
************************************************************
Group 3. X-Direction Grid Spacing
CARTES = F
NX = 10
XULAST =0.1309
XFRAC(1)=0.063096 ;XFRAC(3)=0.235801
XFRAC(5)=0.435275 ;XFRAC(7)=0.651805
XFRAC(9)=0.881234
************************************************************
Group 4. Y-Direction Grid Spacing
NY = 10
YVLAST =0.04
YFRAC(1)=0.19 ;YFRAC(3)=0.51
YFRAC(5)=0.75 ;YFRAC(7)=0.91
YFRAC(9)=0.99
************************************************************
Group 5. Z-Direction Grid Spacing
PARAB = T
NZ = 20
ZWLAST =0.1
ZFRAC(1)=0.05 ;ZFRAC(6)=0.3
ZFRAC(11)=0.55 ;ZFRAC(16)=0.8
************************************************************
Group 6. Body-Fitted Coordinates
************************************************************
Group 7. Variables: STOREd,SOLVEd,NAMEd
ONEPHS = T
NAME(1)=P1 ;NAME(3)=U1
NAME(5)=V1 ;NAME(7)=W1
NAME(14)=H1
* 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(W1,Y,Y,N,N,N,Y)
SOLUTN(H1,Y,Y,N,N,N,Y)
************************************************************
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(W1,Y,Y,Y,Y,Y,Y)
TERMS(H1,N,Y,Y,Y,Y,Y)
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.
ENUL =1.0E-05 ;ENUT =0.
PRNDTL(U1)=1. ;PRNDTL(V1)=1.
PRNDTL(W1)=1. ;PRNDTL(H1)=0.7
PRT(U1)=1. ;PRT(V1)=1.
PRT(W1)=1. ;PRT(H1)=1.
CP1 =1. ;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(W1)=1.0E-10
FIINIT(H1)=1.0E-10
No PATCHes yet used for this Group
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 ,LOW , 1, 10, 1, 10, 1, 1, 1, 1)
COVAL(IN ,P1 , FIXFLU ,0.1 )
COVAL(IN ,U1 ,0. ,0. )
COVAL(IN ,V1 ,0. ,0. )
COVAL(IN ,W1 ,0. ,0.1 )
COVAL(IN ,H1 ,0. ,20. )

PATCH(FINWALL ,WWALL , 1, 1, 1, 10, 1, 20, 1, 1)
COVAL(FINWALL ,V1 ,1. ,0. )
COVAL(FINWALL ,W1 ,1. ,0. )
COVAL(FINWALL ,H1 ,1. ,25. )

PATCH(PIPEWALL,NWALL , 1, 10, 10, 10, 1, 20, 1, 1)
COVAL(PIPEWALL,U1 ,1. ,0. )
COVAL(PIPEWALL,W1 ,1. ,0. )
COVAL(PIPEWALL,H1 ,1. ,25. )
XCYCLE = F
EGWF = T
WALLCO = GRND2
************************************************************
Group 14. Downstream Pressure For PARAB
IPARAB = 0
AZPH =0. ;PBAR =0.
************************************************************
Group 15. Terminate Sweeps
LSWEEP = 1 ;ISWC1 = 1
LITHYD = 10 ;LITFLX = 1 ;LITC = 1 ;ITHC1 = 1
SELREF = T
RESFAC =1.0E-02
************************************************************
Group 16. Terminate Iterations
LITER(P1)=20 ;LITER(U1)=10
LITER(V1)=10 ;LITER(W1)=10
LITER(H1)=20
ENDIT(P1)=1.0E-03 ;ENDIT(U1)=1.0E-03
ENDIT(V1)=1.0E-03 ;ENDIT(W1)=1.0E-03
ENDIT(H1)=1.0E-03
************************************************************
Group 17. Relaxation
RELAX(P1,LINRLX,1.)
RELAX(U1,FALSDT,1.)
RELAX(V1,FALSDT,1.)
RELAX(W1,FALSDT,1.)
RELAX(H1,FALSDT,1.0E+09)
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(W1)=1.0E+06 ;VARMIN(W1)=-1.0E+06
VARMAX(H1)=1.0E+10 ;VARMIN(H1)=-1.0E+10
************************************************************
Group 19. Data transmitted to GROUND
PARSOL = F
IDISPB = 1 ;IDISPC = 20
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,N,Y,Y,Y,Y)
OUTPUT(U1,Y,N,Y,Y,Y,Y)
OUTPUT(V1,Y,N,Y,Y,Y,Y)
OUTPUT(W1,Y,N,Y,Y,Y,Y)
OUTPUT(H1,Y,N,Y,Y,Y,Y)
************************************************************
Group 22. Monitor Print-Out
IXMON = 5 ;IYMON = 6 ;IZMON = 1
NPRMON = 100000 ;NPRMNT = 1 ;TSTSWP = 10
UWATCH = T ;USTEER = T
HIGHLO = F
************************************************************
Group 23.Field Print-Out & Plot Control
NPRINT = 100000 ;NUMCLS = 5
NXPRIN = 2 ;IXPRF = 1 ;IXPRL = 9
NYPRIN = 2 ;IYPRF = 1 ;IYPRL = 10000
NZPRIN = 5 ;IZPRF = 1 ;IZPRL = 10000
IPLTF = 1 ;IPLTL = 10 ;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

PATCH(EXIT ,CONTUR, 1, 10, 1, 10, 20, 20, 1, 1)
PLOT(EXIT ,H1 ,0. ,10. )
************************************************************
Group 24. Dumps For Restarts
SAVE = T ;NOWIPE = F
NSAVE =CHAM
IDISPA = 1 ;IDISPB = 1 ;IDISPC = 20
STOP
```