TALK=T;RUN(1,1) DISPLAY Library Case I404: Deposition, horizontal duct @ 2.2m/s The case considered is 3d steady, isothermal, turbulent air flow in a horizontal square ventilation duct with the transport and deposition of particles. The Eulerian drift flux model is used to simulate particles with deposition by means of the 3-layer deposition model of Chen & Lai (2004), which accounts for deposition by gravity, Brownian diffusion and turbophoresis. This case has been studied experimentally by Sippola and Nazaroff (2004), who for fully-developed flow, measured deposition rates of particles to the walls of the duct with nominal sizes ranging from 1 to 16 microns in a 0.152m square duct at each of three nominal air speeds: 2.2m/s, 5.3m/s, 9m/s, corresponding to Reynolds numbers of 21,957, 53,894 & 87,733. This particular Q1 file employs the lowest air speed of 2.2m/s at a temperature of 22degC so as to replicate Runs 1 to 5 of the experimental series, which consider deposition of 5 different particle sizes onto the four walls of the duct in the fully-developed region of the flow. ENDDIS PHOTON USE p up x view y con C6 y 1 fi;.1;pa vec y 1;pa ENDUSE ************************************************************ Group 1. Run Title and Number ************************************************************ ************************************************************ TEXT(I404: Deposition, horizontal [email protected]/s) ************************************************************ ************************************************************ IRUNN = 1 ;LIBREF = 0 ************************************************************ Group 2. Time dependence STEADY = T ************************************************************ Group 3. X-Direction Grid Spacing CARTES = T NX = 60 XULAST =3.04 XFRAC(1)=0.016667 ;XFRAC(2)=0.033333 XFRAC(3)=0.05 ;XFRAC(4)=0.066667 XFRAC(5)=0.083333 ;XFRAC(6)=0.1 XFRAC(7)=0.116667 ;XFRAC(8)=0.133333 XFRAC(9)=0.15 ;XFRAC(10)=0.166667 XFRAC(11)=0.183333 ;XFRAC(12)=0.2 XFRAC(13)=0.216667 ;XFRAC(14)=0.233333 XFRAC(15)=0.25 ;XFRAC(16)=0.266667 XFRAC(17)=0.283333 ;XFRAC(18)=0.3 XFRAC(19)=0.316667 ;XFRAC(20)=0.333333 XFRAC(21)=0.35 ;XFRAC(22)=0.366667 XFRAC(23)=0.383333 ;XFRAC(24)=0.4 XFRAC(25)=0.416667 ;XFRAC(26)=0.433333 XFRAC(27)=0.45 ;XFRAC(28)=0.466667 XFRAC(29)=0.483333 ;XFRAC(30)=0.5 XFRAC(31)=0.516667 ;XFRAC(32)=0.533333 XFRAC(33)=0.55 ;XFRAC(34)=0.566667 XFRAC(35)=0.583333 ;XFRAC(36)=0.6 XFRAC(37)=0.616667 ;XFRAC(38)=0.633333 XFRAC(39)=0.65 ;XFRAC(40)=0.666667 XFRAC(41)=0.683333 ;XFRAC(42)=0.7 XFRAC(43)=0.716667 ;XFRAC(44)=0.733333 XFRAC(45)=0.75 ;XFRAC(46)=0.766667 XFRAC(47)=0.783333 ;XFRAC(48)=0.8 XFRAC(49)=0.816667 ;XFRAC(50)=0.833333 XFRAC(51)=0.85 ;XFRAC(52)=0.866667 XFRAC(53)=0.883333 ;XFRAC(54)=0.9 XFRAC(55)=0.916667 ;XFRAC(56)=0.933333 XFRAC(57)=0.95 ;XFRAC(58)=0.966667 XFRAC(59)=0.983333 ;XFRAC(60)=1. ************************************************************ Group 4. Y-Direction Grid Spacing NY = 30 YVLAST =0.152 YFRAC(1)=0.033333 ;YFRAC(2)=0.066667 YFRAC(3)=0.1 ;YFRAC(4)=0.133333 YFRAC(5)=0.166667 ;YFRAC(6)=0.2 YFRAC(7)=0.233333 ;YFRAC(8)=0.266667 YFRAC(9)=0.3 ;YFRAC(10)=0.333333 YFRAC(11)=0.366667 ;YFRAC(12)=0.4 YFRAC(13)=0.433333 ;YFRAC(14)=0.466667 YFRAC(15)=0.5 ;YFRAC(16)=0.533333 YFRAC(17)=0.566667 ;YFRAC(18)=0.6 YFRAC(19)=0.633333 ;YFRAC(20)=0.666667 YFRAC(21)=0.7 ;YFRAC(22)=0.733333 YFRAC(23)=0.766667 ;YFRAC(24)=0.8 YFRAC(25)=0.833333 ;YFRAC(26)=0.866667 YFRAC(27)=0.9 ;YFRAC(28)=0.933333 YFRAC(29)=0.966667 ;YFRAC(30)=1. ************************************************************ Group 5. Z-Direction Grid Spacing PARAB = F NZ = 30 ZWLAST =0.152 ZFRAC(1)=0.033333 ;ZFRAC(2)=0.066667 ZFRAC(3)=0.1 ;ZFRAC(4)=0.133333 ZFRAC(5)=0.166667 ;ZFRAC(6)=0.2 ZFRAC(7)=0.233333 ;ZFRAC(8)=0.266667 ZFRAC(9)=0.3 ;ZFRAC(10)=0.333333 ZFRAC(11)=0.366667 ;ZFRAC(12)=0.4 ZFRAC(13)=0.433333 ;ZFRAC(14)=0.466667 ZFRAC(15)=0.5 ;ZFRAC(16)=0.533333 ZFRAC(17)=0.566667 ;ZFRAC(18)=0.6 ZFRAC(19)=0.633333 ;ZFRAC(20)=0.666667 ZFRAC(21)=0.7 ;ZFRAC(22)=0.733334 ZFRAC(23)=0.766667 ;ZFRAC(24)=0.8 ZFRAC(25)=0.833334 ;ZFRAC(26)=0.866667 ZFRAC(27)=0.9 ;ZFRAC(28)=0.933334 ZFRAC(29)=0.966667 ;ZFRAC(30)=1. ************************************************************ Group 6. Body-Fitted Coordinates ************************************************************ Group 7. Variables: STOREd,SOLVEd,NAMEd ONEPHS = T NAME(1)=P1 ;NAME(3)=U1 NAME(5)=V1 ;NAME(7)=W1 NAME(12)=KE ;NAME(13)=EP NAME(21)=C6 ;NAME(22)=C7 NAME(23)=C8 ;NAME(24)=C9 NAME(25)=C10 ;NAME(106)=ENUN NAME(107)=DI5 ;NAME(108)=DI4 NAME(109)=DI3 ;NAME(110)=DI2 NAME(111)=VP5 ;NAME(112)=TP5 NAME(113)=VP4 ;NAME(114)=TP4 NAME(115)=VP3 ;NAME(116)=TP3 NAME(117)=VP2 ;NAME(118)=TP2 NAME(119)=VS5 ;NAME(120)=TR5 NAME(121)=VD5 ;NAME(122)=DEP5 NAME(123)=VS4 ;NAME(124)=TR4 NAME(125)=VD4 ;NAME(126)=DEP4 NAME(127)=VS3 ;NAME(128)=TR3 NAME(129)=VP1 ;NAME(130)=TP1 NAME(131)=DI1 ;NAME(132)=VS1 NAME(133)=TR1 ;NAME(134)=VD1 NAME(135)=VD3 ;NAME(136)=VSTR NAME(137)=DEP1 ;NAME(138)=DEP3 NAME(139)=VS2 ;NAME(140)=ENUL NAME(141)=TR2 ;NAME(142)=VD2 NAME(143)=DEP2 ;NAME(145)=YPLS NAME(146)=STRS ;NAME(147)=EPKE NAME(148)=DEN1 ;NAME(149)=EL1 NAME(150)=ENUT * Y in SOLUTN argument list denotes: * 1-stored 2-solved 3-whole-field * 4-point-by-point 5-explicit 6-harmonic averaging SOLUTN(P1,Y,Y,Y,N,N,Y) SOLUTN(U1,Y,Y,N,N,N,Y) SOLUTN(V1,Y,Y,N,N,N,Y) SOLUTN(W1,Y,Y,N,N,N,Y) SOLUTN(KE,Y,Y,N,N,N,N) SOLUTN(EP,Y,Y,N,N,N,N) SOLUTN(C6,Y,Y,Y,N,N,Y) SOLUTN(C7,Y,Y,Y,N,N,Y) SOLUTN(C8,Y,Y,Y,N,N,Y) SOLUTN(C9,Y,Y,Y,N,N,Y) SOLUTN(C10,Y,Y,Y,N,N,Y) SOLUTN(ENUN,Y,N,N,N,N,Y) SOLUTN(DI5,Y,N,N,N,N,Y) SOLUTN(DI4,Y,N,N,N,N,Y) SOLUTN(DI3,Y,N,N,N,N,Y) SOLUTN(DI2,Y,N,N,N,N,Y) SOLUTN(VP5,Y,N,N,N,N,Y) SOLUTN(TP5,Y,N,N,N,N,Y) SOLUTN(VP4,Y,N,N,N,N,Y) SOLUTN(TP4,Y,N,N,N,N,Y) SOLUTN(VP3,Y,N,N,N,N,Y) SOLUTN(TP3,Y,N,N,N,N,Y) SOLUTN(VP2,Y,N,N,N,N,Y) SOLUTN(TP2,Y,N,N,N,N,Y) SOLUTN(VS5,Y,N,N,N,N,Y) SOLUTN(TR5,Y,N,N,N,N,Y) SOLUTN(VD5,Y,N,N,N,N,Y) SOLUTN(DEP5,Y,N,N,N,N,Y) SOLUTN(VS4,Y,N,N,N,N,Y) SOLUTN(TR4,Y,N,N,N,N,Y) SOLUTN(VD4,Y,N,N,N,N,Y) SOLUTN(DEP4,Y,N,N,N,N,Y) SOLUTN(VS3,Y,N,N,N,N,Y) SOLUTN(TR3,Y,N,N,N,N,Y) SOLUTN(VP1,Y,N,N,N,N,Y) SOLUTN(TP1,Y,N,N,N,N,Y) SOLUTN(DI1,Y,N,N,N,N,Y) SOLUTN(VS1,Y,N,N,N,N,Y) SOLUTN(TR1,Y,N,N,N,N,Y) SOLUTN(VD1,Y,N,N,N,N,Y) SOLUTN(VD3,Y,N,N,N,N,Y) SOLUTN(VSTR,Y,N,N,N,N,Y) SOLUTN(DEP1,Y,N,N,N,N,Y) SOLUTN(DEP3,Y,N,N,N,N,Y) SOLUTN(VS2,Y,N,N,N,N,Y) SOLUTN(ENUL,Y,N,N,N,N,Y) SOLUTN(TR2,Y,N,N,N,N,Y) SOLUTN(VD2,Y,N,N,N,N,Y) SOLUTN(DEP2,Y,N,N,N,N,Y) SOLUTN(YPLS,Y,N,N,N,N,Y) SOLUTN(STRS,Y,N,N,N,N,Y) SOLUTN(EPKE,Y,N,N,N,N,Y) SOLUTN(DEN1,Y,N,N,N,N,Y) SOLUTN(EL1,Y,N,N,N,N,Y) SOLUTN(ENUT,Y,N,N,N,N,Y) DEN1 = 148 VISL = 140 VIST = 150 LEN1 = 149 ************************************************************ Group 8. Terms & Devices * Y in TERMS argument list denotes: * 1-built-in source 2-convection 3-diffusion 4-transient * 5-first phase variable 6-interphase transport TERMS(P1,Y,Y,Y,N,Y,Y) TERMS(U1,Y,Y,Y,Y,Y,Y) TERMS(V1,Y,Y,Y,Y,Y,Y) TERMS(W1,Y,Y,Y,Y,Y,Y) TERMS(KE,N,Y,Y,Y,Y,N) TERMS(EP,N,Y,Y,Y,Y,N) TERMS(C6,N,Y,Y,Y,N,Y) TERMS(C7,N,Y,Y,Y,Y,Y) TERMS(C8,N,Y,Y,Y,N,Y) TERMS(C9,N,Y,Y,Y,Y,Y) TERMS(C10,N,Y,Y,Y,N,Y) DIFCUT =0.5 ;ZDIFAC =1. GALA = F ;ADDDIF = F NEWRH1 = T NEWENL = T NEWENT = T ISOLX = -1 ;ISOLY = -1 ;ISOLZ = -1 ************************************************************ Group 9. Properties used if PRPS is not stored, and where PRPS = -1.0 if it is! RHO1 = GRND5 ;TMP1 = GRND1 ;EL1 = GRND4 TSURR =0. ;TEMP0 =273. ;PRESS0 =1.01325E+05 DVO1DT =3.33E-03 ;DRH1DP = GRND5 RHO1A =0. ;RHO1B =3.4843E-03 ;RHO1C =0.71429 TMP1A =22. ;TMP1B =0. ;TMP1C =0. TMP2A =0. ;TMP2B =0. ;TMP2C =0. EMISS =0. ;SCATT =0. RADIA =0. ;RADIB =0. EL1A =0. ;EL1B =0. ;EL1C =0. ENUL = GRND6 ;ENUT = GRND3 ENULA =1.46E-06 ;ENULB =110. ;ENULC =8.0974E-11 ;ENULD =0. ENULE =0. ;ENULF =0. ;ENULG =0. IENULA = 0 ;IENULB = 0 ENUTA =0. ;ENUTB =0. ;ENUTC =0. IENUTA = 0 PRNDTL(U1)=1. ;PRNDTL(V1)=1. PRNDTL(W1)=1. ;PRNDTL(KE)=1. PRNDTL(EP)=1. ;PRNDTL(C6)=1. PRNDTL(C7)=1. ;PRNDTL(C8)=1. PRNDTL(C9)=1. ;PRNDTL(C10)=1. PRT(U1)=1. ;PRT(V1)=1. PRT(W1)=1. ;PRT(KE)=1. PRT(EP)=1.314 ;PRT(C6)=1. PRT(C7)=1. ;PRT(C8)=1. PRT(C9)=1. ;PRT(C10)=1. CP1 =1004. ;CP2 =1. ************************************************************ Group 10.Inter-Phase Transfer Processes ************************************************************ Group 11.Initial field variables (PHIs) FIINIT(P1)=0. ;FIINIT(U1)=2.2 FIINIT(V1)=1.0E-10 ;FIINIT(W1)=1.0E-10 FIINIT(KE)=0.02238 ;FIINIT(EP)=0.07239 FIINIT(C6)=0. ;FIINIT(C7)=0. FIINIT(C8)=0. ;FIINIT(C9)=0. FIINIT(C10)=0. ;FIINIT(ENUN)=1.0E-10 FIINIT(DI5)=1.0E-10 ;FIINIT(DI4)=1.0E-10 FIINIT(DI3)=1.0E-10 ;FIINIT(DI2)=1.0E-10 FIINIT(VP5)=1.0E-10 ;FIINIT(TP5)=1.0E-10 FIINIT(VP4)=1.0E-10 ;FIINIT(TP4)=1.0E-10 FIINIT(VP3)=1.0E-10 ;FIINIT(TP3)=1.0E-10 FIINIT(VP2)=1.0E-10 ;FIINIT(TP2)=1.0E-10 FIINIT(VS5)=1.0E-10 ;FIINIT(TR5)=1.0E-10 FIINIT(VD5)=1.0E-10 ;FIINIT(DEP5)=1.0E-10 FIINIT(VS4)=1.0E-10 ;FIINIT(TR4)=1.0E-10 FIINIT(VD4)=1.0E-10 ;FIINIT(DEP4)=1.0E-10 FIINIT(VS3)=1.0E-10 ;FIINIT(TR3)=1.0E-10 FIINIT(VP1)=1.0E-10 ;FIINIT(TP1)=1.0E-10 FIINIT(DI1)=1.0E-10 ;FIINIT(VS1)=1.0E-10 FIINIT(TR1)=1.0E-10 ;FIINIT(VD1)=1.0E-10 FIINIT(VD3)=1.0E-10 ;FIINIT(VSTR)=1.0E-10 FIINIT(DEP1)=1.0E-10 ;FIINIT(DEP3)=1.0E-10 FIINIT(VS2)=1.0E-10 ;FIINIT(ENUL)=1.0E-10 FIINIT(TR2)=1.0E-10 ;FIINIT(VD2)=1.0E-10 FIINIT(DEP2)=1.0E-10 ;FIINIT(YPLS)=1.0E-10 FIINIT(STRS)=1.0E-10 ;FIINIT(EPKE)=1.0E-10 FIINIT(DEN1)=1.0E-10 ;FIINIT(EL1)=1.0E-10 FIINIT(ENUT)=1.0E-10 No PATCHes yet used for this Group INIADD = F FSWEEP = 1 NAMFI =CHAM ************************************************************ Group 12. Patchwise adjustment of terms Patches for this group are printed with those for Group 13. Their names begin either with GP12 or & ************************************************************ Group 13. Boundary & Special Sources PATCH(DFLUX ,CELL , 1, 60, 1, 30, 1, 30, 1, 1) COVAL(DFLUX ,C6 , GRND4 , GRND4 ) COVAL(DFLUX ,C7 , GRND4 , GRND4 ) COVAL(DFLUX ,C8 , GRND4 , GRND4 ) COVAL(DFLUX ,C9 , GRND4 , GRND4 ) COVAL(DFLUX ,C10 , GRND4 , GRND4 ) PATCH(KESOURCE,PHASEM, 1, 60, 1, 30, 1, 30, 1, 1) COVAL(KESOURCE,KE , GRND4 , GRND4 ) COVAL(KESOURCE,EP , GRND4 , GRND4 ) PATCH(OB1 ,WEST , 1, 1, 1, 30, 1, 30, 1, 1) COVAL(OB1 ,P1 , FIXFLU ,2.632891 ) COVAL(OB1 ,U1 ,0. ,2.2 ) COVAL(OB1 ,V1 ,0. ,0. ) COVAL(OB1 ,W1 ,0. ,0. ) COVAL(OB1 ,KE ,0. ,0.02238 ) COVAL(OB1 ,EP ,0. ,0.07239 ) COVAL(OB1 ,C6 ,0. ,1. ) COVAL(OB1 ,C7 ,0. ,1. ) COVAL(OB1 ,C8 ,0. ,1. ) COVAL(OB1 ,C9 ,0. ,1. ) COVAL(OB1 ,C10 ,0. ,1. ) PATCH(OB2 ,EAST , 60, 60, 1, 30, 1, 30, 1, 1) COVAL(OB2 ,P1 ,1000. ,0. ) COVAL(OB2 ,U1 ,0. ,0. ) COVAL(OB2 ,V1 ,0. ,0. ) COVAL(OB2 ,W1 ,0. ,0. ) COVAL(OB2 ,KE ,0. , SAME ) COVAL(OB2 ,EP ,0. , SAME ) PATCH(OB3 ,HWALL , 1, 60, 1, 30, 30, 30, 1, 1) COVAL(OB3 ,U1 , GRND2 ,0. ) COVAL(OB3 ,V1 , GRND2 ,0. ) COVAL(OB3 ,KE , GRND2 , GRND2 ) COVAL(OB3 ,EP , GRND2 , GRND2 ) PATCH(PW3 ,HIGH , 1, 60, 1, 30, 30, 30, 1, 1) COVAL(PW3 ,C6 , GRND3 ,0. ) COVAL(PW3 ,C7 , GRND3 ,0. ) COVAL(PW3 ,C8 , GRND3 ,0. ) COVAL(PW3 ,C9 , GRND3 ,0. ) COVAL(PW3 ,C10 , GRND3 ,0. ) PATCH(OB4 ,SWALL , 1, 60, 1, 1, 1, 30, 1, 1) COVAL(OB4 ,U1 , GRND2 ,0. ) COVAL(OB4 ,W1 , GRND2 ,0. ) COVAL(OB4 ,KE , GRND2 , GRND2 ) COVAL(OB4 ,EP , GRND2 , GRND2 ) PATCH(PW4 ,SOUTH , 1, 60, 1, 1, 1, 30, 1, 1) COVAL(PW4 ,C6 , GRND3 ,0. ) COVAL(PW4 ,C7 , GRND3 ,0. ) COVAL(PW4 ,C8 , GRND3 ,0. ) COVAL(PW4 ,C9 , GRND3 ,0. ) COVAL(PW4 ,C10 , GRND3 ,0. ) PATCH(OB5 ,NWALL , 1, 60, 30, 30, 1, 30, 1, 1) COVAL(OB5 ,U1 , GRND2 ,0. ) COVAL(OB5 ,W1 , GRND2 ,0. ) COVAL(OB5 ,KE , GRND2 , GRND2 ) COVAL(OB5 ,EP , GRND2 , GRND2 ) PATCH(PW5 ,NORTH , 1, 60, 30, 30, 1, 30, 1, 1) COVAL(PW5 ,C6 , GRND3 ,0. ) COVAL(PW5 ,C7 , GRND3 ,0. ) COVAL(PW5 ,C8 , GRND3 ,0. ) COVAL(PW5 ,C9 , GRND3 ,0. ) COVAL(PW5 ,C10 , GRND3 ,0. ) PATCH(OB6 ,LWALL , 1, 60, 1, 30, 1, 1, 1, 1) COVAL(OB6 ,U1 , GRND2 ,0. ) COVAL(OB6 ,V1 , GRND2 ,0. ) COVAL(OB6 ,KE , GRND2 , GRND2 ) COVAL(OB6 ,EP , GRND2 , GRND2 ) PATCH(PW6 ,LOW , 1, 60, 1, 30, 1, 1, 1, 1) COVAL(PW6 ,C6 , GRND3 ,0. ) COVAL(PW6 ,C7 , GRND3 ,0. ) COVAL(PW6 ,C8 , GRND3 ,0. ) COVAL(PW6 ,C9 , GRND3 ,0. ) COVAL(PW6 ,C10 , GRND3 ,0. ) XCYCLE = F EGWF = T WALLCO = GRND2 BUOYA =0. ; BUOYB =0. ; BUOYC =-9.81 ************************************************************ Group 14. Downstream Pressure For PARAB ************************************************************ Group 15. Terminate Sweeps LSWEEP = 500 ;ISWC1 = 1 LITHYD = 1 ;LITFLX = 1 ;LITC = 1 ;ITHC1 = 1 SELREF = T RESFAC =1.0E-05 ************************************************************ Group 16. Terminate Iterations LITER(P1)=200 ;LITER(U1)=10 LITER(V1)=10 ;LITER(W1)=10 LITER(KE)=20 ;LITER(EP)=20 LITER(C6)=20 ;LITER(C7)=20 LITER(C8)=20 ;LITER(C9)=20 LITER(C10)=20 ENDIT(P1)=1.0E-03 ;ENDIT(U1)=1.0E-03 ENDIT(V1)=1.0E-03 ;ENDIT(W1)=1.0E-03 ENDIT(KE)=1.0E-03 ;ENDIT(EP)=1.0E-03 ENDIT(C6)=1.0E-03 ;ENDIT(C7)=1.0E-03 ENDIT(C8)=1.0E-03 ;ENDIT(C9)=1.0E-03 ENDIT(C10)=1.0E-03 ************************************************************ Group 17. Relaxation RELAX(P1,LINRLX,1.) RELAX(U1,FALSDT,1.) RELAX(V1,FALSDT,1.) RELAX(W1,FALSDT,1.) RELAX(KE,LINRLX,0.5) RELAX(EP,LINRLX,0.5) RELAX(C6,LINRLX,0.5) RELAX(C7,LINRLX,0.5) RELAX(C8,LINRLX,0.5) RELAX(C9,LINRLX,0.5) RELAX(C10,LINRLX,0.5) RELAX(ENUN,LINRLX,1.) RELAX(DI5,LINRLX,1.) RELAX(DI4,LINRLX,1.) RELAX(DI3,LINRLX,1.) RELAX(DI2,LINRLX,1.) RELAX(VP5,LINRLX,1.) RELAX(TP5,LINRLX,1.) RELAX(VP4,LINRLX,1.) RELAX(TP4,LINRLX,1.) RELAX(VP3,LINRLX,1.) RELAX(TP3,LINRLX,1.) RELAX(VP2,LINRLX,1.) RELAX(TP2,LINRLX,1.) RELAX(VS5,LINRLX,1.) RELAX(TR5,LINRLX,1.) RELAX(VD5,LINRLX,1.) RELAX(DEP5,LINRLX,1.) RELAX(VS4,LINRLX,1.) RELAX(TR4,LINRLX,1.) RELAX(VD4,LINRLX,1.) RELAX(DEP4,LINRLX,1.) RELAX(VS3,LINRLX,1.) RELAX(TR3,LINRLX,1.) RELAX(VP1,LINRLX,1.) RELAX(TP1,LINRLX,1.) RELAX(DI1,LINRLX,1.) RELAX(VS1,LINRLX,1.) RELAX(TR1,LINRLX,1.) RELAX(VD1,LINRLX,1.) RELAX(VD3,LINRLX,1.) RELAX(VSTR,LINRLX,1.) RELAX(DEP1,LINRLX,1.) RELAX(DEP3,LINRLX,1.) RELAX(VS2,LINRLX,1.) RELAX(ENUL,LINRLX,1.) RELAX(TR2,LINRLX,1.) RELAX(VD2,LINRLX,1.) RELAX(DEP2,LINRLX,1.) RELAX(YPLS,LINRLX,1.) RELAX(STRS,LINRLX,1.) RELAX(EPKE,LINRLX,1.) RELAX(DEN1,LINRLX,1.) RELAX(EL1,LINRLX,1.) RELAX(ENUT,LINRLX,1.) KELIN = 3 OVRRLX =0. EXPERT = F ;NNORSL = F ************************************************************ Group 18. Limits VARMAX(P1)=1.0E+10 ;VARMIN(P1)=-1.0E+10 VARMAX(U1)=1.0E+06 ;VARMIN(U1)=-1.0E+06 VARMAX(V1)=1.0E+06 ;VARMIN(V1)=-1.0E+06 VARMAX(W1)=1.0E+06 ;VARMIN(W1)=-1.0E+06 VARMAX(KE)=1.0E+10 ;VARMIN(KE)=1.0E-10 VARMAX(EP)=1.0E+10 ;VARMIN(EP)=1.0E-10 VARMAX(C6)=1. ;VARMIN(C6)=0. VARMAX(C7)=1. ;VARMIN(C7)=0. VARMAX(C8)=1. ;VARMIN(C8)=0. VARMAX(C9)=1. ;VARMIN(C9)=0. VARMAX(C10)=1. ;VARMIN(C10)=0. VARMAX(ENUN)=1.0E+10 ;VARMIN(ENUN)=-1.0E+10 VARMAX(DI5)=1.0E+10 ;VARMIN(DI5)=-1.0E+10 VARMAX(DI4)=1.0E+10 ;VARMIN(DI4)=-1.0E+10 VARMAX(DI3)=1.0E+10 ;VARMIN(DI3)=-1.0E+10 VARMAX(DI2)=1.0E+10 ;VARMIN(DI2)=-1.0E+10 VARMAX(VP5)=1.0E+10 ;VARMIN(VP5)=-1.0E+10 VARMAX(TP5)=1.0E+10 ;VARMIN(TP5)=-1.0E+10 VARMAX(VP4)=1.0E+10 ;VARMIN(VP4)=-1.0E+10 VARMAX(TP4)=1.0E+10 ;VARMIN(TP4)=-1.0E+10 VARMAX(VP3)=1.0E+10 ;VARMIN(VP3)=-1.0E+10 VARMAX(TP3)=1.0E+10 ;VARMIN(TP3)=-1.0E+10 VARMAX(VP2)=1.0E+10 ;VARMIN(VP2)=-1.0E+10 VARMAX(TP2)=1.0E+10 ;VARMIN(TP2)=-1.0E+10 VARMAX(VS5)=1.0E+10 ;VARMIN(VS5)=-1.0E+10 VARMAX(TR5)=1.0E+10 ;VARMIN(TR5)=-1.0E+10 VARMAX(VD5)=1.0E+10 ;VARMIN(VD5)=-1.0E+10 VARMAX(DEP5)=1.0E+10 ;VARMIN(DEP5)=-1.0E+10 VARMAX(VS4)=1.0E+10 ;VARMIN(VS4)=-1.0E+10 VARMAX(TR4)=1.0E+10 ;VARMIN(TR4)=-1.0E+10 VARMAX(VD4)=1.0E+10 ;VARMIN(VD4)=-1.0E+10 VARMAX(DEP4)=1.0E+10 ;VARMIN(DEP4)=-1.0E+10 VARMAX(VS3)=1.0E+10 ;VARMIN(VS3)=-1.0E+10 VARMAX(TR3)=1.0E+10 ;VARMIN(TR3)=-1.0E+10 VARMAX(VP1)=1.0E+10 ;VARMIN(VP1)=-1.0E+10 VARMAX(TP1)=1.0E+10 ;VARMIN(TP1)=-1.0E+10 VARMAX(DI1)=1.0E+10 ;VARMIN(DI1)=-1.0E+10 VARMAX(VS1)=1.0E+10 ;VARMIN(VS1)=-1.0E+10 VARMAX(TR1)=1.0E+10 ;VARMIN(TR1)=-1.0E+10 VARMAX(VD1)=1.0E+10 ;VARMIN(VD1)=-1.0E+10 VARMAX(VD3)=1.0E+10 ;VARMIN(VD3)=-1.0E+10 VARMAX(VSTR)=1.0E+10 ;VARMIN(VSTR)=-1.0E+10 VARMAX(DEP1)=1.0E+10 ;VARMIN(DEP1)=-1.0E+10 VARMAX(DEP3)=1.0E+10 ;VARMIN(DEP3)=-1.0E+10 VARMAX(VS2)=1.0E+10 ;VARMIN(VS2)=-1.0E+10 VARMAX(ENUL)=1.0E+10 ;VARMIN(ENUL)=-1.0E+10 VARMAX(TR2)=1.0E+10 ;VARMIN(TR2)=-1.0E+10 VARMAX(VD2)=1.0E+10 ;VARMIN(VD2)=-1.0E+10 VARMAX(DEP2)=1.0E+10 ;VARMIN(DEP2)=-1.0E+10 VARMAX(YPLS)=1.0E+10 ;VARMIN(YPLS)=-1.0E+10 VARMAX(STRS)=1.0E+10 ;VARMIN(STRS)=-1.0E+10 VARMAX(EPKE)=1.0E+10 ;VARMIN(EPKE)=-1.0E+10 VARMAX(DEN1)=1.0E+10 ;VARMIN(DEN1)=-1.0E+10 VARMAX(EL1)=1.0E+10 ;VARMIN(EL1)=-1.0E+10 VARMAX(ENUT)=1.0E+10 ;VARMIN(ENUT)=-1.0E+10 ************************************************************ Group 19. Data transmitted to GROUND NAMGRD =FLAR GENK = T PARSOL = F ISG62 = 0 SPEDAT(SET,DOMAIN,PHASE_1_MAT,I,2) SPEDAT(SET,DFLUX,DFMODL,L,T) SPEDAT(SET,DFLUX,DEPOMOD,I,3) SPEDAT(SET,DFLUX,DENP1,R,1400.) SPEDAT(SET,DFLUX,DIAP1,R,1.0E-06) SPEDAT(SET,DFLUX,DENP2,R,1200.) SPEDAT(SET,DFLUX,DIAP2,R,2.8E-06) SPEDAT(SET,DFLUX,DENP3,R,1200.) SPEDAT(SET,DFLUX,DIAP3,R,5.2E-06) SPEDAT(SET,DFLUX,DENP4,R,1000.) SPEDAT(SET,DFLUX,DIAP4,R,9.1E-06) SPEDAT(SET,DFLUX,DENP5,R,1000.) SPEDAT(SET,DFLUX,DIAP5,R,1.6E-05) SPEDAT(SET,STORED,ENUN,C,=ENUT/(0.152*0.43)!ZSLFIN) SPEDAT(SET,MAKE,VS_NX,C,=0) SPEDAT(SET,STORED,VS_NX,C,=VSTR[60&15&1]!ZSLFIN) SPEDAT(SET,PRINT,V*,C,=VS_NX) SPEDAT(SET,MAKE,YP_NX,C,=0) SPEDAT(SET,STORED,YP_NX,C,=YPLS[60&15&1]!ZSLFIN) SPEDAT(SET,PRINT,Y+,C,=YP_NX) SPEDAT(SET,MAKE,TR_1,C,=0) SPEDAT(SET,STORED,TR_1,C,=TR1[60&15&1]!ZSLFIN) SPEDAT(SET,PRINT,TR_1,C,=TR_1) SPEDAT(SET,MAKE,VD_1,C,=0) SPEDAT(SET,STORED,VD_1,C,=VD1[60&15&1]!ZSLFIN) SPEDAT(SET,PRINT,VD_1,C,=VD_1) SPEDAT(SET,MAKE,TP_1,C,=0) SPEDAT(SET,STORED,TP_1,C,=TP1[60&15&1]!ZSLFIN) SPEDAT(SET,PRINT,TR+_1,C,=TP_1) SPEDAT(SET,MAKE,VP_1,C,=0) SPEDAT(SET,STORED,VP_1,C,=VP1[60&15&1]!ZSLFIN) SPEDAT(SET,PRINT,VD+_1,C,=VP_1) SPEDAT(SET,MAKE,TR_2,C,=0) SPEDAT(SET,STORED,TR_2,C,=TR2[60&15&1]!ZSLFIN) SPEDAT(SET,PRINT,TR_2,C,=TR_2) SPEDAT(SET,MAKE,VD_2,C,=0) SPEDAT(SET,STORED,VD_2,C,=VD2[60&15&1]!ZSLFIN) SPEDAT(SET,PRINT,VD_2,C,=VD_2) SPEDAT(SET,MAKE,TP_2,C,=0) SPEDAT(SET,STORED,TP_2,C,=TP2[60&15&1]!ZSLFIN) SPEDAT(SET,PRINT,TR+_2,C,=TP_2) SPEDAT(SET,MAKE,VP_2,C,=0) SPEDAT(SET,STORED,VP_2,C,=VP2[60&15&1]!ZSLFIN) SPEDAT(SET,PRINT,VD+_2,C,=VP_2) SPEDAT(SET,MAKE,TR_3,C,=0) SPEDAT(SET,STORED,TR_3,C,=TR3[60&15&1]!ZSLFIN) SPEDAT(SET,PRINT,TR_3,C,=TR_3) SPEDAT(SET,MAKE,VD_3,C,=0) SPEDAT(SET,STORED,VD_3,C,=VD3[60&15&1]!ZSLFIN) SPEDAT(SET,PRINT,VD_3,C,=VD_3) SPEDAT(SET,MAKE,TP_3,C,=0) SPEDAT(SET,STORED,TP_3,C,=TP3[60&15&1]!ZSLFIN) SPEDAT(SET,PRINT,TR+_3,C,=TP_3) SPEDAT(SET,MAKE,VP_3,C,=0) SPEDAT(SET,STORED,VP_3,C,=VP3[60&15&1]!ZSLFIN) SPEDAT(SET,PRINT,VD+_3,C,=VP_3) SPEDAT(SET,MAKE,TR_4,C,=0) SPEDAT(SET,STORED,TR_4,C,=TR4[60&15&1]!ZSLFIN) SPEDAT(SET,PRINT,TR_4,C,=TR_4) SPEDAT(SET,MAKE,VD_4,C,=0) SPEDAT(SET,STORED,VD_4,C,=VD4[60&15&1]!ZSLFIN) SPEDAT(SET,PRINT,VD_4,C,=VD_4) SPEDAT(SET,MAKE,TP_4,C,=0) SPEDAT(SET,STORED,TP_4,C,=TP4[60&15&1]!ZSLFIN) SPEDAT(SET,PRINT,TR+_4,C,=TP_4) SPEDAT(SET,MAKE,VP_4,C,=0) SPEDAT(SET,STORED,VP_4,C,=VP4[60&15&1]!ZSLFIN) SPEDAT(SET,PRINT,VD+_4,C,=VP_4) SPEDAT(SET,MAKE,TR_5,C,=0) SPEDAT(SET,STORED,TR_5,C,=TR5[60&15&1]!ZSLFIN) SPEDAT(SET,PRINT,TR_5,C,=TR_5) SPEDAT(SET,MAKE,VD_5,C,=0) SPEDAT(SET,STORED,VD_5,C,=VD5[60&15&1]!ZSLFIN) SPEDAT(SET,PRINT,VD_5,C,=VD_5) SPEDAT(SET,MAKE,TP_5,C,=0) SPEDAT(SET,STORED,TP_5,C,=TP5[60&15&1]!ZSLFIN) SPEDAT(SET,PRINT,TR+_5,C,=TP_5) SPEDAT(SET,MAKE,VP_5,C,=0) SPEDAT(SET,STORED,VP_5,C,=VP5[60&15&1]!ZSLFIN) SPEDAT(SET,PRINT,VD+_5,C,=VP_5) SPEDAT(SET,GXMONI,PLOTALL,L,T) SPEDAT(SET,OBJNAM,!OB1,C,INL) SPEDAT(SET,OBJTYP,!OB1,C,INLET) SPEDAT(SET,OBJNAM,!OB2,C,OUTL) SPEDAT(SET,OBJTYP,!OB2,C,OPENING) SPEDAT(SET,ARATIO,!OB2,R,1.) SPEDAT(SET,OBJNAM,!OB3,C,HWAL) SPEDAT(SET,OBJTYP,!OB3,C,PLATE) SPEDAT(SET,OBJNAM,!PW3,C,HWAL) SPEDAT(SET,OBJTYP,!PW3,C,USER_DEFINED) SPEDAT(SET,OBJNAM,!OB4,C,SWAL) SPEDAT(SET,OBJTYP,!OB4,C,PLATE) SPEDAT(SET,OBJNAM,!PW4,C,SWAL) SPEDAT(SET,OBJTYP,!PW4,C,USER_DEFINED) SPEDAT(SET,OBJNAM,!OB5,C,NWAL) SPEDAT(SET,OBJTYP,!OB5,C,PLATE) SPEDAT(SET,OBJNAM,!PW5,C,NWAL) SPEDAT(SET,OBJTYP,!PW5,C,USER_DEFINED) SPEDAT(SET,OBJNAM,!OB6,C,LWAL) SPEDAT(SET,OBJTYP,!OB6,C,PLATE) SPEDAT(SET,OBJNAM,!PW6,C,LWAL) SPEDAT(SET,OBJTYP,!PW6,C,USER_DEFINED) SPEDAT(SET,FACETDAT,NUMOBJ,I,6) ************************************************************ Group 20. Preliminary Printout DISTIL = T ;NULLPR = F NDST = 0 DSTTOL =1.0E-02 EX(P1)=0.7165 ;EX(U1)=2.2 EX(V1)=1.884E-03 ;EX(W1)=1.884E-03 EX(KE)=0.02411 ;EX(EP)=0.3848 EX(C6)=0.9999 ;EX(C7)=0.9996 EX(C8)=0.999 ;EX(C9)=0.9978 EX(C10)=0.9584 ;EX(ENUN)=5.35E-03 EX(DI5)=3617. ;EX(DI4)=1.077E+04 EX(DI3)=1.038E+10 ;EX(DI2)=1.253E+11 EX(VP5)=3.239E-03 ;EX(TP5)=0.101 EX(VP4)=8.367E-04 ;EX(TP4)=0.03294 EX(VP3)=2.998E-04 ;EX(TP3)=0.01308 EX(VP2)=8.493E-05 ;EX(TP2)=3.894E-03 EX(VS5)=7.688E-03 ;EX(TR5)=7.837E-04 EX(VD5)=3.971E-04 ;EX(DEP5)=3.938E-04 EX(VS4)=2.506E-03 ;EX(TR4)=2.555E-04 EX(VD4)=1.013E-04 ;EX(DEP4)=1.177E-04 EX(VS3)=9.955E-04 ;EX(TR3)=1.015E-04 EX(VP1)=1.416E-05 ;EX(TP1)=6.379E-04 EX(DI1)=3.808E+21 ;EX(VS1)=4.816E-05 EX(TR1)=4.909E-06 ;EX(VD1)=1.7E-06 EX(VD3)=3.609E-05 ;EX(VSTR)=0.01587 EX(DEP1)=2.028E-06 ;EX(DEP3)=4.298E-05 EX(VS2)=2.963E-04 ;EX(ENUL)=1.526E-05 EX(TR2)=3.02E-05 ;EX(VD2)=1.019E-05 EX(DEP2)=1.219E-05 ;EX(YPLS)=2.619 EX(STRS)=1.98E-03 ;EX(EPKE)=9.658 EX(DEN1)=1.181 ;EX(EL1)=5.216E-03 EX(ENUT)=3.497E-04 ************************************************************ Group 21. Print-out of Variables INIFLD = F ;SUBWGR = F * Y in OUTPUT argument list denotes: * 1-field 2-correction-eq. monitor 3-selective dumping * 4-whole-field residual 5-spot-value table 6-residual table OUTPUT(P1,N,N,Y,Y,Y,Y) OUTPUT(U1,N,N,Y,Y,Y,Y) OUTPUT(V1,N,N,Y,Y,Y,Y) OUTPUT(W1,N,N,Y,Y,Y,Y) OUTPUT(KE,N,N,Y,Y,Y,Y) OUTPUT(EP,N,N,Y,Y,Y,Y) OUTPUT(C6,N,N,Y,Y,Y,Y) OUTPUT(C7,N,N,Y,Y,Y,Y) OUTPUT(C8,N,N,Y,Y,Y,Y) OUTPUT(C9,N,N,Y,Y,Y,Y) OUTPUT(C10,N,N,Y,Y,Y,Y) OUTPUT(ENUN,N,N,Y,N,N,N) OUTPUT(DI5,N,N,Y,N,N,N) OUTPUT(DI4,N,N,Y,N,N,N) OUTPUT(DI3,N,N,Y,N,N,N) OUTPUT(DI2,N,N,Y,N,N,N) OUTPUT(VP5,N,N,Y,N,N,N) OUTPUT(TP5,N,N,Y,N,N,N) OUTPUT(VP4,N,N,Y,N,N,N) OUTPUT(TP4,N,N,Y,N,N,N) OUTPUT(VP3,N,N,Y,N,N,N) OUTPUT(TP3,N,N,Y,N,N,N) OUTPUT(VP2,N,N,Y,N,N,N) OUTPUT(TP2,N,N,Y,N,N,N) OUTPUT(VS5,N,N,Y,N,N,N) OUTPUT(TR5,N,N,Y,N,N,N) OUTPUT(VD5,N,N,Y,N,N,N) OUTPUT(DEP5,N,N,Y,N,N,N) OUTPUT(VS4,N,N,Y,N,N,N) OUTPUT(TR4,N,N,Y,N,N,N) OUTPUT(VD4,N,N,Y,N,N,N) OUTPUT(DEP4,N,N,Y,N,N,N) OUTPUT(VS3,N,N,Y,N,N,N) OUTPUT(TR3,N,N,Y,N,N,N) OUTPUT(VP1,N,N,Y,N,N,N) OUTPUT(TP1,N,N,Y,N,N,N) OUTPUT(DI1,N,N,Y,N,N,N) OUTPUT(VS1,N,N,Y,N,N,N) OUTPUT(TR1,N,N,Y,N,N,N) OUTPUT(VD1,N,N,Y,N,N,N) OUTPUT(VD3,N,N,Y,N,N,N) OUTPUT(VSTR,N,N,Y,N,N,N) OUTPUT(DEP1,N,N,Y,N,N,N) OUTPUT(DEP3,N,N,Y,N,N,N) OUTPUT(VS2,N,N,Y,N,N,N) OUTPUT(ENUL,N,N,Y,N,N,N) OUTPUT(TR2,N,N,Y,N,N,N) OUTPUT(VD2,N,N,Y,N,N,N) OUTPUT(DEP2,N,N,Y,N,N,N) OUTPUT(YPLS,N,N,Y,N,Y,Y) OUTPUT(STRS,N,N,Y,N,Y,Y) OUTPUT(EPKE,N,N,Y,N,N,N) OUTPUT(DEN1,N,N,Y,N,N,N) OUTPUT(EL1,N,N,Y,N,N,N) OUTPUT(ENUT,N,N,Y,N,N,N) ************************************************************ Group 22. Monitor Print-Out IXMON = 42 ;IYMON = 15 ;IZMON = 1 NPRMON = 100000 ;NPRMNT = 1 ;TSTSWP = -1 UWATCH = T ;USTEER = T HIGHLO = F ************************************************************ Group 23.Field Print-Out & Plot Control NPRINT = 100000 ;NUMCLS = 5 NXPRIN = -1 ;IXPRF = 1 ;IXPRL = 10000 NYPRIN = -1 ;IYPRF = 1 ;IYPRL = 10000 NZPRIN = -1 ;IZPRF = 1 ;IZPRL = 10000 XZPR = T ;YZPR = F IPLTF = 1 ;IPLTL = -1 ;NPLT = -1 ISWPRF = 1 ;ISWPRL = 100000 ITABL = 3 ;IPROF = 1 ABSIZ =0.5 ;ORSIZ =0.4 NTZPRF = 1 ;NCOLPF = 50 ICHR = 2 ;NCOLCO = 45 ;NROWCO = 20 No PATCHes yet used for this Group ************************************************************ Group 24. Dumps For Restarts SAVE = T ;NOWIPE = F NSAVE =CHAM STOP