```
TALK=T;RUN(1,1)
DISPLAY
The problem considered is 2D supersonic flow in a 'supersonic
diffuser', i.e. a converging duct. The problem is solved using
the IPARAB=4 option of the parabolic solver. The flow enters
axially at MACH 2, and then passes over a 8o corner where a weak
oblique shock wave is generated of angle 37o, which is in turn
reflected from the bottom of the duct to arrive at the top corner
of the exit plane. The PHOENICS results are compared with the
results of shock theory below:

M1    M2    M3   |  P1/Po1   P2/Po1  P3/Po1
Theory     2.0   1.71  1.42  |  0.128    0.197   0.293
PHOENICS   2.0   1.75  1.45  |  0.128    0.192   0.293

Here, M, P and Po denote Mach number, static pressure and total
pressure, respectively; and 1, 2 and 3 denote inlet, post
shock, and post reflected-shock, respectively.
ENDDIS
PHOTON USE
p
parphi

con mach x 1 fi;.01
pau;cl
vec x 1 sh
pau;cl
con p1 x 1 fi;.01
pau;cl
con rho1 x 1 fi;.01
ENDUSE
************************************************************
Group 1. Run Title and Number
************************************************************
************************************************************

TEXT(2D Flow In A Supersonic Diffuser        )

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

IRUNN = 1 ;LIBREF = 14
************************************************************
Group 2. Time dependence
************************************************************
Group 3. X-Direction Grid Spacing
CARTES = T
NX = 1
XULAST =1.
XFRAC(1)=1.
************************************************************
Group 4. Y-Direction Grid Spacing
NY = 80
YVLAST =1.
AZYV =1. ;AZRI =0.
AZAL =0.
YFRAC(1)=0.0125 ;YFRAC(3)=0.0375
YFRAC(5)=0.0625 ;YFRAC(7)=0.0875
YFRAC(9)=0.1125 ;YFRAC(11)=0.1375
YFRAC(13)=0.1625 ;YFRAC(15)=0.1875
YFRAC(17)=0.2125 ;YFRAC(19)=0.2375
YFRAC(21)=0.2625 ;YFRAC(23)=0.2875
YFRAC(25)=0.3125 ;YFRAC(27)=0.3375
YFRAC(29)=0.3625 ;YFRAC(31)=0.3875
YFRAC(33)=0.4125 ;YFRAC(35)=0.4375
YFRAC(37)=0.4625 ;YFRAC(39)=0.4875
YFRAC(41)=0.5125 ;YFRAC(43)=0.5375
YFRAC(45)=0.5625 ;YFRAC(47)=0.5875
YFRAC(49)=0.6125 ;YFRAC(51)=0.6375
YFRAC(53)=0.6625 ;YFRAC(55)=0.6875
YFRAC(57)=0.7125 ;YFRAC(59)=0.7375
YFRAC(61)=0.7625 ;YFRAC(63)=0.7875
YFRAC(65)=0.8125 ;YFRAC(67)=0.8375
YFRAC(69)=0.8625 ;YFRAC(71)=0.8875
YFRAC(73)=0.9125 ;YFRAC(75)=0.9375
YFRAC(77)=0.9625 ;YFRAC(79)=0.9875
************************************************************
Group 5. Z-Direction Grid Spacing
PARAB = T
NZ = 320
ZWLAST =2.3
ZFRAC(1)=3.125E-03 ;ZFRAC(81)=0.253125
ZFRAC(161)=0.503125 ;ZFRAC(241)=0.753125
************************************************************
Group 6. Body-Fitted Coordinates
************************************************************
Group 7. Variables: STOREd,SOLVEd,NAMEd
ONEPHS = T
NAME(1)=P1 ;NAME(5)=V1
NAME(7)=W1 ;NAME(149)=MACH
NAME(150)=RHO1
* 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(V1,Y,Y,N,N,N,Y)
SOLUTN(W1,Y,Y,N,N,N,Y)
SOLUTN(MACH,Y,N,N,N,N,Y)
SOLUTN(RHO1,Y,N,N,N,N,Y)
DEN1 = 150
************************************************************
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(V1,Y,Y,N,Y,Y,Y)
TERMS(W1,Y,Y,N,Y,Y,Y)
DIFCUT =0.5 ;ZDIFAC =1.
GALA = F ;ADDDIF = F
NEWRH1 = 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 = GRND3 ;TMP1 =0.
EL1 =0.
TSURR =0. ;TEMP0 =0.
PRESS0 =0.
DVO1DT =0. ;DRH1DP = GRND3
RHO1A =1. ;RHO1B =0.714286
RHO1C =0.
EMISS =0. ;SCATT =0.
ENUL =1.0E-05 ;ENUT =0.
CP1 =1. ;CP2 =1.
************************************************************
Group 10.Inter-Phase Transfer Processes
************************************************************
Group 11.Initial field variables (PHIs)
FIINIT(P1)=0.127805 ;FIINIT(V1)=1.0E-10
FIINIT(W1)=1.763834 ;FIINIT(MACH)=1.0E-10
FIINIT(RHO1)=0.230048
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, 1, 1, 80, 1, 1, 1, 1)
COVAL(IN ,P1 , FIXFLU ,0.405767 )
COVAL(IN ,V1 ,0. ,0. )
COVAL(IN ,W1 ,0. ,1.763834 )
XCYCLE = F
EGWF = T
WALLCO = GRND2
************************************************************
Group 14. Downstream Pressure For PARAB
IPARAB = 4
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-04
************************************************************
Group 16. Terminate Iterations
LITER(P1)=20 ;LITER(V1)=10
LITER(W1)=10
ENDIT(P1)=1.0E-03 ;ENDIT(V1)=1.0E-03
ENDIT(W1)=1.0E-03
************************************************************
Group 17. Relaxation
RELAX(P1,LINRLX,0.7)
RELAX(V1,FALSDT,1.303977)
RELAX(W1,FALSDT,1.303977)
RELAX(MACH,LINRLX,1.)
RELAX(RHO1,LINRLX,1.)
OVRRLX =0.
EXPERT = F ;NNORSL = F
************************************************************
Group 18. Limits
VARMAX(P1)=1.0E+10 ;VARMIN(P1)=-1.0E+10
VARMAX(V1)=1.0E+06 ;VARMIN(V1)=-1.0E+06
VARMAX(W1)=1.0E+06 ;VARMIN(W1)=-1.0E+06
VARMAX(MACH)=1.0E+10 ;VARMIN(MACH)=-1.0E+10
VARMAX(RHO1)=1.0E+10 ;VARMIN(RHO1)=-1.0E+10
************************************************************
Group 19. Data transmitted to GROUND
PARSOL = F
IDISPB = 1 ;IDISPC = 320
ISG62 = 1
************************************************************
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(V1,Y,N,Y,Y,Y,Y)
OUTPUT(W1,Y,N,Y,Y,Y,Y)
OUTPUT(MACH,Y,N,Y,N,N,N)
OUTPUT(RHO1,Y,N,Y,N,N,N)
************************************************************
Group 22. Monitor Print-Out
IXMON = 1 ;IYMON = 40 ;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
NYPRIN = 2 ;IYPRF = 1 ;IYPRL = 10000
NZPRIN = 80 ;IZPRF = 1 ;IZPRL = 10000
IPLTF = 1 ;IPLTL = -1 ;NPLT = 2
ISWPRF = 1 ;ISWPRL = 100000
ITABL = 2 ;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
IDISPA = 2 ;IDISPB = 1 ;IDISPC = 320
STOP
```