TALK=T;RUN( 1, 1)
 
 ************************************************************
   Q1 created by VDI menu, Version 2012, Date 24/01/2012
 CPVNAM=VDI;SPPNAM=WATSTCON
 ************************************************************
 IRUNN = 1 ;LIBREF = 0
 ************************************************************
  Group 1. Run Title
 TEXT(3D Test Condenser                     
 ************************************************************
  Group 2. Transience
 STEADY = T
 ************************************************************
  Groups 3, 4, 5  Grid Information
    * Overall number of cells, RSET(M,NX,NY,NZ,tolerance)
 RSET(M,22,22,10)
 ************************************************************
  Group 6. Body-Fitted coordinates
 ************************************************************
  Group 7. Variables: STOREd,SOLVEd,NAMEd
 NAME(150) =PRPS
    * Solved variables list
 SOLVE(P1)
    * Stored variables list
 STORE(PRPS)
    * Additional solver options
 SOLUTN(P1,Y,Y,Y,N,N,Y)
 
 ************************************************************
  Group 8. Terms & Devices
 ************************************************************
  Group 9. Properties
 PRESS0 =2.767E+04 ;TEMP0 =273.
 RHO1 =1.
 ENUL =1.0E-05
 CP1 =1005.
 ENUT =0.05
 ************************************************************
  Group 10.Inter-Phase Transfer Processes
 ************************************************************
  Group 11.Initialise Var/Porosity Fields
 FIINIT(P1)=0. ;FIINIT(PRPS)=0.
   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
 
 BUOYA =0. ; BUOYB =0.
 BUOYC =-9.81
 EGWF = T
 ************************************************************
  Group 14. Downstream Pressure For PARAB
 ************************************************************
  Group 15. Terminate Sweeps
 LSWEEP = 400
 RESFAC =1.0E-03
 ************************************************************
  Group 16. Terminate Iterations
 ************************************************************
  Group 17. Relaxation
 RELAX(P1 ,LINRLX,1. )
 ************************************************************
  Group 18. Limits
 ************************************************************
  Group 19. EARTH Calls To GROUND Station
 ************************************************************
  Group 20. Preliminary Printout
 ************************************************************
  Group 21. Print-out of Variables
 OUTPUT(P1  ,N,N,Y,Y,N,N)
 ************************************************************
  Group 22. Monitor Print-Out
 IXMON = 10 ;IYMON = 15 ;IZMON = 5
 NPRMON = 100000
 NPRMNT = 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
 NOWIPE = T
 
 GVIEW(P,0.119712,0.032151,0.992288)
 GVIEW(UP,-3.618245E-09,0.999475,-0.032383)
 
> DOM,    SIZE,        1.020000E+00, 7.800000E-01, 1.219000E+00
> DOM,    MONIT,       5.000000E-01, 5.000000E-01, 5.000000E-01
> DOM,    SCALE,       1.000000E+00, 1.000000E+00, 1.000000E+00
  > GRID,   RSET_X_1,      6, 1.000000E+00
  > GRID,   RSET_X_2,      8, 1.000000E+00
  > GRID,   RSET_X_3,      1, 1.000000E+00
  > GRID,   RSET_X_4,      5, 1.000000E+00
  > GRID,   RSET_X_5,      1, 1.000000E+00
  > GRID,   RSET_X_6,      1, 1.000000E+00
  > GRID,   RSET_Y_1,      3, 1.000000E+00
  > GRID,   RSET_Y_2,      8, 1.000000E+00
  > GRID,   RSET_Y_3,      1, 1.000000E+00
  > GRID,   RSET_Y_4,      7, 1.000000E+00
  > GRID,   RSET_Y_5,      3, 1.000000E+00
  > GRID,   RSET_Z_1,     10, 1.000000E+00
> DOM,    MATERIAL,          0
> DOM,    REFTEMP,     2.730000E+02
> DOM,    REFPRESS,    2.767000E+04
> DOM,    GRAVITY,     0.000000E+00, 0.000000E+00,-9.810000E+00
> GRID,   DIMENSION,       22,     22,     10
> GRID,   TOLERANCE,   1.000000E-03
> DOM,    FLOWTYPE,          4
> DOM,    LSWEEP,          400
> DOM,    RELAX,       5.000000E+01
> DOM,    FLOWTYPE,        4
> DOM,    COOLANT,          67
> DOM,    MWTNCG,    2.900000E+01
> DOM,    TEMCIN,    1.780000E+01
> DOM,    VELCIN,    1.190000E+00
> DOM,    ICONDM,        1
> DOM,    NSTUB,    4.000000E+02
> DOM,    NITUB,    0.000000E+00
> DOM,    ITPFM,        1
> DOM,    INUNM,        1
 
> OBJ,    NAME,        B1
> OBJ,    POSITION,    3.000000E-01, 9.000000E-02, 0.000000E+00
> OBJ,    SIZE,        7.000000E-01, 6.000000E-01, 1.219000E+00
> OBJ,    ROT-MODE,    OLD
> OBJ,    GEOMETRY,    default
> OBJ,    TYPE,        TUBE_BUNDLE
> OBJ,    STAGGERED,             1
> OBJ,    PITCH,       3.490000E-02, 3.020000E-02
> OBJ,    TUBES,       2.540000E-02, 1.250000E-03, 1.219000E+00
> OBJ,    CONDUCTIVITY,  9.700000E+01
> OBJ,    RESISTANCE,    1.000000E-20
> OBJ,    ROUGHNESS,    1.500000E-04
 
> OBJ,    NAME,        B2
> OBJ,    POSITION,    0.000000E+00, 0.000000E+00, 0.000000E+00
> OBJ,    SIZE,        0.000000E+00, 7.800000E-01, 1.219000E+00
> OBJ,    ROT-MODE,    OLD
> OBJ,    GEOMETRY,    default
> OBJ,    TYPE,        INLET
> OBJ,    ORIENTATION,      1
> OBJ,    FLOWRATE,    2.032000E+00, 2.480000E-03
 
> OBJ,    NAME,        B3
> OBJ,    POSITION,    7.250000E-01, 3.700000E-01, 0.000000E+00
> OBJ,    SIZE,        4.000000E-02, 4.000000E-02, 1.219000E+00
> OBJ,    ROT-MODE,    OLD
> OBJ,    GEOMETRY,    default
> OBJ,    TYPE,        OUTLET
> OBJ,    PRESSURE,    0.
> OBJ,    COEFFICIENT, 1.
 
> OBJ,    NAME,        B4
> OBJ,    POSITION,    1.000000E+00, 0.000000E+00, 0.000000E+00
> OBJ,    SIZE,        1.000000E-02, 9.000000E-02, 1.219000E+00
> OBJ,    ROT-MODE,    OLD
> OBJ,    GEOMETRY,    default
> OBJ,    TYPE,        NULL
STOP
 
CSG3=CNGR
RELAX(P1,LINRLX,0.1)
RELAX(U1,FALSDT,2.E-4);RELAX(V1,FALSDT,2.E-4)
RELAX(W1,FALSDT,2.E-4)
RELAX(C1,LINRLX,0.3);RELAX(DEN1,LINRLX,0.3)