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