TALK=T;RUN( 1, 1)
 
 ************************************************************
   Q1 created by VDI menu, Version 2011, Date 23/03/11
 CPVNAM=VDI;SPPNAM=Core
 ************************************************************
  Echo DISPLAY / USE settings
  DISPLAY
 
  Library case Y101:
 
  SUPERSONIC FLOW IN A DUCT: FGEM
 
  This run illustrates what happens in a supersonic flow through
  a rectangular duct. The use of GREX3 facilities is illustrated
  via the activation of the isentropic gas law.
   Interesting variations include changes to: the gas-law constants,
  and to the inlet velocity.
 
  ENDDIS
 ************************************************************
 IRUNN = 1 ;LIBREF = 302
 ************************************************************
  Group 1. Run Title
 TEXT(SUPERSONIC FLOW IN DUCT : Y101          )
 ************************************************************
  Group 2. Transience
 STEADY = T
 ************************************************************
  Groups 3, 4, 5  Grid Information
    * Overall number of cells, RSET(M,NX,NY,NZ,tolerance)
 RSET(M,42,18,1)
 ************************************************************
  Group 6. Body-Fitted coordinates
 ************************************************************
  Group 7. Variables: STOREd,SOLVEd,NAMEd
    * Non-default variable names
 NAME(147)=VABS ;NAME(148)=PTOT
 NAME(149)=MACH ;NAME(150)=RHO1
    * Solved variables list
 SOLVE(P1,U1,V1)
    * Stored variables list
 STORE(RHO1,MACH,PTOT,VABS)
 
 ************************************************************
  Group 8. Terms & Devices
 TERMS (U1  ,Y,Y,N,Y,Y,Y)
 TERMS (V1  ,Y,Y,N,Y,Y,Y)
 NEWRH1 = T
 ************************************************************
  Group 9. Properties
 PRESS0 =1.
 RHO1 = GRND3
 RHO1A =1. ;RHO1B =0.714
 RHO1C =0.
 ENUL =1.0E-05
 CP1 =1005.
 ENUT =0.
 DRH1DP = GRND3
 ************************************************************
  Group 10.Inter-Phase Transfer Processes
 ************************************************************
  Group 11.Initialise Var/Porosity Fields
 FIINIT(P1)=0. ;FIINIT(U1)=2.
 FIINIT(RHO1)=1.
   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 = 200
 SARAH =0.05
 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
 ************************************************************
  Group 22. Monitor Print-Out
 IXMON = 5 ;IYMON = 14 ;IZMON = 1
 NPRMON = 100000
 NPRMNT = 1
 TSTSWP = -1
 ************************************************************
  Group 23.Field Print-Out & Plot Control
 NPRINT = 100000
 NXPRIN = 1
 NYPRIN = 1
 IPLTF = 1 ;IPLTL = 40
 ISWPRF = 1 ;ISWPRL = 100000
 
 PATCH(DOMAIN, CONTUR, 1, 40, 1, 18, 1, 1, 1, 1)
 PLOT(DOMAIN, P1, 0., 10.)
 PLOT(DOMAIN, U1, 0., 10.)
 PLOT(DOMAIN, V1, 0., 10.)
 PLOT(DOMAIN, RHO1, 0., 10.)
 
 PATCH(IYEQNY, PROFIL, 1, 40, 18, 18, 1, 1, 1, 1)
 PLOT(IYEQNY, P1, 0., 0.)
 
 PATCH(IYEQ1, PROFIL, 1, 40, 1, 1, 1, 1, 1, 1)
 PLOT(IYEQ1, P1, 0., 0.)
 ************************************************************
  Group 24. Dumps For Restarts
 
 GVIEW(P,-0.069532,0.104168,0.992126)
 GVIEW(UP,-3.951097E-03,0.994497,-0.104694)
 
> DOM,    SIZE,        5.000000E+00, 1.000000E+00, 1.000000E+00
> DOM,    MONIT,       5.040000E-01, 7.524999E-01, 5.000000E-01
> DOM,    SCALE,       1.000000E+00, 1.000000E+00, 1.000000E+00
  > GRID,   RSET_X_1,      5, 1.000000E+00
  > GRID,   RSET_X_2,      4, 1.000000E+00
  > GRID,   RSET_X_3,      4, 1.000000E+00
  > GRID,   RSET_X_4,      2, 1.000000E+00
  > GRID,   RSET_X_5,      8, 1.000000E+00
  > GRID,   RSET_X_6,     19, 1.000000E+00
  > GRID,   RSET_Y_1,      8, 1.000000E+00
  > GRID,   RSET_Y_2,      2, 1.000000E+00
  > GRID,   RSET_Y_3,      8, 1.000000E+00
  > GRID,   RSET_Z_1,      1, 1.000000E+00
 
> OBJ,    NAME,        X1
> OBJ,    POSITION,    1.000000E+00, 0.000000E+00, 0.000000E+00
> OBJ,    SIZE,        0.000000E+00, 1.000000E+00, 1.000000E+00
> OBJ,    ROT-MODE,    OLD
> OBJ,    GEOMETRY,    wirexyz
> OBJ,    TYPE,        NULL
 
> OBJ,    NAME,        IN
> OBJ,    POSITION,    0.000000E+00, 0.000000E+00, 0.000000E+00
> OBJ,    SIZE,        0.000000E+00, 1.000000E+00, 1.000000E+00
> OBJ,    ROT-MODE,    OLD
> OBJ,    GEOMETRY,    cube3t
> OBJ,    TYPE,        INLET
> OBJ,    PRESSURE,     P_AMBIENT
> OBJ,    VELOCITY,    2. ,0.5 ,0.
 
> OBJ,    NAME,        OUTLET
> OBJ,    POSITION,    5.000000E+00, 0.000000E+00, 0.000000E+00
> OBJ,    SIZE,        0.000000E+00, 1.000000E+00, 1.000000E+00
> OBJ,    ROT-MODE,    OLD
> OBJ,    GEOMETRY,    cube12t
> OBJ,    TYPE,        OUTLET
> OBJ,    PRESSURE,     P_AMBIENT
> OBJ,    COEFFICIENT, 1000.
 
> OBJ,    NAME,        B4
> OBJ,    POSITION,    5.600000E-01, 0.000000E+00, 0.000000E+00
> OBJ,    SIZE,        1.130000E+00, 4.400001E-01, 1.000000E+00
> OBJ,    ROT-MODE,    OLD
> OBJ,    GEOMETRY,    fine
> OBJ,    TYPE,        FINE_GRID_VOL
> OBJ,    FINEFACTS,   3, 3, 1
 
> OBJ,    NAME,        B5
> OBJ,    POSITION,    1.470000E+00, 5.599999E-01, 0.000000E+00
> OBJ,    SIZE,        1.130000E+00, 4.400001E-01, 1.000000E+00
> OBJ,    ROT-MODE,    OLD
> OBJ,    GEOMETRY,    fine
> OBJ,    TYPE,        FINE_GRID_VOL
> OBJ,    FINEFACTS,   3, 3, 1
STOP