TALK=F;RUN( 1, 1) ************************************************************ Q1 created by VDI menu, Version 2009, Date 17/02/09 CPVNAM=VDI;SPPNAM=Core ************************************************************ IRUNN = 1 ;LIBREF = 0 ************************************************************ Group 1. Run Title TEXT(USP: T channel+Corr NUL. ) ************************************************************ Group 2. Transience STEADY = T ************************************************************ Groups 3, 4, 5 Grid Information * Overall number of cells, RSET(M,NX,NY,NZ,tolerance) RSET(M,8,12,1,1.E-5) ************************************************************ Group 6. Body-Fitted coordinates ************************************************************ Group 7. Variables: STOREd,SOLVEd,NAMEd * Non-default variable names NAME(146)=TEM1 ;NAME(148)=DEN1 * Solved variables list SOLVE(P1,U1,V1,TEM1) * Stored variables list STORE(DEN1) * Additional solver options SOLUTN(P1,Y,Y,Y,N,N,Y) SOLUTN(TEM1,Y,Y,Y,N,N,Y) ************************************************************ Group 8. Terms & Devices 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 = 10 ; FACEST= 10 MINPRP = -1 ; MAXPRP= 250 UMXLEV = 3 ; UMXCLS= 10000 UNOLAY = 2 ; UIOLEV= 1 UWALEV = 3 ; UGRITR= 2 UMXCRS = 16 ************************************************************ Group 9. Properties PRESS0 =1.01325E+05 ;TEMP0 =273. RHO1=1000.0 * Freezing water at 1 atm ENUT =0. SETPRPS(1,51,Q1) * List of user-defined materials to be read by EARTH MATFLG=T;IMAT=1 * Name *Ind. Dens. Viscos. Spec.heat Conduct. Expans. Compr. *51 1000. 6.0E-6 4217.0 3.6 0.0 ************************************************************ Group 10.Inter-Phase Transfer Processes ************************************************************ Group 11.Initialise Var/Porosity Fields FIINIT(P1)=0. ;FIINIT(TEM1)=20. 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-05 ************************************************************ Group 16. Terminate Iterations LITER(P1)=200 ************************************************************ Group 17. Relaxation RELAX(P1 ,LINRLX,0.3 ) RELAX(U1 ,FALSDT,1.0e-02 ) RELAX(V1 ,FALSDT,1.0e-02 ) RELAX(TEM1 ,FALSDT,1.0e-01 ) mesg(Do you want to use collocated arrangement (y) or staggered one (n)? (y/n) readvdu(ans,char,n) if(:ans:.eq.y)then SPEDAT(SET,USP,METHOD,I,1) RELAX(P1 ,LINRLX, 0.2) RELAX(U1 ,FALSDT, 1.E-02) RELAX(V1 ,FALSDT, 1.E-02) mesg(Do you want to use SIMPLEST (y) or SIMPLE (n)? (y/n) readvdu(ans,char,n) if(:ans:.eq.y)then SPEDAT(SET,USP,SIMPLEST,L,T) endif endif ************************************************************ Group 18. Limits VARMAX(TEM1)=3000. ;VARMIN(TEM1)=-204.75 ************************************************************ Group 19. EARTH Calls To GROUND Station ************************************************************ Group 20. Preliminary Printout ************************************************************ Group 21. Print-out of Variables ************************************************************ Group 22. Monitor Print-Out IXMON = 7 ;IYMON = 7 ;IZMON = 1 NPRMON = 100000 NPRMNT = 1 TSTSWP = -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 GVIEW(P,-0.167455,-0.025983,0.985537) GVIEW(UP,0.109722,0.992951,0.044822) > DOM, SIZE, 2.100000E-01, 1.400000E-01, 2.000000E-02 > DOM, MONIT, 1.597500E-01, 7.650000E-02, 1.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, AUTO, F F T > GRID, RSET_X_1, 1, 1.000000E+00 > GRID, RSET_X_2, 6, 1.000000E+00 > GRID, RSET_Y_1, 4, 1.000000E+00 > GRID, RSET_Y_2, 4, 1.000000E+00 > GRID, RSET_Y_3, 4, 1.000000E+00 > GRID, RSET_Z_1, 1, 1.000000E+00 > DOM, INI_AMB, YES > DOM, INI_BUOY, YES > OBJ, NAME, WALL > OBJ, POSITION, 0.000000E+00, 0.000000E+00, 0.000000E+00 > OBJ, SIZE, 0.000000E+00, 1.400000E-01, 2.000000E-02 > OBJ, GEOMETRY, cube11 > OBJ, TYPE, PLATE > OBJ, NAME, BL0 > OBJ, POSITION, 9.000000E-03, 0.000000E+00, 0.000000E+00 > OBJ, SIZE, 2.010000E-01, 5.700000E-02, 2.000000E-02 > OBJ, GEOMETRY, cube14 > OBJ, TYPE, BLOCKAGE > OBJ, MATERIAL, 198,Solid with smooth-wall friction > OBJ, NAME, BL1 > OBJ, POSITION, 9.000000E-03, 8.300000E-02, 0.000000E+00 > OBJ, SIZE, 2.010000E-01, 5.700000E-02, 2.000000E-02 > OBJ, GEOMETRY, cube14 > OBJ, TYPE, BLOCKAGE > OBJ, MATERIAL, 198,Solid with smooth-wall friction > OBJ, NAME, HOTIN > OBJ, POSITION, 0.000000E+00, 0.000000E+00, 0.000000E+00 > OBJ, SIZE, 9.000000E-03, 0.000000E+00, 2.000000E-02 > OBJ, GEOMETRY, cube3t > OBJ, TYPE, INLET > OBJ, PRESSURE, P_AMBIENT > OBJ, VELOCITY, 0. ,0.15 ,0. > OBJ, TEMPERATURE, 100. > OBJ, NAME, COOLIN > OBJ, POSITION, 0.000000E+00, 1.400000E-01, 0.000000E+00 > OBJ, SIZE, 9.000000E-03, 0.000000E+00, 2.000000E-02 > OBJ, GEOMETRY, cube3t > OBJ, TYPE, INLET > OBJ, PRESSURE, P_AMBIENT > OBJ, VELOCITY, 0. ,-0.15 ,0. > OBJ, TEMPERATURE, 20. > OBJ, NAME, OUT > OBJ, POSITION, 2.100000E-01, 5.700000E-02, 0.000000E+00 > OBJ, SIZE, 0.000000E+00, 2.600000E-02, 2.000000E-02 > OBJ, GEOMETRY, cube12t > OBJ, TYPE, OUTLET > OBJ, PRESSURE, P_AMBIENT > OBJ, TEMPERATURE, T_AMBIENT > OBJ, COEFFICIENT, 1000. STOP