TALK=T;RUN( 1, 1)

 ************************************************************
   Q1 created by VDI menu, Version 3.5, Date 15/03/02
 CPVNAM=VDI;SPPNAM=Core
 ************************************************************
  Echo DISPLAY / USE settings
  DISPLAY

  Library case Y105:

  SUPERSONIC FLOW OVER A WEDGE: 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 =     105
 ************************************************************
  Group 1. Run Title
 TEXT(SUPERSONIC FLOW OVER A WEDGE: Y105      )
 ************************************************************
  Group 2. Transience
 STEADY  =    T
 ************************************************************
  Groups 3, 4, 5  Grid Information
    * Overall number of cells, RSET(M,NX,NY,NZ,tolerance)
 RSET(M,60,30,1)
 ************************************************************
  Group 6. Body-Fitted coordinates
 ************************************************************
  Group 7. Variables: STOREd,SOLVEd,NAMEd
 ONEPHS  =    T
    * 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.000000E+00
 RHO1    = GRND3
 RHO1A   = 1.000000E+00 ;RHO1B  = 7.140000E-01
 RHO1C   = 0.000000E+00
 ENUL    = 1.000000E-05
 CP1     = 1.005000E+03
 ENUT    = 0.000000E+00
 DRH1DP  = GRND3
 EMISS   = 0.000000E+00 ;SCATT  = 0.000000E+00
 ************************************************************
  Group 10.Inter-Phase Transfer Processes
 ************************************************************
  Group 11.Initialise Var/Porosity Fields
 FIINIT(P1  ) =  0.000000E+00 ;FIINIT(U1  ) =  2.000000E-01
 FIINIT(RHO1) =  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

 ************************************************************
  Group 14. Downstream Pressure For PARAB
 ************************************************************
  Group 15. Terminate Sweeps
 LSWEEP  =     750
 RESFAC  = 1.000000E-01
 ************************************************************
  Group 16. Terminate Iterations
 ************************************************************
  Group 17. Relaxation
 RELAX(P1  ,LINRLX, 5.000000E-01)
 RELAX(U1  ,FALSDT, 1.000000E-01)
 RELAX(V1  ,FALSDT, 1.000000E-01)
 ************************************************************
  Group 18. Limits
 VARMAX(U1  ) = 1.000000E+06 ;VARMIN(U1  ) =-1.000000E+06
 VARMAX(V1  ) = 1.000000E+06 ;VARMIN(V1  ) =-1.000000E+06
 ************************************************************
  Group 19. EARTH Calls To GROUND Station
 USEGRD  =    T  ;USEGRX =    T
 ASAP    =    T
 PARSOL  =    T
 LSG4    =    T
 LSG5    =    T
 ************************************************************
  Group 20. Preliminary Printout
 ECHO    =    T
 ************************************************************
  Group 21. Print-out of Variables
 ************************************************************
  Group 22. Monitor Print-Out
 IXMON   =      44 ;IYMON  =      16 ;IZMON  =       1
 NPRMON  =  100000
 NPRMNT  =       1
 TSTSWP  =      -1
 ************************************************************
  Group 23.Field Print-Out & Plot Control
 NPRINT  =  100000
 NXPRIN  =       4
 NYPRIN  =       2
 IPLTF   =       1 ;IPLTL  =      40
 ISWPRF  =       1 ;ISWPRL =  100000

 PATCH (DOMAIN  ,CONTUR,1,40,1,18,1,1,1,1)
 PLOT(DOMAIN  ,P1  , 0.000000E+00, 1.000000E+01)
 PLOT(DOMAIN  ,U1  , 0.000000E+00, 1.000000E+01)
 PLOT(DOMAIN  ,V1  , 0.000000E+00, 1.000000E+01)
 PLOT(DOMAIN  ,RHO1, 0.000000E+00, 1.000000E+01)

 PATCH (IYEQNY  ,PROFIL,1,40,18,18,1,1,1,1)
 PLOT(IYEQNY  ,P1  , 0.000000E+00, 0.000000E+00)

 PATCH (IYEQ1   ,PROFIL,1,40,1,1,1,1,1,1)
 PLOT(IYEQ1   ,P1  , 0.000000E+00, 0.000000E+00)
 ************************************************************
  Group 24. Dumps For Restarts
 NOWIPE  =    T

 GVIEW(P,0.000000E+00,0.000000E+00,-1.000000E+00)
 GVIEW(UP,0.000000E+00,1.000000E+00,0.000000E+00)

