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