TALK=F;RUN( 1, 1)
************************************************************
Q1 created by VDI menu, Version 2007, Date 16/01/07
CPVNAM=VDI;SPPNAM=Core
************************************************************
IRUNN = 1 ;LIBREF = 128
************************************************************
Group 1. Run Title
TEXT(Test 25. Flow around small body on divided grid. )
************************************************************
Group 2. Transience
STEADY = T
************************************************************
Groups 3, 4, 5 Grid Information
* Overall number of cells, RSET(M,NX,NY,NZ,tolerance)
RSET(M,30,1,28,1.000000E-04)
************************************************************
Group 6. Body-Fitted coordinates
************************************************************
Group 7. Variables: STOREd,SOLVEd,NAMEd
ONEPHS = T
NAME(150) =PRPS
* Solved variables list
SOLVE(P1 ,U1 ,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(W1 ,Y,Y,Y,N,N,Y)
************************************************************
Group 8. Terms & Devices
INTEGER(XLEVEL,ZLEVEL)
XLEVEL = 2
ZLEVEL = 2
mesg(Level of coarsening along X is :XLEVEL:
mesg(Do you want to change it? (y/n)
readvdu(ans,char,n)
if(:ans:.eq.y)then
mesg(Enter level of coarsening
readvdu(XLEVEL,int,XLEVEL)
mesg(New level of coarsening is :XLEVEL:
endif
mesg(Level of coarsening along Z is :ZLEVEL:
mesg(Do you want to change it? (y/n)
readvdu(ans,char,n)
if(:ans:.eq.y)then
mesg(Enter level of coarsening
readvdu(ZLEVEL,int,ZLEVEL)
mesg(New level of coarsening is :ZLEVEL:
endif
USP = T
UAUTO = F
USPDBG = F
UTCPLT = T
USPVTK = T
USPIMB = F
MXLEV = XLEVEL
MYLEV = 0
MZLEV = ZLEVEL
DOMAT = -1
MINPRP = -1
MAXPRP = 100
CELLST = 10
FACEST = 10
USPREL = 0.75
************************************************************
Group 9. Properties
RHO1 = 1.000000E+00
ENUL = 1.000000E-05
CP1 = 1.000000E+00
ENUT = 0.000000E+00
************************************************************
Group 10.Inter-Phase Transfer Processes
************************************************************
Group 11.Initialise Var/Porosity Fields
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
No PATCHes used for this Group
EGWF = T
************************************************************
Group 14. Downstream Pressure For PARAB
************************************************************
Group 15. Terminate Sweeps
LSWEEP = 700
RESFAC = 1.000000E-06
************************************************************
Group 16. Terminate Iterations
LITER (P1 ) = 200 ;LITER (U1 ) = 50
LITER (W1 ) = 50
************************************************************
Group 17. Relaxation
RELAX(P1 ,LINRLX, 7.000000E-01)
************************************************************
Group 18. Limits
VARMAX(U1 ) = 1.000000E+06 ;VARMIN(U1 ) =-1.000000E+06
VARMAX(W1 ) = 1.000000E+06 ;VARMIN(W1 ) =-1.000000E+06
************************************************************
Group 19. EARTH Calls To GROUND Station
USEGRD = T ;USEGRX = T
ASAP = T
PARSOL = F
************************************************************
Group 20. Preliminary Printout
ECHO = T
DISTIL = T ;NULLPR = F
NDST = 0
DSTTOL = 1.000000E-02
EX (P1 ) = 3.357000E+02 ;EX (U1 ) = 1.787000E+01
EX (W1 ) = 2.895000E-01 ;EX (PRPS) = 7.421000E+00
************************************************************
Group 21. Print-out of Variables
************************************************************
Group 22. Monitor Print-Out
IXMON = 26 ;IYMON = 1 ;IZMON = 9
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
GVIEW(P,0.000000E+00,-9.999875E-01,4.999979E-03)
GVIEW(UP,0.000000E+00,4.999979E-03,9.999875E-01)
> DOM, SIZE, 1.000000E+00, 1.000000E-02, 5.000000E-01
> DOM, MONIT, 5.701250E-01, 5.000000E-03, 2.263850E-01
> DOM, SCALE, 1.000000E+00, 1.000000E+00, 1.000000E+00
> DOM, SNAPSIZE, 1.000000E-02
> GRID, RSET_X_1, 3, 5.000000E-01
> GRID, RSET_X_2, 5, 7.000000E-01
> GRID, RSET_X_3, 10, 1.000000E+00
> GRID, RSET_X_4, 7, 1.300000E+00
> GRID, RSET_X_5, 5, 1.500000E+00
> GRID, RSET_Y_1, 1, 1.000000E+00,G
> GRID, RSET_Z_1, 4, 5.000000E-01
> GRID, RSET_Z_2, 5, 7.000000E-01
> GRID, RSET_Z_3, 10, 1.000000E+00
> GRID, RSET_Z_4, 5, 1.300000E+00
> GRID, RSET_Z_5, 4, 1.500000E+00
> OBJ, NAME, INLET
> OBJ, POSITION, 0.000000E+00, 0.000000E+00, 0.000000E+00
> OBJ, SIZE, 0.000000E+00, 1.000000E-02, 5.000000E-01
> OBJ, GEOMETRY, cube3t
> OBJ, ROTATION24, 1
> OBJ, TYPE, INLET
> OBJ, PRESSURE, 0.000000E+00
> OBJ, VELOCITY, 1.000000E-02, 0.000000E+00, 0.000000E+00
> OBJ, TEMPERATURE, 0.000000E+00
> OBJ, NAME, OUT
> OBJ, POSITION, 1.000000E+00, 0.000000E+00, 0.000000E+00
> OBJ, SIZE, 0.000000E+00, 1.000000E-02, 5.000000E-01
> OBJ, GEOMETRY, cube12t
> OBJ, ROTATION24, 1
> OBJ, TYPE, OUTLET
> OBJ, PRESSURE, 0.000000E+00
> OBJ, TEMPERATURE, SAME
> OBJ, COEFFICIENT, 1.000000E+03
> OBJ, NAME, BODY
> OBJ, POSITION, 4.000000E-01, 0.000000E+00, 2.300000E-01
> OBJ, SIZE, 4.000000E-02, 1.000000E-02, 4.000000E-02
> OBJ, GEOMETRY, cylinder
> OBJ, ROTATION24, 5
> OBJ, TYPE, BLOCKAGE
> OBJ, MATERIAL, 198,Solid with smooth-wall friction
> OBJ, NAME, NGRID
> OBJ, POSITION, 3.500000E-01, 0.000000E+00, 1.800000E-01
> OBJ, SIZE, 2.000000E-01, 1.000000E-02, 1.400000E-01
> OBJ, GEOMETRY, wirexyz
> OBJ, ROTATION24, 1
> OBJ, TYPE, NULL
if(MZLEV.gt.0)then
> OBJ, NAME, B1
> OBJ, POSITION, 0.000000E+00, 0.000000E+00, 2.063000E-01
> OBJ, SIZE, 3.662000E-01, 1.000000E-02, 8.940000E-02
> OBJ, GEOMETRY, fine
> OBJ, ROTATION24, 1
> OBJ, GRID, NO
> OBJ, TYPE, FINE_GRID_VOL
> OBJ, LEVELS, 0.000000E+00, 0.000000E+00, 0.000000E+00
> OBJ, AXES, IZ
> OBJ, NAME, B2
> OBJ, POSITION, 0.550000E+00, 0.000000E+00, 2.063000E-01
> OBJ, SIZE, 4.500000E-01, 1.000000E-02, 8.940000E-02
> OBJ, GEOMETRY, fine
> OBJ, GRID, NO
> OBJ, ROTATION24, 1
> OBJ, TYPE, FINE_GRID_VOL
> OBJ, LEVELS, 0.000000E+00, 0.000000E+00, 0.000000E+00
> OBJ, AXES, IZ
endif
if(MXLEV.gt.0)then
> OBJ, NAME, B3
> OBJ, POSITION, 3.928000E-01, 0.000000E+00, 0.000000E+00
> OBJ, SIZE, 5.600000E-02, 1.000000E-02, 1.962000E-01
> OBJ, GEOMETRY, fine
> OBJ, ROTATION24, 1
> OBJ, GRID, NO
> OBJ, TYPE, FINE_GRID_VOL
> OBJ, LEVELS, 0.000000E+00, 0.000000E+00, 0.000000E+00
> OBJ, AXES, IX
> OBJ, NAME, B4
> OBJ, POSITION, 3.928000E-01, 0.000000E+00, 3.074000E-01
> OBJ, SIZE, 5.600000E-02, 1.000000E-02, 1.926000E-01
> OBJ, GEOMETRY, fine
> OBJ, ROTATION24, 1
> OBJ, GRID, NO
> OBJ, TYPE, FINE_GRID_VOL
> OBJ, LEVELS, 0.000000E+00, 0.000000E+00, 0.000000E+00
> OBJ, AXES, IX
endif
if(MZLEV.gt.1)then
> OBJ, NAME, B5
> OBJ, POSITION, 0.000000E+00, 0.000000E+00, 1.800000E-01
> OBJ, SIZE, 2.858000E-01, 1.000000E-02, 1.400000E-01
> OBJ, GEOMETRY, fine
> OBJ, ROTATION24, 1
> OBJ, GRID, NO
> OBJ, TYPE, FINE_GRID_VOL
> OBJ, LEVELS, 0.000000E+00, 0.000000E+00, 1.000000E+00
> OBJ, AXES, IZ
> OBJ, NAME, B6
> OBJ, POSITION, 6.638000E-01, 0.000000E+00, 1.800000E-01
> OBJ, SIZE, 3.362000E-01, 1.000000E-02, 1.400000E-01
> OBJ, GEOMETRY, fine
> OBJ, ROTATION24, 1
> OBJ, GRID, NO
> OBJ, TYPE, FINE_GRID_VOL
> OBJ, LEVELS, 0.000000E+00, 0.000000E+00, 1.000000E+00
> OBJ, AXES, IZ
endif
if(MXLEV.gt.1)then
> OBJ, NAME, B7
> OBJ, POSITION, 3.500000E-01, 0.000000E+00, 0.000000E+00
> OBJ, SIZE, 2.000000E-01, 1.000000E-02, 1.559000E-01
> OBJ, GEOMETRY, fine
> OBJ, ROTATION24, 1
> OBJ, GRID, NO
> OBJ, TYPE, FINE_GRID_VOL
> OBJ, LEVELS, 1.000000E+00, 0.000000E+00, 0.000000E+00
> OBJ, AXES, IX
> OBJ, NAME, B8
> OBJ, POSITION, 3.500000E-01, 0.000000E+00, 3.425000E-01
> OBJ, SIZE, 2.000000E-01, 1.000000E-02, 1.575000E-01
> OBJ, GEOMETRY, fine
> OBJ, ROTATION24, 1
> OBJ, GRID, NO
> OBJ, TYPE, FINE_GRID_VOL
> OBJ, LEVELS, 1.000000E+00, 0.000000E+00, 0.000000E+00
> OBJ, AXES, IX
endif
STOP