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 k-e
turbulence model. 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.
ENDDIS
PHOTON USE
p
phi
xyz
0.00000E+00 0.00000E+00 CR
UP Z
VIEW X
CON P1 X 1 1 Y 1 M Z 10 32 FI;0.01
GR OU X 1
CON P1 X m m Y 1 M Z 10 32 FI;0.01
GR OU X m
gr z 23
pause
mag gr 3
0.78183E+03 0.26641E+04 CR
REDR
pause
cl;vec x 1 1 y 1 m z 10 32 sh
vec x m m y 1 m z 10 32 sh
redr
ENDUSE
************************************************************
Group 1. Run Title and Number
************************************************************
************************************************************
TEXT(3D TURBULENT FLOW IN AN ELBOW METER )
************************************************************
************************************************************
IRUNN = 1 ;LIBREF = 14
************************************************************
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(12)=KE ;NAME(13)=EP
NAME(142)=PRPS ;NAME(143)=WC1
NAME(144)=VC1 ;NAME(145)=UC1
NAME(146)=EPKE ;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(KE,Y,Y,Y,N,N,N)
SOLUTN(EP,Y,Y,Y,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(EPKE,Y,N,N,N,N,N)
SOLUTN(WCRT,Y,N,N,N,N,N)
SOLUTN(VCRT,Y,N,N,N,N,N)
SOLUTN(UCRT,Y,N,N,N,N,N)
PRPS = 142
************************************************************
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(KE,N,Y,Y,Y,Y,N)
TERMS(EP,N,Y,Y,Y,Y,N)
TERMS(WC1,N,Y,Y,Y,Y,Y)
TERMS(VC1,N,Y,Y,Y,Y,Y)
TERMS(UC1,N,Y,Y,Y,Y,Y)
DIFCUT =0.5 ;ZDIFAC =1.
GALA = F ;ADDDIF = F
NEWENT = T
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 = GRND4
TSURR =0. ;TEMP0 =0. ;PRESS0 =0.
DVO1DT =0. ;DRH1DP =0.
EMISS =0. ;SCATT =0.
RADIA =0. ;RADIB =0.
EL1A =0. ;EL1B =0. ;EL1C =0.
ENUL =3.47E-07 ;ENUT = GRND3
ENUTA =0. ;ENUTB =0. ;ENUTC =0.
IENUTA = 0
PRNDTL(U1)=1. ;PRNDTL(V1)=1.
PRNDTL(W1)=1. ;PRNDTL(KE)=1.
PRNDTL(EP)=1. ;PRNDTL(WC1)=1.
PRNDTL(VC1)=1. ;PRNDTL(UC1)=1.
PRT(U1)=1. ;PRT(V1)=1.
PRT(W1)=1. ;PRT(KE)=1.
PRT(EP)=1.314 ;PRT(WC1)=1.
PRT(VC1)=1. ;PRT(UC1)=1.
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(KE)=0.32401 ;FIINIT(EP)=0.757462
FIINIT(PRPS)=-1. ;FIINIT(WC1)=0.
FIINIT(VC1)=0. ;FIINIT(UC1)=0.
FIINIT(EPKE)=1.0E-10 ;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(KESOURCE,PHASEM, 0, 0, 0, 0, 0, 0, 1, 1)
COVAL(KESOURCE,KE , GRND4 , GRND4 )
COVAL(KESOURCE,EP , GRND4 , 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 ,KE ,0. ,0.32401 )
COVAL(IN ,EP ,0. ,0.757462 )
COVAL(IN ,WC1 ,0. ,13.806632 )
COVAL(IN ,VC1 ,0. ,0. )
COVAL(IN ,UC1 ,0. ,0. )
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 ,KE , GRND2 , GRND2 )
COVAL(WN1 ,EP , GRND2 , GRND2 )
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 ,KE , GRND2 , GRND2 )
COVAL(WN3 ,EP , GRND2 , GRND2 )
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,KE , GRND2 , GRND2 )
COVAL(BLOK1-NW,EP , GRND2 , GRND2 )
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,KE , GRND2 , GRND2 )
COVAL(BLOK1-HW,EP , GRND2 , GRND2 )
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,KE , GRND2 , GRND2 )
COVAL(BLOK1-LW,EP , GRND2 , GRND2 )
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 = 300 ;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(KE)=20 ;LITER(EP)=20
LITER(WC1)=10 ;LITER(VC1)=10
LITER(UC1)=10
ENDIT(P1)=1.0E-03 ;ENDIT(U1)=1.0E-03
ENDIT(V1)=1.0E-03 ;ENDIT(W1)=1.0E-03
ENDIT(KE)=1.0E-03 ;ENDIT(EP)=1.0E-03
ENDIT(WC1)=1.0E-03 ;ENDIT(VC1)=1.0E-03
ENDIT(UC1)=1.0E-03
************************************************************
Group 17. Relaxation
RELAX(P1,LINRLX,1.)
RELAX(U1,FALSDT,1.)
RELAX(V1,FALSDT,1.)
RELAX(W1,FALSDT,1.)
RELAX(KE,LINRLX,0.5)
RELAX(EP,LINRLX,0.5)
RELAX(PRPS,LINRLX,1.)
RELAX(WC1,FALSDT,1.)
RELAX(VC1,FALSDT,1.)
RELAX(UC1,FALSDT,1.)
RELAX(EPKE,LINRLX,1.)
RELAX(WCRT,LINRLX,1.)
RELAX(VCRT,LINRLX,1.)
RELAX(UCRT,LINRLX,1.)
KELIN = 3
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(KE)=1.0E+10 ;VARMIN(KE)=1.0E-10
VARMAX(EP)=1.0E+10 ;VARMIN(EP)=1.0E-10
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(EPKE)=1.0E+10 ;VARMIN(EPKE)=-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
ISG62 = 1
SPEDAT(SET,GCVSCH,UC1,C,MINMOD)
SPEDAT(SET,GCVSCH,VC1,C,MINMOD)
SPEDAT(SET,GCVSCH,WC1,C,MINMOD)
SPEDAT(SET,GCVSCH,KE,C,MINMOD)
SPEDAT(SET,GCVSCH,EP,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)=409.200012 ;EX(U1)=0.3443
EX(V1)=0.1972 ;EX(W1)=13.27
EX(KE)=0.5664 ;EX(EP)=8.216
EX(PRPS)=0.9573 ;EX(WC1)=7.558
EX(VC1)=7.389 ;EX(UC1)=0.1459
EX(EPKE)=12.15 ;EX(WCRT)=7.558
EX(VCRT)=7.389 ;EX(UCRT)=0.1459
************************************************************
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(KE,Y,N,Y,Y,Y,Y)
OUTPUT(EP,Y,N,Y,Y,Y,Y)
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(EPKE,Y,N,Y,N,N,N)
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 = 23 ;IZPRL = 23
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