TALK=F;RUN( 1, 1)
************************************************************
Q1 created by VDI menu, Version 2007, Date 26/09/07
CPVNAM=VDI;SPPNAM=Core
************************************************************
Echo DISPLAY / USE settings
DISPLAY
Simulation of laminar steady flow around a sphere in a uniform
stream at a Reynolds number of 40 .
The grid is cartesian and rather coarse (18*18*31), but the flow
follows the curved surface smoothly because the PARSOL (i.e.
cut-cell) technique is used.
The fluid is atmospheric air, treated as incompressible.
The variables computed are:
* p1, the pressure,
* u1, the x-direction velocity,
* v1, the y-direction velocity, and
* w1, the z-direction velocity.
ENDDIS
************************************************************
IRUNN = 1 ;LIBREF = 805
************************************************************
Group 1. Run Title
TEXT(Two spheres In A Uniform Stream )
************************************************************
Group 2. Transience
STEADY = T
************************************************************
Groups 3, 4, 5 Grid Information
* Overall number of cells, RSET(M,NX,NY,NZ,tolerance)
save1begin
BOOLEAN(lAUTO)
mesg(Do you want to use automatic mode (y) or manual (n)?
readvdu(ans,char,n)
if(:ans:.eq.y)then
lAUTO=T
RSET(M,10,10,16,1.000000E-04)
else
lAUTO=F
RSET(M,72,72,124)
endif
save1end
************************************************************
Group 6. Body-Fitted coordinates
************************************************************
Group 7. Variables: STOREd,SOLVEd,NAMEd
ONEPHS = T
* Non-default variable names
NAME(150) =PRPS
* Solved variables list
SOLVE(P1 ,U1 ,V1 ,W1 )
* Stored variables list
STORE(PRPS)
* Additional solver options
SOLUTN(P1 ,Y,Y,Y,N,N,Y)
SOLUTN(U1 ,Y,Y,Y,N,N,Y)
SOLUTN(V1 ,Y,Y,Y,N,N,Y)
SOLUTN(W1 ,Y,Y,Y,N,N,Y)
************************************************************
Echo InForm settings for Group 7
************************************************************
Group 8. Terms & Devices
USP = T
UAUTO = lAUTO
USPDBG = F
UTCPLT = T
USPVTK = T
USPIMB = F
save8begin
INTEGER(LEVEL)
LEVEL = 2
if(lAUTO)then
LEVEL = 3
mesg(Level of refinement is :LEVEL:
mesg(Do you want to change it? (y/n)
readvdu(ans,char,n)
if(:ans:.eq.y)then
mesg(Enter level of refinement
readvdu(LEVEL,int,LEVEL)
mesg(New level of refinement is :LEVEL:
endif
else
mesg(Level of coarsening is :LEVEL:
endif
MXLEV=LEVEL
MYLEV=LEVEL
MZLEV=LEVEL
DOMAT = -1
CELLST = 10 ;FACEST = 10
MINPRP = -1 ;MAXPRP = 100
UMXLEV = LEVEL
UNOLAY = 2
UIOLEV = 0
UWALEV = 0
UMXCRS = 16
UGRITR= 10
if(lAUTO)then
mesg(Do you want to use PARSOL=T (y) or PARSOL=F (n)?
readvdu(ans,char,n)
if(:ans:.eq.y)then
PARSOL=T
else
PARSOL=F
endif
else
PARSOL=F
endif
save8end
************************************************************
Group 9. Properties
RHO1 = 1.000000E+00
ENUL = 5.000000E-02
CP1 = 1.005000E+03
ENUT = 0.000000E+00
************************************************************
Group 10.Inter-Phase Transfer Processes
************************************************************
Group 11.Initialise Var/Porosity Fields
FIINIT(W1 ) = 1.000000E+00 ;FIINIT(PRPS) = -1.000000E+00
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
EGWF = T
************************************************************
Group 14. Downstream Pressure For PARAB
************************************************************
Group 15. Terminate Sweeps
LSWEEP = 500
RESFAC = 1.000000E-07
************************************************************
Group 16. Terminate Iterations
LITER (P1 ) = 250
************************************************************
Group 17. Relaxation
save17begin
RELAX(P1 ,LINRLX, 5.0E-01)
RELAX(U1 ,FALSDT, 1.0E+02)
RELAX(V1 ,FALSDT, 1.0E+02)
RELAX(W1 ,FALSDT, 1.0E+02)
mesg(Do you want to use collocated arrangement (y) or staggered one (n)? (y/n)
readvdu(ans,char,n)
if(:ans:.eq.y)then
SPEDAT(SET,USP,METHOD,I,1)
RELAX(P1 ,LINRLX, 0.3)
RELAX(U1 ,FALSDT, 1.E-02)
RELAX(V1 ,FALSDT, 1.E-02)
RELAX(W1 ,FALSDT, 1.E-02)
mesg(Do you want to use SIMPLEST (y) or SIMPLE (n)? (y/n)
readvdu(ans,char,n)
if(:ans:.eq.y)then
SPEDAT(SET,USP,SIMPLEST,L,T)
endif
endif
save17end
************************************************************
Group 18. Limits
VARMAX(U1 ) = 1.000000E+06 ;VARMIN(U1 ) =-1.000000E+06
VARMAX(V1 ) = 1.000000E+06 ;VARMIN(V1 ) =-1.000000E+06
VARMAX(W1 ) = 1.000000E+06 ;VARMIN(W1 ) =-1.000000E+06
************************************************************
Group 19. EARTH Calls To GROUND Station
USEGRD = T ;USEGRX = T
************************************************************
Group 20. Preliminary Printout
ECHO = T
************************************************************
Group 21. Print-out of Variables
************************************************************
Group 22. Monitor Print-Out
IXMON = 2 ;IYMON = 2 ;IZMON = 2
NPRMON = 100000
NPRMNT = 1
TSTSWP = -1
************************************************************
Group 23.Field Print-Out & Plot Control
NPRINT = 100000
ISWPRF = 1 ;ISWPRL = 100000
No PATCHes used for this Group
************************************************************
Group 24. Dumps For Restarts
************************************************************
Echo InForm settings for Group 25
inform25begin
declarations
real(xpos3,ypos3,zpos3,xsiz3,ysiz3,zsiz3,dist,scale)
real(xpos4,ypos4,zpos4,xsiz4,ysiz4,zsiz4)
real(xpos5,ypos5,zpos5,xsiz5,ysiz5,zsiz5)
real(xpos6,ypos6,zpos6,xsiz6,ysiz6,zsiz6)
real(dxx,dyy,dzz)
dxx = XULAST/NX
dyy = YVLAST/NY
dzz = ZWLAST/NZ
settings
scale=1.0
xpos3=scale
ypos3=scale
zpos3=2.22*scale
xsiz3=2.*scale
ysiz3=2.*scale
zsiz3=2.*scale
xpos4=scale+xsiz3/4
ypos4=ypos3+xsiz3/4
zpos4=zpos3*3
xsiz4=xsiz3/2
ysiz4=ysiz3/2
zsiz4=zsiz3/2
dist=0.2*xsiz3
xpos5=scale-dist
ypos5=ypos3-dist
zpos5=zpos3-dist
xsiz5=xsiz3+2.0*dist
ysiz5=ysiz3+2.0*dist
zsiz5=zsiz3+2.0*dist
xpos6=xpos4-dist
ypos6=ypos4-dist
zpos6=zpos4-dist
xsiz6=xsiz4+2.0*dist
ysiz6=ysiz4+2.0*dist
zsiz6=zsiz4+2.0*dist
GVIEW(P,-9.928086E-01,0.000000E+00,-1.197123E-01)
GVIEW(UP,0.000000E+00,1.000000E+00,0.000000E+00)
> DOM, SIZE, 4.0*scale, 4.0*scale, 10.0*scale
> DOM, MONIT, 5.555560E-01, 5.555560E-01, 4.838710E-01
> DOM, SCALE, 1.000000E+00, 1.000000E+00, 1.000000E+00
> DOM, SNAPSIZE, 1.000000E-02
> DOM, RELAX, 5.000000E-01
> OBJ1, NAME, B1
> OBJ1, POSITION, 0.000000E+00, 0.000000E+00, 0.000000E+00
> OBJ1, SIZE, 4.000000E+00, 4.000000E+00, 0.000000E+00
> OBJ1, CLIPART, cube3
> OBJ1, ROTATION24, 1
> OBJ1, TYPE, INLET
> OBJ1, PRESSURE, 0.000000E+00
> OBJ1, VELOCITY, 0.000000E+00, 0.000000E+00, 1.000000E+00
> OBJ1, TEMPERATURE, 0.000000E+00
> OBJ2, NAME, B2
> OBJ2, POSITION, 0.000000E+00, 0.000000E+00, 1.000000E+01
> OBJ2, SIZE, 4.000000E+00, 4.000000E+00, 0.000000E+00
> OBJ2, CLIPART, cube12
> OBJ2, ROTATION24, 1
> OBJ2, TYPE, OUTLET
> OBJ2, PRESSURE, 0.000000E+00
> OBJ2, TEMPERATURE, 0.000000E+00
> OBJ2, COEFFICIENT, 1.000000E+03
> OBJ3, NAME, B3
> OBJ3, POSITION, scale,ypos3,zpos3
> OBJ3, SIZE, xsiz3,ysiz3,zsiz3
> OBJ3, ARBORIEN, 0.000000E+00, 0.000000E+00, 0.000000E+01
> OBJ3, CLIPART, sphere1
> OBJ3, ROTATION24, 1
> OBJ3, TYPE, BLOCKAGE
> OBJ3, MATERIAL, 198
> OBJ3, NAME, B4
> OBJ3, POSITION, xpos4,ypos4,zpos4
> OBJ3, SIZE, xsiz4,ysiz4,zsiz4
> OBJ3, ARBORIEN, 0.000000E+00, 0.000000E+00, 0.000000E+01
> OBJ3, CLIPART, sphere1
> OBJ3, ROTATION24, 1
> OBJ3, TYPE, BLOCKAGE
> OBJ3, MATERIAL, 198
if(lAUTO)then
else
> OBJ, NAME, B5
> OBJ, POSITION, xpos5,ypos5,zpos5
> OBJ, SIZE, xsiz5,ysiz5,zsiz5
> OBJ, GEOMETRY, fine
> OBJ, ROTATION24, 1
> OBJ, TYPE, FINE_GRID_VOL
> OBJ, LEVELS, 1.000000E+00, 1.000000E+00, 1.000000E+00
> OBJ, AXES, OXYZ
> OBJ, NAME, B6
> OBJ, POSITION, xpos6,ypos6,zpos6
> OBJ, SIZE, xsiz6,ysiz6,zsiz6
> OBJ, GEOMETRY, fine
> OBJ, ROTATION24, 1
> OBJ, TYPE, FINE_GRID_VOL
> OBJ, LEVELS, 0.000000E+00, 0.000000E+00, 0.000000E+00
> OBJ, AXES, OXYZ
> OBJ, NAME, B7
> OBJ, POSITION, xpos6-4*dxx,ypos6-4*dyy,zpos6-4*dzz
> OBJ, SIZE, xsiz6+8*dxx,ysiz6+8*dyy,zsiz6+8*dzz
> OBJ, GEOMETRY, fine
> OBJ, ROTATION24, 1
> OBJ, TYPE, FINE_GRID_VOL
> OBJ, LEVELS, 1.000000E+00, 1.000000E+00, 1.000000E+00
> OBJ, AXES, OXYZ
endif
inform25end
STOP