TALK=F;RUN( 1, 1)
 
 ************************************************************
   Q1 created by VDI menu, Version 2009, Date 17/02/09
 CPVNAM=VDI;SPPNAM=Core
 ************************************************************
  Echo DISPLAY / USE settings
 ************************************************************
 IRUNN = 1 ;LIBREF = 249
 ************************************************************
  Group 1. Run Title
 TEXT(Cavity with moving lid and heat exchange
 ************************************************************
  Group 2. Transience
 STEADY = T
 ************************************************************
  Groups 3, 4, 5  Grid Information
    * Overall number of cells, RSET(M,NX,NY,NZ,tolerance)
 RSET(M,10,10,1,1.0E-04)
 ************************************************************
  Group 6. Body-Fitted coordinates
 ************************************************************
  Group 7. Variables: STOREd,SOLVEd,NAMEd
 SOLVE(P1,U1,V1,H1)
 
 ************************************************************
  Echo save-block settings for Group  7
  
integer(caseno)
caseno=1
mesg(caseno=1: STAGUS 
mesg(caseno=2: Structured Phoenics
mesg(caseno=3: COLUS 
mesgm(caseno = :caseno: . Enter another if you want (1/2/3):
readvdu(caseno, int, 1)
if(:caseno:.LT.1.or.:caseno:.gt.3) then
caseno=1
endif
caseno
  
 ************************************************************
  Group 8. Terms & Devices
 TERMS (H1  ,N,Y,Y,Y,Y,Y)
IF(caseno.NE.2) THEN
INTEGER(LEVEL)
LEVEL = 0
mesgm(Level of refinement is :LEVEL: Enter another if you want
readvdu(LEVEL, int, LEVEL)
mesg(Level of refinement is :LEVEL:

 USP = T ; USPDBG= F
 UTCPLT = T ; USPIMB= F
 UAUTO = T ; UGTGRD= F
 USPVTK = T ; USPTER= F
 USCANX = T ; USCANY= T
 USCANZ = T
 MXLEV = 0 ;MYLEV = 0 ;MZLEV = 0
 DOMAT = -1
 CELLST = 20 ; FACEST= 20
 MINPRP = -1 ; MAXPRP= 250
 UMXLEV = LEVEL ; UMXCLS= 10000
 UNOLAY = 2 ; UIOLEV= 0
 UWALEV = LEVEL ; UGRITR= 2
 UMXCRS = 16
IF(caseno.EQ.3) THEN
 SPEDAT(SET,USP,METHOD,I,1)
ENDIF

ENDIF

 ************************************************************
  Group 9. Properties
 RHO1 =1.
 ENUL =1.0E-02
 CP1 =1.
 ENUT =0.
 PRNDTL(H1)=0.7
 DIFCUT =0.
 PARSOL =F
 ************************************************************
  Group 10.Inter-Phase Transfer Processes
 ************************************************************
  Group 11.Initialise Var/Porosity Fields
 FIINIT(H1)=1.001E-10
   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 = 2000
 RESFAC =1.0E-03
 ************************************************************
  Group 16. Terminate Iterations
 ************************************************************
  Group 17. Relaxation
IF(caseno.EQ.2) THEN
 RELAX(P1 ,LINRLX,1. )
 RELAX(U1 ,FALSDT,1.0E+05 )
 RELAX(V1 ,FALSDT,1.0E+05 )
 SPEDAT(SET,OUTPUT,VTK,C,YES)
 RESFAC =1.0E-01
ELSE
 RESFAC =1.0E-05
 IF(caseno.eq.1)THEN
 RELAX(P1 ,LINRLX,0.8)
 RELAX(U1 ,FALSDT,1.e+5 )
 RELAX(V1 ,FALSDT,1.e+5 )
 ELSE
 RELAX(P1 ,LINRLX,0.2)
 RELAX(U1 ,FALSDT,1.E-1 )
 RELAX(V1 ,FALSDT,1.E-1 )
 ENDIF
ENDIF

 ************************************************************
  Group 18. Limits
 ************************************************************
  Group 19. EARTH Calls To GROUND Station
 ************************************************************
  Group 20. Preliminary Printout
 ************************************************************
  Group 21. Print-out of Variables
 ************************************************************
  Group 22. Monitor Print-Out
 NPRMON = 100000
 NPRMNT = 1
 TSTSWP = -5
 ************************************************************
  Group 23.Field Print-Out & Plot Control
 NPRINT = 100000
 NXPRIN = 1
 NYPRIN = 1
 
 ISWPRF = 1 ;ISWPRL = 100000
   No PATCHes used for this Group
 ************************************************************
  Group 24. Dumps For Restarts
 
 GVIEW(P,0.050232,-0.060614,0.996897)
 GVIEW(UP,-0.029295,0.997638,0.062135)
 
> DOM,    SIZE,        1.000000E+00, 1.000000E+00, 1.000000E-01
> DOM,    MONIT,       3.750000E-02, 3.750000E-02, 5.000000E-02
> DOM,    SCALE,       1.000000E+00, 1.000000E+00, 1.000000E+00
> DOM,    INCREMENT,   1.000000E-02, 1.000000E-02, 1.000000E-02
> GRID,   RSET_X_1,     10, 1.000000E+00
> GRID,   RSET_Y_1,     10, 1.000000E+00
  > GRID,   RSET_Z_1,      1, 1.000000E+00
> DOM,    T_AMBIENT,   0.000000E+00
 
> OBJ,    NAME,        SOUTH
> OBJ,    POSITION,    0.000000E+00, 0.000000E+00, 0.000000E+00
> OBJ,    SIZE,        1.000000E+00, 0.000000E+00, 1.000000E-01
> OBJ,    GEOMETRY,    cube13
> OBJ,    TYPE,        PLATE
> OBJ,    SURF_ENTH,   0. ,0.
 
> OBJ,    NAME,        MOVE
> OBJ,    POSITION,    0.000000E+00, 1.000000E+00, 0.000000E+00
> OBJ,    SIZE,        1.000000E+00, 0.000000E+00, 1.000000E-01
> OBJ,    GEOMETRY,    cube13
> OBJ,    TYPE,        PLATE
> OBJ,    SURF_ENTH,   0. ,1.
> OBJ,    VELOCITY,    1. ,0. ,0.
 
> OBJ,    NAME,        WEST
> OBJ,    POSITION,    0.000000E+00, 0.000000E+00, 0.000000E+00
> OBJ,    SIZE,        0.000000E+00, 1.000000E+00, 1.000000E-01
> OBJ,    GEOMETRY,    cube13
> OBJ,    TYPE,        PLATE
> OBJ,    SURF_ENTH,   0. ,0.
 
> OBJ,    NAME,        EAST
> OBJ,    POSITION,    1.000000E+00, 0.000000E+00, 0.000000E+00
> OBJ,    SIZE,        0.000000E+00, 1.000000E+00, 1.000000E-01
> OBJ,    GEOMETRY,    cube13
> OBJ,    TYPE,        PLATE
> OBJ,    SURF_ENTH,   0. ,0.
 
> OBJ,    NAME,        FIXPRESS
> OBJ,    POSITION,    0.000000E+00, 0.000000E+00, 0.000000E+00
> OBJ,    SIZE,        3.333334E-02, 3.333334E-02, 1.000000E-01
> OBJ,    GEOMETRY,    cubet
> OBJ,    TYPE,        PRESSURE_RELIEF
> OBJ,    PRES_RELIEF, 1.000000E+03, P_AMBIENT
STOP