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(F-1 Car; Balsa Wood Blank; Visc. Flow )
************************************************************
Group 2. Transience
STEADY = T
************************************************************
Groups 3, 4, 5 Grid Information
* Overall number of cells, RSET(M,NX,NY,NZ,tolerance)
INTEGER(LEVEL)
LEVEL = 0
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
if(LEVEL.eq.0)then
RSET(M,40,20,15,1.000000E-04)
else
RSET(M,10,5,5,1.000000E-04)
endif
************************************************************
Group 6. Body-Fitted coordinates
************************************************************
Group 7. Variables: STOREd,SOLVEd,NAMEd
ONEPHS = T
NAME(150) =PRPS
* Solved variables list
SOLVE(P1 ,U1 ,V1 ,W1 )
* Stored variables list
STORE(PRPS)
************************************************************
Group 8. Terms & Devices
USP = T
UAUTO = T
USPDBG = F
UTCPLT = T
USPVTK = T
USPIMB = F
MXLEV = 0
MYLEV = 0
MZLEV = 0
DOMAT = -1
MINPRP = -1
MAXPRP = 100
CELLST = 100
FACEST = 100
UMXLEV = LEVEL
UNOLAY = 2
UIOLEV = 0
UWALEV = 0
UMXCRS = 16
UGRITR= 10
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
************************************************************
Group 9. Properties
RHO1 = 1.000000E+00
ENUL = 1.000000E-05
CP1 = 1.000000E+00
ENUT = 0.010000E+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 = 800
RESFAC = 1.000000E-05
************************************************************
Group 16. Terminate Iterations
************************************************************
Group 17. Relaxation
RELAX(P1 ,LINRLX, 0.700000E+00)
RELAX(U1 ,FALSDT, 1.000000E+02)
RELAX(V1 ,FALSDT, 1.000000E+02)
RELAX(W1 ,FALSDT, 1.000000E+02)
************************************************************
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
ASAP = T
************************************************************
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 (V1 ) = 4.074000E-01 ;EX (W1 ) = 2.895000E-01
EX (PRPS) = 7.421000E+00
************************************************************
Group 21. Print-out of Variables
************************************************************
Group 22. Monitor Print-Out
IXMON = 15 ;IYMON = 10 ;IZMON = 5
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,4.158075E-02,-9.991353E-01,-2.430889E-08)
GVIEW(UP,-1.316655E-09,6.130959E-08,1.000000E+00)
> DOM, SIZE, 1.000000E+00, 5.000000E-01, 5.000000E-01
> DOM, MONIT, 3.941180E-01, 2.487500E-01, 5.625000E-02
> DOM, SCALE, 1.000000E+00, 1.000000E+00, 1.000000E+00
> DOM, SNAPSIZE, 1.000000E-02
if(LEVEL.eq.0)then
> GRID, RSET_X_1, 5, 7.000000E-01
> GRID, RSET_X_2, 30, 1.000000E+00
> GRID, RSET_X_3, 5, 1.300000E+00
> GRID, RSET_Y_1, 4, 7.000000E-01,G
> GRID, RSET_Y_2, 12, 1.000000E+00
> GRID, RSET_Y_3, 4, 1.700000E+00,G
> GRID, RSET_Z_1, 8, 1.000000E+00
> GRID, RSET_Z_2, 7, 1.300000E+00,G
else
> GRID, RSET_X_1, 10, 1.000000E+00
> GRID, RSET_Y_1, 5, 1.000000E+00
> GRID, RSET_Z_1, 5, 1.000000E+00
endif
> OBJ, NAME, BODY
> OBJ, POSITION, 3.000000E-01, 2.290000E-01, 1.000000E-02
> OBJ, SIZE, 3.000000E-01, 4.200000E-02, 6.800000E-02
> OBJ, ROT-MODE, OLD
> OBJ, GEOMETRY, wednew
> OBJ, ROTATION24, 5
> OBJ, GRID, NO
> OBJ, TYPE, BLOCKAGE
> OBJ, MATERIAL, 198,Solid with smooth-wall friction
> OBJ, NAME, R-FRONT
> OBJ, POSITION, 3.300000E-01, 2.100000E-01, 0.000000E+00
> OBJ, SIZE, 3.500000E-02, 1.000000E-02, 3.500000E-02
> OBJ, ROT-MODE, OLD
> OBJ, GEOMETRY, cylinder
> OBJ, ROTATION24, 6
> OBJ, GRID, NO
> OBJ, TYPE, BLOCKAGE
> OBJ, MATERIAL, 198,Solid with smooth-wall friction
> OBJ, NAME, L-FRONT
> OBJ, POSITION, 3.300000E-01, 2.775000E-01, 0.000000E+00
> OBJ, SIZE, 3.500000E-02, 1.000000E-02, 3.500000E-02
> OBJ, ROT-MODE, OLD
> OBJ, GEOMETRY, cylinder
> OBJ, ROTATION24, 5
> OBJ, GRID, NO
> OBJ, TYPE, BLOCKAGE
> OBJ, MATERIAL, 198,Solid with smooth-wall friction
> OBJ, NAME, R-BACK
> OBJ, POSITION, 5.300000E-01, 2.025000E-01, 0.000000E+00
> OBJ, SIZE, 4.000000E-02, 2.000000E-02, 4.000000E-02
> OBJ, ROT-MODE, OLD
> OBJ, GEOMETRY, cylinder
> OBJ, ROTATION24, 5
> OBJ, GRID, NO
> OBJ, TYPE, BLOCKAGE
> OBJ, MATERIAL, 198,Solid with smooth-wall friction
> OBJ, NAME, L-BACK
> OBJ, POSITION, 5.300000E-01, 2.775000E-01, 0.000000E+00
> OBJ, SIZE, 4.000000E-02, 2.000000E-02, 4.000000E-02
> OBJ, ROT-MODE, OLD
> OBJ, GEOMETRY, cylinder
> OBJ, ROTATION24, 5
> OBJ, GRID, NO
> OBJ, TYPE, BLOCKAGE
> OBJ, MATERIAL, 198,Solid with smooth-wall friction
> OBJ, NAME, INLET
> OBJ, POSITION, 0.000000E+00, 0.000000E+00, 0.000000E+00
> OBJ, SIZE, 0.000000E+00, 5.000000E-01, 5.000000E-01
> OBJ, GEOMETRY, cube3t
> OBJ, ROTATION24, 1
> OBJ, TYPE, INLET
> OBJ, PRESSURE, 0.000000E+00
> OBJ, VELOCITY, 1.000000E+00, 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, 5.000000E-01, 5.000000E-01
> OBJ, GEOMETRY, cube12t
> OBJ, ROTATION24, 1
> OBJ, TYPE, OUTLET
> OBJ, PRESSURE, 0.000000E+00
> OBJ, TEMPERATURE, SAME
> OBJ, COEFFICIENT, 1.000000E+07
if(LEVEL.eq.0)then
> OBJ, NAME, NULL
> OBJ, POSITION, 2.000000E-01, 1.800000E-01, 0.000000E+00
> OBJ, SIZE, 6.000000E-01, 1.500000E-01, 1.000000E-01
> OBJ, GEOMETRY, wirexyz
> OBJ, ROTATION24, 1
> OBJ, TYPE, NULL
endif
STOP