> DOM,    SIZE,        5.000000E+00, 1.000000E+00, 1.000000E+00
> DOM,    MONIT,       3.625000E+00, 5.166670E-01, 5.000000E-01
> DOM,    SCALE,       1.000000E+00, 1.000000E+00, 1.000000E+00
> DOM,    SNAPSIZE,    1.000000E-02
> DOM,    VECSCALE,    1.000000E-03

> 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,    CLIPART,     cube3t
> OBJ,    ROTATION24,        1
> OBJ,    TYPE,        INLET
> OBJ,    PRESSURE,      0.000000E+00
> OBJ,    VELOCITY,      2.000000E+00, 0.000000E+00, 0.000000E+00
> OBJ,    TEMPERATURE,   0.000000E+00

> 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,    CLIPART,     cube12t
> OBJ,    ROTATION24,        1
> OBJ,    TYPE,        OUTLET
> OBJ,    PRESSURE,      0.000000E+00
> OBJ,    TEMPERATURE,  -1.026000E+04
> OBJ,    COEFFICIENT,   1.000000E+03

> OBJ,    NAME,        B4
> OBJ,    POSITION,    1.500000E+00, 5.000000E-01, 0.000000E+00
> OBJ,    SIZE,        5.000000E-01, 5.000000E-02, 1.000000E+00
> OBJ,    CLIPART,     wedge1
> OBJ,    ROTATION24,       18
> OBJ,    GRID,              2
> OBJ,    TYPE,        BLOCKAGE
> OBJ,    MATERIAL,      198

> OBJ,    NAME,        B5
> OBJ,    POSITION,    1.300000E+00, 3.000000E-01, 0.000000E+00
> OBJ,    SIZE,        1.630000E+00, 4.000000E-01, 1.000000E+00
> OBJ,    CLIPART,     wirexyz
> OBJ,    ROTATION24,        1
> OBJ,    GRID,              2
> OBJ,    TYPE,        FINE_GRID_VOL
> OBJ,    FINEFACTS,     4.000000E+00, 4.000000E+00, 1.000000E+00

> OBJ,    NAME,        B6
> OBJ,    POSITION,    1.500000E+00, 4.500000E-01, 0.000000E+00
> OBJ,    SIZE,        5.000000E-01, 5.000000E-02, 1.000000E+00
> OBJ,    CLIPART,     wedge1
> OBJ,    ROTATION24,        8
> OBJ,    GRID,              2
> OBJ,    TYPE,        BLOCKAGE
> OBJ,    MATERIAL,      198

> OBJ,    NAME,        B7
> OBJ,    POSITION,    1.450000E+00, 4.000000E-01, 0.000000E+00
> OBJ,    SIZE,        1.100000E+00, 2.000000E-01, 1.000000E+00
> OBJ,    CLIPART,     wirexyz
> OBJ,    ROTATION24,        1
> OBJ,    GRID,              2
> OBJ,    TYPE,        FINE_GRID_VOL
> OBJ,    FINEFACTS,     4.000000E+00, 4.000000E+00, 1.000000E+00

> OBJ,    NAME,        B8
> OBJ,    POSITION,    2.000000E+00, 4.500000E-01, 0.000000E+00
> OBJ,    SIZE,        5.000000E-01, 5.000000E-02, 1.000000E+00
> OBJ,    CLIPART,     wedge1
> OBJ,    ROTATION24,       11
> OBJ,    GRID,              2
> OBJ,    TYPE,        BLOCKAGE
> OBJ,    MATERIAL,      198

> OBJ,    NAME,        B9
> OBJ,    POSITION,    2.000000E+00, 5.000000E-01, 0.000000E+00
> OBJ,    SIZE,        5.000000E-01, 5.000000E-02, 1.000000E+00
> OBJ,    CLIPART,     wedge1
> OBJ,    ROTATION24,       20
> OBJ,    GRID,              2
> OBJ,    TYPE,        BLOCKAGE
> OBJ,    MATERIAL,      198
STOP