TALK=T;RUN(1,1)
PHOTON USE
p
use patgeo
msg Geometry
vec x 1 sh
MSG Velocity vectors
msg
msg Press return to plot pressure contours
pause
cont p1 x 1 fil;.001
msg
msg Press return to plot streamlines
pause
clear
stream sh
x 1
y
posit
3
0.51268E+02 0.20453E+04 CR
0.38451E+02 0.19150E+04 CR
0.44859E+02 0.17847E+04 CR
0.76901E+02 0.16740E+04 CR
0.57676E+02 0.15502E+04 CR
0.57676E+02 0.14200E+04 CR
0.51268E+02 0.13548E+04 CR
0.11792E+04 0.12571E+04 t
exit
use patgeo
msg
msg Type e to End
ENDUSE
DISPLAY
The incompressible, single-phase flow of water through a
fully-open axi-symmetric ball valve is solved. The pipe-work
considered is 2 m in length; the radius at inlet is 0.15 m; it
diminishes to a minimum of 0.09 m in front of the ball; and the
maximum radius is 0.16 m.
A plug profile of axial velocity is prescribed at the inlet,
and a fixed-pressure condition is employed at outlet. Wall
friction is activated along the boundary of the ball, and along
the pipe wall. A fixed turbulent kinematic viscosity is set to
100 times the laminar value (the Reynolds number is of order
1.0E5).
ENDDIS
************************************************************
Group 1. Run Title and Number
************************************************************
************************************************************
TEXT(FLOW THROUGH A BALL VALVE : B534 )
************************************************************
************************************************************
IRUNN = 1 ;LIBREF = 14
************************************************************
Group 2. Time dependence
STEADY = T
************************************************************
Group 3. X-Direction Grid Spacing
CARTES = T
NX = 1
XULAST =1.
************************************************************
Group 4. Y-Direction Grid Spacing
NY = 12
YVLAST =1.
************************************************************
Group 5. Z-Direction Grid Spacing
PARAB = F
NZ = 30
ZWLAST =1.
************************************************************
Group 6. Body-Fitted Coordinates
BFC = T ;NONORT = T
NCRT = -1
RSTGEO = F ;SAVGEO = F
UUP = F ;VUP = F ;WUP = F
NGEOM =CHAM
NAMXYZ =CHAM
ANGMIN =20.
DOMAIN( 1, 2, 1, 13, 1, 31)
* 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
************************************************************
Group 7. Variables: STOREd,SOLVEd,NAMEd
ONEPHS = T
NAME(1)=P1 ;NAME(5)=V1
NAME(7)=W1 ;NAME(145)=PRPS
NAME(146)=NPOR ;NAME(148)=WCRT
NAME(149)=VCRT ;NAME(150)=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,N)
SOLUTN(V1,Y,Y,N,N,N,Y)
SOLUTN(W1,Y,Y,N,N,N,Y)
SOLUTN(PRPS,Y,N,N,N,N,N)
SOLUTN(NPOR,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)
EPOR = 0 ;HPOR = 0 ;NPOR = 146 ;VPOR = 0
PRPS = 145
************************************************************
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,Y,Y,Y,Y)
TERMS(W1,Y,Y,Y,Y,Y,Y)
DIFCUT =0. ;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 =1000. ;TMP1 =0. ;EL1 =0.
TSURR =0. ;TEMP0 =0. ;PRESS0 =0.
DVO1DT =0. ;DRH1DP =0.
EMISS =0. ;SCATT =0.
RADIA =0. ;RADIB =0.
ENUL =1.0E-06 ;ENUT =1.0E-04
PRNDTL(V1)=1. ;PRNDTL(W1)=1.
PRT(V1)=1. ;PRT(W1)=1.
CP1 =1. ;CP2 =1.
************************************************************
Group 10.Inter-Phase Transfer Processes
************************************************************
Group 11.Initial field variables (PHIs)
FIINIT(P1)=1.0E-10 ;FIINIT(V1)=1.0E-10
FIINIT(W1)=2. ;FIINIT(PRPS)=-1.
FIINIT(NPOR)=1. ;FIINIT(WCRT)=1.0E-10
FIINIT(VCRT)=1.0E-10 ;FIINIT(UCRT)=1.0E-10
PATCH(CMP0 ,INIVAL, 1, 1, 1, 1, 11, 27, 1, 1)
INIT(CMP0 ,PRPS,0. ,199. )
PATCH(VALVEWLL,INIVAL, 1, 1, 1, 1, 11, 27, 1, 1)
INIT(VALVEWLL,V1 ,0. ,0. )
INIT(VALVEWLL,NPOR,0. ,0. )
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(INLET ,LOW , 1, 1, 1, 12, 1, 1, 1, 1)
COVAL(INLET ,P1 , FIXFLU ,2000. )
COVAL(INLET ,V1 ,0. ,0. )
COVAL(INLET ,W1 ,0. ,2. )
PATCH(OUTLET ,HIGH , 1, 1, 1, 12, 30, 30, 1, 1)
COVAL(OUTLET ,P1 ,1000. ,0. )
COVAL(OUTLET ,W1 ,0. ,2. )
PATCH(WFUN ,NWALL , 1, 1, 12, 12, 1, 30, 1, 1)
COVAL(WFUN ,W1 , GRND2 ,0. )
PATCH(VALVE-SW,SWALL , 1, 1, 2, 2, 11, 27, 1, 1)
COVAL(VALVE-SW,W1 , GRND2 ,0. )
XCYCLE = F
EGWF = T
WALLCO = GRND2
************************************************************
Group 14. Downstream Pressure For PARAB
************************************************************
Group 15. Terminate Sweeps
LSWEEP = 200 ;ISWC1 = 1
LITHYD = 1 ;LITFLX = 1 ;LITC = 1 ;ITHC1 = 1
SELREF = T
RESFAC =1.0E-05
************************************************************
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.2)
RELAX(V1,FALSDT,3.333333E-03)
RELAX(W1,FALSDT,3.333333E-03)
RELAX(PRPS,LINRLX,1.)
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(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(NPOR)=1.0E+10 ;VARMIN(NPOR)=-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
PARSOL = F
ISG62 = 1
SPEDAT(SET,GXMONI,PLOTALL,L,T)
SPEDAT(SET,MATERIAL,199,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(V1,Y,N,Y,Y,Y,Y)
OUTPUT(W1,Y,N,Y,Y,Y,Y)
OUTPUT(PRPS,Y,N,Y,N,N,N)
OUTPUT(NPOR,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)
************************************************************
Group 22. Monitor Print-Out
IXMON = 1 ;IYMON = 2 ;IZMON = 20
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 = 5 ;IZPRF = 1 ;IZPRL = 10000
XZPR = F ;YZPR = F
IPLTF = 1 ;IPLTL = -1 ;NPLT = 2
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(DOMAIN ,CONTUR, 1, 1, 1, 12, 1, 30, 1, 1)
PLOT(DOMAIN ,P1 ,0. ,15. )
PATCH(INNER ,PROFIL, 1, 1, 2, 2, 1, 30, 1, 1)
PLOT(INNER ,W1 ,0. ,0. )
PATCH(OUTER ,PROFIL, 1, 1, 12, 12, 1, 30, 1, 1)
PLOT(OUTER ,W1 ,0. ,0. )
PATCH(FRONT ,PROFIL, 1, 1, 2, 12, 10, 10, 1, 1)
PLOT(FRONT ,P1 ,0. ,0. )
PLOT(FRONT ,V1 ,0. ,0. )
PLOT(FRONT ,W1 ,0. ,0. )
PATCH(BACK ,PROFIL, 1, 1, 2, 12, 28, 28, 1, 1)
PLOT(BACK ,P1 ,0. ,0. )
PLOT(BACK ,V1 ,0. ,0. )
PLOT(BACK ,W1 ,0. ,0. )
************************************************************
Group 24. Dumps For Restarts
SAVE = T ;NOWIPE = F
NSAVE =CHAM
STOP