TALK=T;RUN(1,1)
DISPLAY
The case considered is the 3D steady, incompressible,
isothermal turbulent flow of natural gas at 44bar in a circular
elbow meter. The pipe inlet diameter is 0.889m, the pipe bend
is 0.874m diameter and the mean radius of curvature of the
bend is 1.3145m. The computational domain is extended 4 inlet
diameters upstream and downstream of the elbow. The volumetric
flow rate is 8.57 m3/s, the gas compressibility factor is 0.824,
and the inlet Reynolds number is 3.52E7. The elbow meter is a
flow-measurement device which exploits the fact that the flow
rate through the bend is proportional to radial pressure
difference between the inside and outside of the bend. The
calculations are carried out with the GCV solver and the high
Reynolds form of the Spalart-Allmaras turbulence model. A
similar case using the standard k-e turbulence model is
available in Library Case b583.
The computed radial pressure difference at the
symmetry plane and 22.5o into the elbow is 54mbar, which is in
excellent agreement with that given by the gas-industry
correlation of flow rate versus pressure difference.
Note that this case must be run in the command line and
not through the VR Viewer.
ENDDIS
************************************************************
Group 1. Run Title and Number
************************************************************
************************************************************
TEXT(S-A 3D TURBULENT FLOW IN AN ELBOW METER )
************************************************************
************************************************************
IRUNN = 1 ;LIBREF = 0
************************************************************
Group 2. Time dependence
STEADY = T
************************************************************
Group 3. X-Direction Grid Spacing
CARTES = T
NX = 15
XULAST =3.14159
************************************************************
Group 4. Y-Direction Grid Spacing
NY = 18
YVLAST =0.4445
************************************************************
Group 5. Z-Direction Grid Spacing
PARAB = F
NZ = 39
ZWLAST =9.17681
************************************************************
Group 6. Body-Fitted Coordinates
BFC = T ;NONORT = F
NCRT = -1
RSTGEO = F ;SAVGEO = F
UUP = F ;VUP = F ;WUP = F
NGEOM =CHAM
NAMXYZ =CHAM
ANGMIN =20.
DOMAIN( 1, 16, 1, 19, 1, 40)
* Set fixed sub-domain
FIXDOM( 1, 0, 0, 0, 0, 0, 0)
FIXDOM( 2, 0, 0, 0, 0, 0, 0)
FIXDOM( 3, 0, 0, 0, 0, 0, 0)
FIXDOM( 4, 0, 0, 0, 0, 0, 0)
FIXDOM( 5, 0, 0, 0, 0, 0, 0)
FIXDOM( 6, 0, 0, 0, 0, 0, 0)
FIXDOM( 7, 0, 0, 0, 0, 0, 0)
FIXDOM( 8, 0, 0, 0, 0, 0, 0)
FIXDOM( 9, 0, 0, 0, 0, 0, 0)
FIXDOM( 10, 0, 0, 0, 0, 0, 0)
LIJ = F ;LJK = T ;LIK = F
GCV = T
************************************************************
Group 7. Variables: STOREd,SOLVEd,NAMEd
ONEPHS = T
NAME(1)=P1 ;NAME(3)=U1
NAME(5)=V1 ;NAME(7)=W1
NAME(131)=PRPS ;NAME(132)=WC1
NAME(133)=VC1 ;NAME(134)=UC1
NAME(135)=YPLS ;NAME(136)=ENUT
NAME(137)=DWDY ;NAME(138)=DWDX
NAME(139)=DVDZ ;NAME(140)=DVDX
NAME(141)=DUDZ ;NAME(142)=DUDY
NAME(143)=LTLS ;NAME(144)=WDIS
NAME(145)=VOR1 ;NAME(146)=ENTI
NAME(147)=WCRT ;NAME(148)=VCRT
NAME(149)=UCRT
* 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,Y,N,N,Y)
SOLUTN(U1,Y,Y,N,N,N,N)
SOLUTN(V1,Y,Y,N,N,N,N)
SOLUTN(W1,Y,Y,N,N,N,N)
SOLUTN(PRPS,Y,N,N,N,N,Y)
SOLUTN(WC1,Y,Y,Y,N,N,N)
SOLUTN(VC1,Y,Y,Y,N,N,N)
SOLUTN(UC1,Y,Y,Y,N,N,N)
SOLUTN(YPLS,Y,N,N,N,N,Y)
SOLUTN(ENUT,Y,N,N,N,N,Y)
SOLUTN(DWDY,Y,N,N,N,N,N)
SOLUTN(DWDX,Y,N,N,N,N,N)
SOLUTN(DVDZ,Y,N,N,N,N,N)
SOLUTN(DVDX,Y,N,N,N,N,N)
SOLUTN(DUDZ,Y,N,N,N,N,N)
SOLUTN(DUDY,Y,N,N,N,N,N)
SOLUTN(LTLS,Y,Y,Y,N,N,Y)
SOLUTN(WDIS,Y,N,N,N,N,N)
SOLUTN(VOR1,Y,N,N,N,N,N)
SOLUTN(ENTI,Y,Y,Y,N,N,Y)
SOLUTN(WCRT,Y,N,N,N,N,N)
SOLUTN(VCRT,Y,N,N,N,N,N)
SOLUTN(UCRT,Y,N,N,N,N,N)
VIST = 136
PRPS = 131
************************************************************
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(WC1,N,Y,Y,Y,Y,Y)
TERMS(VC1,N,Y,Y,Y,Y,Y)
TERMS(UC1,N,Y,Y,Y,Y,Y)
TERMS(LTLS,N,N,Y,N,Y,Y)
TERMS(ENTI,N,Y,Y,Y,Y,Y)
DIFCUT =0.5 ;ZDIFAC =1.
GALA = F ;ADDDIF = F
NEWENT = F
UCONV = T
UDIFF = T
USOLVE = T
ISOLX = -1 ;ISOLY = -1 ;ISOLZ = -1
************************************************************
Group 9. Properties used if PRPS is not
stored, and where PRPS = -1.0 if it is!
RHO1 =35.249012 ;TMP1 =0. ;EL1 =0.
TSURR =0. ;TEMP0 =0. ;PRESS0 =0.
DVO1DT =0. ;DRH1DP =0.
EMISS =0. ;SCATT =0.
RADIA =0. ;RADIB =0.
ENUL =3.47E-07 ;ENUT = GRND2
ENUTA =0. ;ENUTB =0. ;ENUTC =0.
IENUTA = 21
PRNDTL(U1)=1. ;PRNDTL(V1)=1.
PRNDTL(W1)=1. ;PRNDTL(WC1)=1.
PRNDTL(VC1)=1. ;PRNDTL(UC1)=1.
PRNDTL(LTLS)=1. ;PRNDTL(ENTI)=0.666667
PRT(U1)=1. ;PRT(V1)=1.
PRT(W1)=1. ;PRT(WC1)=1.
PRT(VC1)=1. ;PRT(UC1)=1.
PRT(LTLS)=1. ;PRT(ENTI)=0.666667
CP1 =1. ;CP2 =1.
************************************************************
Group 10.Inter-Phase Transfer Processes
************************************************************
Group 11.Initial field variables (PHIs)
FIINIT(P1)=1.0E-10 ;FIINIT(U1)=0.
FIINIT(V1)=0. ;FIINIT(W1)=0.
FIINIT(PRPS)=-1. ;FIINIT(WC1)=0.
FIINIT(VC1)=0. ;FIINIT(UC1)=0.
FIINIT(YPLS)=1.0E-10 ;FIINIT(ENUT)=1.0E-10
FIINIT(DWDY)=1.0E-10 ;FIINIT(DWDX)=1.0E-10
FIINIT(DVDZ)=1.0E-10 ;FIINIT(DVDX)=1.0E-10
FIINIT(DUDZ)=1.0E-10 ;FIINIT(DUDY)=1.0E-10
FIINIT(LTLS)=1.0E-10 ;FIINIT(WDIS)=0.04445
FIINIT(VOR1)=1.0E-10 ;FIINIT(ENTI)=0.012474
FIINIT(WCRT)=1.0E-10 ;FIINIT(VCRT)=1.0E-10
FIINIT(UCRT)=1.0E-10
PATCH(BLOK1 ,INIVAL, 1, 15, 17, 18, 13, 27, 1, 1)
INIT(BLOK1 ,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(SASOPRO ,PHASEM, 0, 0, 0, 0, 0, 0, 1, 1)
COVAL(SASOPRO ,ENTI, FIXFLU , GRND4 )
PATCH(SASODIS ,PHASEM, 0, 0, 0, 0, 0, 0, 1, 1)
COVAL(SASODIS ,ENTI, GRND4 ,0. )
PATCH(SASODIF ,PHASEM, 0, 0, 0, 0, 0, 0, 1, 1)
COVAL(SASODIF ,ENTI, FIXFLU , GRND4 )
PATCH(IN ,LOW , 1, 15, 1, 18, 1, 1, 1, 1)
COVAL(IN ,P1 , FIXFLU ,486.670135 )
COVAL(IN ,U1 ,0. ,0. )
COVAL(IN ,V1 ,0. ,0. )
COVAL(IN ,W1 ,0. ,0. )
COVAL(IN ,WC1 ,0. ,13.806632 )
COVAL(IN ,VC1 ,0. ,0. )
COVAL(IN ,UC1 ,0. ,0. )
COVAL(IN ,ENTI,0. ,0.012474 )
PATCH(OUT ,HIGH , 1, 15, 1, 18, 39, 39, 1, 1)
COVAL(OUT ,P1 ,1000. ,0. )
PATCH(WN1 ,NWALL , 1, 15, 18, 18, 1, 12, 1, 1)
COVAL(WN1 ,WC1 , GRND2 ,0. )
COVAL(WN1 ,VC1 , GRND2 ,0. )
COVAL(WN1 ,UC1 , GRND2 ,0. )
PATCH(WN3 ,NWALL , 1, 15, 18, 18, 28, 39, 1, 1)
COVAL(WN3 ,WC1 , GRND2 ,0. )
COVAL(WN3 ,VC1 , GRND2 ,0. )
COVAL(WN3 ,UC1 , GRND2 ,0. )
PATCH(BLOK1-NW,NWALL , 1, 15, 16, 16, 13, 27, 1, 1)
COVAL(BLOK1-NW,WC1 , GRND2 , SAME )
COVAL(BLOK1-NW,VC1 , GRND2 , SAME )
COVAL(BLOK1-NW,UC1 , GRND2 , SAME )
PATCH(BLOK1-HW,HWALL , 1, 15, 17, 18, 12, 12, 1, 1)
COVAL(BLOK1-HW,WC1 , GRND2 , SAME )
COVAL(BLOK1-HW,VC1 , GRND2 , SAME )
COVAL(BLOK1-HW,UC1 , GRND2 , SAME )
PATCH(BLOK1-LW,LWALL , 1, 15, 17, 18, 28, 28, 1, 1)
COVAL(BLOK1-LW,WC1 , GRND2 , SAME )
COVAL(BLOK1-LW,VC1 , GRND2 , SAME )
COVAL(BLOK1-LW,UC1 , GRND2 , SAME )
XCYCLE = F
EGWF = F
************************************************************
Group 14. Downstream Pressure For PARAB
************************************************************
Group 15. Terminate Sweeps
LSWEEP = 500 ;ISWC1 = 1
LITHYD = 1 ;LITFLX = 1 ;LITC = 1 ;ITHC1 = 1
SELREF = T
RESFAC =1.0E-05
************************************************************
Group 16. Terminate Iterations
LITER(P1)=20 ;LITER(U1)=10
LITER(V1)=10 ;LITER(W1)=10
LITER(WC1)=10 ;LITER(VC1)=10
LITER(UC1)=10 ;LITER(LTLS)=20
LITER(ENTI)=20
ENDIT(P1)=1.0E-03 ;ENDIT(U1)=1.0E-03
ENDIT(V1)=1.0E-03 ;ENDIT(W1)=1.0E-03
ENDIT(WC1)=1.0E-03 ;ENDIT(VC1)=1.0E-03
ENDIT(UC1)=1.0E-03 ;ENDIT(LTLS)=1.0E-03
ENDIT(ENTI)=1.0E-03
************************************************************
Group 17. Relaxation
RELAX(P1,LINRLX,1.)
RELAX(U1,FALSDT,1.)
RELAX(V1,FALSDT,1.)
RELAX(W1,FALSDT,1.)
RELAX(PRPS,LINRLX,1.)
RELAX(WC1,FALSDT,1.)
RELAX(VC1,FALSDT,1.)
RELAX(UC1,FALSDT,1.)
RELAX(YPLS,LINRLX,1.)
RELAX(ENUT,LINRLX,1.)
RELAX(DWDY,LINRLX,1.)
RELAX(DWDX,LINRLX,1.)
RELAX(DVDZ,LINRLX,1.)
RELAX(DVDX,LINRLX,1.)
RELAX(DUDZ,LINRLX,1.)
RELAX(DUDY,LINRLX,1.)
RELAX(LTLS,FALSDT,1.0E+09)
RELAX(WDIS,LINRLX,1.)
RELAX(VOR1,LINRLX,1.)
RELAX(ENTI,LINRLX,0.5)
RELAX(WCRT,LINRLX,1.)
RELAX(VCRT,LINRLX,1.)
RELAX(UCRT,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(W1)=1.0E+06 ;VARMIN(W1)=-1.0E+06
VARMAX(PRPS)=1.0E+10 ;VARMIN(PRPS)=-1.0E+10
VARMAX(WC1)=1.0E+06 ;VARMIN(WC1)=-1.0E+06
VARMAX(VC1)=1.0E+06 ;VARMIN(VC1)=-1.0E+06
VARMAX(UC1)=1.0E+06 ;VARMIN(UC1)=-1.0E+06
VARMAX(YPLS)=1.0E+10 ;VARMIN(YPLS)=-1.0E+10
VARMAX(ENUT)=1.0E+10 ;VARMIN(ENUT)=-1.0E+10
VARMAX(DWDY)=1.0E+10 ;VARMIN(DWDY)=-1.0E+10
VARMAX(DWDX)=1.0E+10 ;VARMIN(DWDX)=-1.0E+10
VARMAX(DVDZ)=1.0E+10 ;VARMIN(DVDZ)=-1.0E+10
VARMAX(DVDX)=1.0E+10 ;VARMIN(DVDX)=-1.0E+10
VARMAX(DUDZ)=1.0E+10 ;VARMIN(DUDZ)=-1.0E+10
VARMAX(DUDY)=1.0E+10 ;VARMIN(DUDY)=-1.0E+10
VARMAX(LTLS)=1.0E+10 ;VARMIN(LTLS)=-1.0E+10
VARMAX(WDIS)=1.0E+10 ;VARMIN(WDIS)=-1.0E+10
VARMAX(VOR1)=1.0E+10 ;VARMIN(VOR1)=-1.0E+10
VARMAX(ENTI)=1.0E+10 ;VARMIN(ENTI)=1.0E-10
VARMAX(WCRT)=1.0E+10 ;VARMIN(WCRT)=-1.0E+10
VARMAX(VCRT)=1.0E+10 ;VARMIN(VCRT)=-1.0E+10
VARMAX(UCRT)=1.0E+10 ;VARMIN(UCRT)=-1.0E+10
************************************************************
Group 19. Data transmitted to GROUND
GENK = T
PARSOL = F
IENUTA = 21
ISG62 = 1
SPEDAT(SET,GCVSCH,UC1,C,MINMOD)
SPEDAT(SET,GCVSCH,VC1,C,MINMOD)
SPEDAT(SET,GCVSCH,WC1,C,MINMOD)
SPEDAT(SET,GCVSCH,ENTI,C,MINMOD)
SPEDAT(SET,GXMONI,PLOTALL,L,T)
SPEDAT(SET,MATERIAL,198,L,T)
************************************************************
Group 20. Preliminary Printout
DISTIL = T ;NULLPR = F
NDST = 0
DSTTOL =1.0E-02
EX(P1)=365.600006 ;EX(U1)=0.3369
EX(V1)=0.1703 ;EX(W1)=13.19
EX(PRPS)=0.9573 ;EX(WC1)=7.499
EX(VC1)=7.347 ;EX(UC1)=0.1605
EX(YPLS)=475.100006 ;EX(ENUT)=4.795E-03
EX(DWDY)=9.573E-11 ;EX(DWDX)=9.573E-11
EX(DVDZ)=9.573E-11 ;EX(DVDX)=9.573E-11
EX(DUDZ)=9.573E-11 ;EX(DUDY)=9.573E-11
EX(LTLS)=0.02516 ;EX(WDIS)=0.1309
EX(VOR1)=0. ;EX(ENTI)=4.795E-03
EX(WCRT)=7.499 ;EX(VCRT)=7.347
EX(UCRT)=0.1605
************************************************************
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,N,N,N)
OUTPUT(V1,Y,N,Y,N,N,N)
OUTPUT(W1,Y,N,Y,N,N,N)
OUTPUT(PRPS,Y,N,Y,N,N,N)
OUTPUT(WC1,Y,N,N,Y,Y,Y)
OUTPUT(VC1,Y,N,N,Y,Y,Y)
OUTPUT(UC1,Y,N,N,Y,Y,Y)
OUTPUT(YPLS,Y,N,Y,N,N,N)
OUTPUT(ENUT,Y,N,Y,N,N,N)
OUTPUT(DWDY,Y,N,Y,N,N,N)
OUTPUT(DWDX,Y,N,Y,N,N,N)
OUTPUT(DVDZ,Y,N,Y,N,N,N)
OUTPUT(DVDX,Y,N,Y,N,N,N)
OUTPUT(DUDZ,Y,N,Y,N,N,N)
OUTPUT(DUDY,Y,N,Y,N,N,N)
OUTPUT(LTLS,Y,N,Y,Y,Y,Y)
OUTPUT(WDIS,Y,N,Y,N,N,N)
OUTPUT(VOR1,Y,N,Y,N,N,N)
OUTPUT(ENTI,Y,N,Y,Y,Y,Y)
OUTPUT(WCRT,Y,N,Y,N,N,N)
OUTPUT(VCRT,Y,N,Y,N,N,N)
OUTPUT(UCRT,Y,N,Y,N,N,N)
WALPRN = T
************************************************************
Group 22. Monitor Print-Out
IXMON = 7 ;IYMON = 9 ;IZMON = 19
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
NZPRIN = -1 ;IZPRF = 1 ;IZPRL = 10000
XZPR = F ;YZPR = F
IPLTF = 1 ;IPLTL = -1 ;NPLT = 10
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