TALK=T;RUN( 1, 1)
************************************************************
Q1 created by VDI menu, Version 2025, Date 03/02/25
CPVNAM=VDI; SPPNAM=Core
************************************************************
Echo DISPLAY / USE settings
DISPLAY
This case concerns plane, two-dimensional, incompressible
flow through a 180 degree turnaround duct, as studied
experimentally by Monson & Seegmiller (1988). The duct has a
width W=0.0381m and an aspect ratio of 10. The inlet and
outlet planes are located 3.5W upstream and downstream of the
bend, respectively. The inner radius of the bend is 0.01905m,
which corresponds to a curvature ratio of 0.5. The Reynolds
number based on duct width is 1.E5, and the Dean number is
7.071E4. The flow exhibits large streamline curvature with
flow relaminarisation along the inner convex wall together
with the formation of a separation zone near the bend exit
on the inner (convex) surface of the duct. The turnaround duct
is representative of many flows of engineering interest, such
as flow in the turnaround duct of the Space-Shuttle-Main-Engine
powerhead.
Calculations are made with the low-Re form of the
Spalart-Allmaras model, and the calculation employs a relatively
coarse non-uniform mesh of NY=60 and NZ=80. Consequently, the
numerical integration is taken down to the wall. This is
the equivalent of Library Case t214 which usesalternative
turbulence models.
The model predicts the occurence of separation along the
inner wall at the exit of the U-bend. The current solution
remains sensitive to mesh numbers.
ENDDIS
************************************************************
IRUNN = 1 ;LIBREF = 214
************************************************************
Group 1. Run Title
TEXT(Low Reynolds S-A Turnaround Duct Flow )
************************************************************
Group 2. Transience
STEADY = T
************************************************************
Groups 3, 4, 5 Grid Information
* Overall number of cells, RSET(M,NX,NY,NZ,tolerance)
RSET(M,1,60,80)
* Set overall domain extent:
* xulast yvlast zwlast
name
* Set overall domain extent:
* xulast yvlast zwlast
name
XSI= 1.000000E+00; YSI= 3.810000E-02; ZSI= 1.333500E-01
RSET(D,CHAM )
* Set objects: x0 y0 z0
* dx dy dz
name
XPO= 0.000000E+00; YPO= 0.000000E+00; ZPO= 0.000000E+00
XSI= 1.000000E+00; YSI= 3.810000E-02; ZSI= 0.000000E+00
RSET(B,IN )
XPO= 0.000000E+00; YPO= 0.000000E+00; ZPO= 1.333500E-01
XSI= 1.000000E+00; YSI= 3.810000E-02; ZSI= 0.000000E+00
RSET(B,OUTLET )
XPO= 0.000000E+00; YPO= 3.810000E-02; ZPO= 0.000000E+00
XSI= 1.000000E+00; YSI= 0.000000E+00; ZSI= 1.333500E-01
RSET(B,WFNN )
XPO= 0.000000E+00; YPO= 0.000000E+00; ZPO= 0.000000E+00
XSI= 1.000000E+00; YSI= 0.000000E+00; ZSI= 1.333500E-01
RSET(B,WFNS )
************************************************************
Group 6. Body-Fitted coordinates
BFC=T
* Set points
XPO= 0.000000E+00;YPO= 0.000000E+00;ZPO= 1.333500E-01;GSET(P,A )
XPO= 0.000000E+00;YPO= 3.810000E-02;ZPO= 1.333500E-01;GSET(P,B )
XPO= 1.000000E+00;YPO= 0.000000E+00;ZPO= 1.333500E-01;GSET(P,C )
XPO= 1.000000E+00;YPO= 3.810000E-02;ZPO= 1.333500E-01;GSET(P,D )
* Set lines/arcs
GSET(L,LAB,A,B,60,S2.0)
GSET(L,LBD,B,D,1,1.0)
GSET(L,LCD,C,D,60,S2.0)
GSET(L,LCA,C,A,1,1.0)
* Set frames
GSET(F,FABC,A,-,B,-,D,-,C,-)
* Match a grid mesh
GSET(M,FABC,+J+I,1,1,1,TRANS)
* Copy/Transfer/Block grid planes
GSET(C,K81,F,K1,1,1,1,60,+,0,0,0)
GSET(C,K81,F,K81,1,1,1,60,+,0,.0762,0)
GSET(C,K51,F,K81,1,1,1,60,+,0,0,-.13335,INC,.8)
GSET(C,K21,F,K51,1,1,1,60,RX,-3.14159,.05715,0,INC,1)
GSET(C,K1,F,K21,1,1,1,60,+,0,0,.13335,INC,1.2)
**********
NONORT = T
UUP = F ;VUP = F ;WUP = T
************************************************************
Group 7. Variables: STOREd,SOLVEd,NAMEd
* Non-default variable names
NAME(132)=DUDZ ;NAME(133)=DUDY
NAME(134)=DWDY ;NAME(135)=DVDZ
NAME(137)=WDIS ;NAME(142)=VOR1
NAME(144)=STRS ;NAME(145)=YPLS
NAME(146)=LEN1 ;NAME(147)=ENUT
NAME(148)=WCRT ;NAME(149)=VCRT
NAME(150) =UCRT
* Solved variables list
SOLVE(P1,V1,W1)
* Stored variables list
STORE(UCRT,VCRT,WCRT,ENUT,LEN1,YPLS,STRS,VOR1)
STORE(WDIS,DVDZ,DWDY,DUDY,DUDZ)
* Additional solver options
SOLUTN(P1,Y,Y,Y,N,N,N)
SOLUTN(V1,Y,Y,Y,N,N,Y)
SOLUTN(W1,Y,Y,Y,N,N,Y)
TURMOD(SPALART-ALLMARAS-LOWRE)
************************************************************
Group 8. Terms & Devices
************************************************************
Group 9. Properties
RHO1 =1.
ENUL =1.000125E-05
CP1 =1.
PRT(ENTI)=0.666667
************************************************************
Group 10.Inter-Phase Transfer Processes
************************************************************
Group 11.Initialise Var/Porosity Fields
FIINIT(W1)=26.25 ;FIINIT(WDIS)=0.1
FIINIT(ENTI)=2.459E-03 ;FIINIT(STRS)=1.001E-10
FIINIT(YPLS)=1.001E-10 ;FIINIT(LEN1)=1.001E-10
FIINIT(ENUT)=1.001E-10 ;FIINIT(WCRT)=1.001E-10
FIINIT(VCRT)=1.001E-10 ;FIINIT(UCRT)=1.001E-10
No PATCHes used for this Group
INIADD = F
************************************************************
Group 12. Convection and diffusion adjustments
No PATCHes used for this Group
************************************************************
Group 13. Boundary & Special Sources
No PATCHes used for this Group
BFCA =1.
EGWF = T
************************************************************
Group 14. Downstream Pressure For PARAB
************************************************************
Group 15. Terminate Sweeps
LSWEEP = 4000
RESREF(P1)=1.000125E-12 ;RESREF(V1)=2.625328E-11
RESREF(W1)=2.625328E-11
RESFAC =1.0E-05
************************************************************
Group 16. Terminate Iterations
************************************************************
Group 17. Relaxation
RELAX(P1 ,LINRLX,1. )
RELAX(V1 ,FALSDT,6.35E-05 )
RELAX(W1 ,FALSDT,6.35E-05 )
RELAX(ENTI,LINRLX,0.05 )
RELAX(ENUT,LINRLX,0.05 )
************************************************************
Group 18. Limits
VARMAX(ENUT)=1.0E+10 ;VARMIN(ENUT)=1.0E-10
************************************************************
Group 19. EARTH Calls To GROUND Station
PARSOL = F
ISG62 = 1
SPEDAT(SET,OUTPUT,NOFIELD,L,T)
SPEDAT(SET,GXMONI,PLOTALL,L,T)
************************************************************
Group 20. Preliminary Printout
DISTIL = T ;NULLPR = F
NDST = 0
DSTTOL =1.0E-02
EX(P1)=146.600006 ;EX(V1)=0.7406
EX(W1)=23.629999 ;EX(DUDZ)=0.
EX(DUDY)=0. ;EX(DWDY)=1.004E+04
EX(DVDZ)=2898. ;EX(WDIS)=6.404E-03
EX(LTLS)=8.591E-05 ;EX(VOR1)=1.271E+04
EX(ENTI)=9.858001E-04 ;EX(STRS)=0.07336
EX(YPLS)=0.04718 ;EX(LEN1)=1.001E-10
EX(ENUT)=9.823E-04 ;EX(WCRT)=20.129999
EX(VCRT)=6.608 ;EX(UCRT)=0.
************************************************************
Group 21. Print-out of Variables
OUTPUT(ENUT,Y,N,Y,N,Y,Y)
************************************************************
Group 22. Monitor Print-Out
IXMON = 1 ;IYMON = 2 ;IZMON = 40
NPRMON = 4000
NPRMNT = 1
TSTSWP = -1
************************************************************
Group 23.Field Print-Out & Plot Control
NPRINT = 4000
NYPRIN = 2
NZPRIN = 10
NPLT = 10
ISWPRF = 1 ;ISWPRL = 100000
ITABL = 2
No PATCHes used for this Group
************************************************************
Group 24. Dumps For Restarts
GVIEW(P,-1.,0.,0.)
GVIEW(UP,0.,1.,0.)
GVIEW(WINDOW,MAX)
GVIEW(DEPTH,1000.)
GVIEW(VDIS,0.185385)
GVIEW(CENTRE,0.5,0.05715,0.0381)
> DOM, SIZE, 1.000000E+00, 6.000000E+01, 8.000000E+01
> DOM, MONIT, 1.000000E+00, 2.000000E+00, 4.000000E+01
> DOM, SCALE, 1.000000E+00, 1.000000E+00, 1.000000E+00
> DOM, INCREMENT, 1.000000E-02, 1.000000E-02, 1.000000E-02
> GRID, RSET_X_1, 1, 1.000000E+00
> GRID, RSET_Y_1, 60, 1.000000E+00
> GRID, RSET_Z_1, 20, 1.000000E+00
> GRID, RSET_Z_2, 30, 1.000000E+00
> GRID, RSET_Z_3, 30, 1.000000E+00
> DOM, T_AMBIENT, 0.000000E+00
> OBJ, NAME, IN
> OBJ, POSITION, 0.000000E+00, 0.000000E+00, 0.000000E+00
> OBJ, SIZE, 1.000000E+00, 6.000000E+01, 0.000000E+00
> OBJ, GEOMETRY, IN
> OBJ, TYPE, INLET
> OBJ, PRESSURE, P_AMBIENT
> OBJ, VELOCITY, 0. ,0. ,-26.25
> OBJ, ENTI_IN, 2.459000E-03
> OBJ, NAME, OUTLET
> OBJ, POSITION, 0.000000E+00, 0.000000E+00, 8.000000E+01
> OBJ, SIZE, 1.000000E+00, 6.000000E+01, 0.000000E+00
> OBJ, GEOMETRY, OUTLET
> OBJ, TYPE, OUTLET
> OBJ, PRESSURE, 0.
> OBJ, COEFFICIENT, 1.0E+04
> OBJ, TURBULENCE, 0. ,0.
> OBJ, NAME, WFNN
> OBJ, POSITION, 0.000000E+00, 6.000000E+01, 0.000000E+00
> OBJ, SIZE, 1.000000E+00, 0.000000E+00, 8.000000E+01
> OBJ, GEOMETRY, WFNN
> OBJ, TYPE, PLATE
> OBJ, NAME, WFNS
> OBJ, POSITION, 0.000000E+00, 0.000000E+00, 0.000000E+00
> OBJ, SIZE, 1.000000E+00, 0.000000E+00, 8.000000E+01
> OBJ, GEOMETRY, WFNS
> OBJ, TYPE, PLATE
STOP