TALK=T;RUN(1,1) ************************************************************ Group 1. Run Title and Number ************************************************************ ************************************************************ TEXT(Food Court CFD Simulation: with vents ) ************************************************************ ************************************************************ IRUNN = 1 ;LIBREF = 0 ************************************************************ Group 2. Time dependence STEADY = T ************************************************************ Group 3. X-Direction Grid Spacing CARTES = T NX = 80 XULAST =54. XFRAC(1)=9.837963E-03 ;XFRAC(2)=0.019676 XFRAC(3)=0.029514 ;XFRAC(4)=0.039352 XFRAC(5)=0.04919 ;XFRAC(6)=0.059028 XFRAC(7)=0.068866 ;XFRAC(8)=0.078704 XFRAC(9)=0.087963 ;XFRAC(10)=0.097222 XFRAC(11)=0.106481 ;XFRAC(12)=0.117477 XFRAC(13)=0.128472 ;XFRAC(14)=0.139468 XFRAC(15)=0.150463 ;XFRAC(16)=0.161458 XFRAC(17)=0.172454 ;XFRAC(18)=0.183449 XFRAC(19)=0.194444 ;XFRAC(20)=0.205185 XFRAC(21)=0.216111 ;XFRAC(22)=0.226852 XFRAC(23)=0.237593 ;XFRAC(24)=0.248519 XFRAC(25)=0.259259 ;XFRAC(26)=0.270185 XFRAC(27)=0.280926 ;XFRAC(28)=0.291667 XFRAC(29)=0.302593 ;XFRAC(30)=0.313333 XFRAC(31)=0.324074 ;XFRAC(32)=0.335 XFRAC(33)=0.345741 ;XFRAC(34)=0.356667 XFRAC(35)=0.363519 ;XFRAC(36)=0.37037 XFRAC(37)=0.380471 ;XFRAC(38)=0.390572 XFRAC(39)=0.400673 ;XFRAC(40)=0.410774 XFRAC(41)=0.420875 ;XFRAC(42)=0.430976 XFRAC(43)=0.441077 ;XFRAC(44)=0.451178 XFRAC(45)=0.461279 ;XFRAC(46)=0.47138 XFRAC(47)=0.481481 ;XFRAC(48)=0.490741 XFRAC(49)=0.5 ;XFRAC(50)=0.509259 XFRAC(51)=0.518519 ;XFRAC(52)=0.52963 XFRAC(53)=0.540741 ;XFRAC(54)=0.551852 XFRAC(55)=0.562963 ;XFRAC(56)=0.574074 XFRAC(57)=0.585185 ;XFRAC(58)=0.596296 XFRAC(59)=0.607407 ;XFRAC(60)=0.618519 XFRAC(61)=0.62963 ;XFRAC(62)=0.636481 XFRAC(63)=0.643333 ;XFRAC(64)=0.654259 XFRAC(65)=0.665 ;XFRAC(66)=0.675556 XFRAC(67)=0.681111 ;XFRAC(68)=0.686667 XFRAC(69)=0.697407 ;XFRAC(70)=0.708333 XFRAC(71)=0.719074 ;XFRAC(72)=0.729815 XFRAC(73)=0.740741 ;XFRAC(74)=0.751482 XFRAC(75)=0.762407 ;XFRAC(76)=0.773148 XFRAC(77)=0.783889 ;XFRAC(78)=0.794815 XFRAC(79)=0.805556 ;XFRAC(80)=1. ************************************************************ Group 4. Y-Direction Grid Spacing NY = 24 YVLAST =24. YFRAC(1)=0.041667 ;YFRAC(2)=0.077778 YFRAC(3)=0.113889 ;YFRAC(4)=0.15 YFRAC(5)=0.191146 ;YFRAC(6)=0.211458 YFRAC(7)=0.215104 ;YFRAC(8)=0.265365 YFRAC(9)=0.315625 ;YFRAC(10)=0.349479 YFRAC(11)=0.383333 ;YFRAC(12)=0.419167 YFRAC(13)=0.455 ;YFRAC(14)=0.496667 YFRAC(15)=0.538333 ;YFRAC(16)=0.568333 YFRAC(17)=0.622292 ;YFRAC(18)=0.67625 YFRAC(19)=0.730208 ;YFRAC(20)=0.784167 YFRAC(21)=0.838125 ;YFRAC(22)=0.892083 YFRAC(23)=0.946042 ;YFRAC(24)=1. ************************************************************ Group 5. Z-Direction Grid Spacing PARAB = F NZ = 67 ZWLAST =139. ZFRAC(1)=0.016331 ;ZFRAC(2)=0.030719 ZFRAC(3)=0.04705 ;ZFRAC(4)=0.061439 ZFRAC(5)=0.07777 ;ZFRAC(6)=0.092158 ZFRAC(7)=0.108489 ;ZFRAC(8)=0.122878 ZFRAC(9)=0.139209 ;ZFRAC(10)=0.153597 ZFRAC(11)=0.169928 ;ZFRAC(12)=0.184317 ZFRAC(13)=0.200647 ;ZFRAC(14)=0.215036 ZFRAC(15)=0.231367 ;ZFRAC(16)=0.245755 ZFRAC(17)=0.262086 ;ZFRAC(18)=0.276475 ZFRAC(19)=0.292806 ;ZFRAC(20)=0.307194 ZFRAC(21)=0.323525 ;ZFRAC(22)=0.337914 ZFRAC(23)=0.354245 ;ZFRAC(24)=0.368633 ZFRAC(25)=0.384964 ;ZFRAC(26)=0.399352 ZFRAC(27)=0.415683 ;ZFRAC(28)=0.430072 ZFRAC(29)=0.446403 ;ZFRAC(30)=0.460791 ZFRAC(31)=0.477122 ;ZFRAC(32)=0.491511 ZFRAC(33)=0.508489 ;ZFRAC(34)=0.522878 ZFRAC(35)=0.539209 ;ZFRAC(36)=0.553597 ZFRAC(37)=0.569928 ;ZFRAC(38)=0.584317 ZFRAC(39)=0.600648 ;ZFRAC(40)=0.615036 ZFRAC(41)=0.631367 ;ZFRAC(42)=0.645755 ZFRAC(43)=0.662086 ;ZFRAC(44)=0.676475 ZFRAC(45)=0.692806 ;ZFRAC(46)=0.707194 ZFRAC(47)=0.723525 ;ZFRAC(48)=0.737914 ZFRAC(49)=0.754245 ;ZFRAC(50)=0.768633 ZFRAC(51)=0.784964 ;ZFRAC(52)=0.799353 ZFRAC(53)=0.815683 ;ZFRAC(54)=0.830072 ZFRAC(55)=0.846403 ;ZFRAC(56)=0.860791 ZFRAC(57)=0.877122 ;ZFRAC(58)=0.891511 ZFRAC(59)=0.907842 ;ZFRAC(60)=0.917266 ZFRAC(61)=0.92223 ;ZFRAC(62)=0.938561 ZFRAC(63)=0.938849 ;ZFRAC(64)=0.95295 ZFRAC(65)=0.969281 ;ZFRAC(66)=0.983669 ZFRAC(67)=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(16)=C1 ;NAME(145)=ENUT NAME(146)=LTLS ;NAME(147)=WDIS NAME(148)=DEN1 ;NAME(149)=TEM1 NAME(150)=PRPS * 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(C1,Y,Y,N,N,N,Y) SOLUTN(ENUT,Y,N,N,N,N,Y) SOLUTN(LTLS,Y,Y,Y,N,N,Y) SOLUTN(WDIS,Y,N,N,N,N,Y) SOLUTN(DEN1,Y,N,N,N,N,Y) SOLUTN(TEM1,Y,Y,Y,N,N,Y) SOLUTN(PRPS,Y,N,N,N,N,Y) DEN1 = 148 VIST = 145 PRPS = 150 ************************************************************ 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(C1,N,Y,Y,Y,Y,Y) TERMS(LTLS,N,N,Y,N,Y,Y) TERMS(TEM1,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 DENPCO = T ************************************************************ Group 9. Properties used if PRPS is not stored, and where PRPS = -1.0 if it is! RHO1 = GRND5 ;TMP1 =0. ;EL1 = GRND1 TSURR =0. ;TEMP0 =273. ;PRESS0 =1.0E+05 DVO1DT =3.33E-03 ;DRH1DP = GRND5 RHO1A =0. ;RHO1B =3.4843E-03 ;RHO1C =0.71429 EMISS =0. ;SCATT =0. RADIA =0. ;RADIB =0. EL1A =0. ;EL1B =1. ;EL1C =0. ENUL = GRND2 ;ENUT = GRND8 ENULA =-4.94679E-06 ;ENULB =4.58394E-08 ;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(C1)=1. PRNDTL(LTLS)=1. ;PRNDTL(TEM1)=-0.0263 PRT(U1)=1. ;PRT(V1)=1. PRT(W1)=1. ;PRT(C1)=1. PRT(LTLS)=1. ;PRT(TEM1)=1. CP1 =1004. ;CP2 =1. ************************************************************ Group 10.Inter-Phase Transfer Processes ************************************************************ Group 11.Initial field variables (PHIs) FIINIT(P1)=1.0E-10 ;FIINIT(U1)=1.0E-10 FIINIT(V1)=1.0E-10 ;FIINIT(W1)=1.0E-10 FIINIT(C1)=1.0E-10 ;FIINIT(ENUT)=1.0E-10 FIINIT(LTLS)=1.0E-10 ;FIINIT(WDIS)=2.4 FIINIT(DEN1)=1.0E-10 ;FIINIT(TEM1)=30. FIINIT(PRPS)=-1. PATCH(OB2 ,INIVAL, 9, 11, 1, 1, 61, 63, 1, 1) INIT(OB2 ,C1 ,0. ,0. ) INIT(OB2 ,PRPS,0. ,-3. ) PATCH(^OB10 ,INIVAL, 16, 0, 0, 0, 0, 0, 1, 1) INIT(^OB10 ,PRPS,0. ,198. ) PATCH(OB11 ,INIVAL, 35, 63, 14, 15, 2, 2, 1, 1) INIT(OB11 ,PRPS,0. ,2. ) PATCH(OB12 ,INIVAL, 34, 64, 14, 15, 4, 4, 1, 1) INIT(OB12 ,PRPS,0. ,2. ) PATCH(OB13 ,INIVAL, 33, 65, 14, 15, 6, 6, 1, 1) INIT(OB13 ,PRPS,0. ,2. ) PATCH(OB14 ,INIVAL, 32, 66, 14, 15, 8, 8, 1, 1) INIT(OB14 ,PRPS,0. ,2. ) PATCH(OB15 ,INIVAL, 31, 68, 14, 15, 10, 10, 1, 1) INIT(OB15 ,PRPS,0. ,2. ) PATCH(OB16 ,INIVAL, 30, 69, 14, 15, 12, 12, 1, 1) INIT(OB16 ,PRPS,0. ,2. ) PATCH(OB17 ,INIVAL, 29, 70, 14, 15, 14, 14, 1, 1) INIT(OB17 ,PRPS,0. ,2. ) PATCH(OB18 ,INIVAL, 28, 71, 14, 15, 16, 16, 1, 1) INIT(OB18 ,PRPS,0. ,2. ) PATCH(OB19 ,INIVAL, 27, 72, 14, 15, 18, 18, 1, 1) INIT(OB19 ,PRPS,0. ,2. ) PATCH(OB1A ,INIVAL, 26, 73, 14, 15, 20, 20, 1, 1) INIT(OB1A ,PRPS,0. ,2. ) PATCH(OB1B ,INIVAL, 25, 74, 14, 15, 22, 22, 1, 1) INIT(OB1B ,PRPS,0. ,2. ) PATCH(OB1C ,INIVAL, 24, 75, 14, 15, 24, 24, 1, 1) INIT(OB1C ,PRPS,0. ,2. ) PATCH(OB1D ,INIVAL, 23, 76, 14, 15, 26, 26, 1, 1) INIT(OB1D ,PRPS,0. ,2. ) PATCH(OB1E ,INIVAL, 22, 77, 14, 15, 28, 28, 1, 1) INIT(OB1E ,PRPS,0. ,2. ) PATCH(OB1F ,INIVAL, 21, 78, 14, 15, 30, 30, 1, 1) INIT(OB1F ,PRPS,0. ,2. ) PATCH(OB20 ,INIVAL, 20, 79, 14, 15, 32, 32, 1, 1) INIT(OB20 ,PRPS,0. ,2. ) PATCH(OB41 ,INIVAL, 20, 79, 14, 15, 34, 34, 1, 1) INIT(OB41 ,PRPS,0. ,2. ) PATCH(OB42 ,INIVAL, 21, 78, 14, 15, 36, 36, 1, 1) INIT(OB42 ,PRPS,0. ,2. ) PATCH(OB43 ,INIVAL, 22, 77, 14, 15, 38, 38, 1, 1) INIT(OB43 ,PRPS,0. ,2. ) PATCH(OB44 ,INIVAL, 23, 76, 14, 15, 40, 40, 1, 1) INIT(OB44 ,PRPS,0. ,2. ) PATCH(OB45 ,INIVAL, 24, 75, 14, 15, 42, 42, 1, 1) INIT(OB45 ,PRPS,0. ,2. ) PATCH(OB46 ,INIVAL, 25, 74, 14, 15, 44, 44, 1, 1) INIT(OB46 ,PRPS,0. ,2. ) PATCH(OB47 ,INIVAL, 26, 73, 14, 15, 46, 46, 1, 1) INIT(OB47 ,PRPS,0. ,2. ) PATCH(OB48 ,INIVAL, 27, 72, 14, 15, 48, 48, 1, 1) INIT(OB48 ,PRPS,0. ,2. ) PATCH(OB49 ,INIVAL, 28, 71, 14, 15, 50, 50, 1, 1) INIT(OB49 ,PRPS,0. ,2. ) PATCH(OB4A ,INIVAL, 29, 70, 14, 15, 52, 52, 1, 1) INIT(OB4A ,PRPS,0. ,2. ) PATCH(OB4B ,INIVAL, 30, 69, 14, 15, 54, 54, 1, 1) INIT(OB4B ,PRPS,0. ,2. ) PATCH(OB4C ,INIVAL, 31, 68, 14, 15, 56, 56, 1, 1) INIT(OB4C ,PRPS,0. ,2. ) PATCH(OB4D ,INIVAL, 32, 66, 14, 15, 58, 58, 1, 1) INIT(OB4D ,PRPS,0. ,2. ) PATCH(OB4E ,INIVAL, 33, 65, 14, 15, 60, 61, 1, 1) INIT(OB4E ,PRPS,0. ,2. ) PATCH(OB4F ,INIVAL, 34, 64, 14, 15, 63, 64, 1, 1) INIT(OB4F ,PRPS,0. ,2. ) PATCH(OB50 ,INIVAL, 35, 63, 14, 15, 66, 66, 1, 1) INIT(OB50 ,PRPS,0. ,2. ) 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(BUOYANCY,PHASEM, 1, 80, 1, 24, 1, 67, 1, 1) COVAL(BUOYANCY,U1 , FIXFLU , GRND2 ) COVAL(BUOYANCY,V1 , FIXFLU , GRND2 ) COVAL(BUOYANCY,W1 , FIXFLU , GRND2 ) PATCH(OB1 ,LOW , 37, 61, 1, 4, 1, 1, 1, 1) COVAL(OB1 ,P1 ,1000. ,0. ) COVAL(OB1 ,U1 ,0. ,0. ) COVAL(OB1 ,V1 ,0. ,0. ) COVAL(OB1 ,W1 ,0. ,0. ) COVAL(OB1 ,TEM1,0. ,30. ) PATCH(OC2 ,VOLUME, 9, 11, 1, 1, 61, 63, 1, 1) COVAL(OC2 ,C1 , FIXVAL ,1. ) COVAL(OC2 ,TEM1, FIXFLU ,5.555556E+05 ) PATCH(OB3 ,HIGH , 48, 51, 7, 9, 67, 67, 1, 1) COVAL(OB3 ,P1 ,1000. ,0. ) COVAL(OB3 ,U1 ,0. ,0. ) COVAL(OB3 ,V1 ,0. ,0. ) COVAL(OB3 ,W1 ,0. ,0. ) COVAL(OB3 ,TEM1,0. ,30. ) PATCH(OB4 ,LOW , 37, 61, 7, 11, 1, 1, 1, 1) COVAL(OB4 ,P1 ,1000. ,0. ) COVAL(OB4 ,U1 ,0. ,0. ) COVAL(OB4 ,V1 ,0. ,0. ) COVAL(OB4 ,W1 ,0. ,0. ) COVAL(OB4 ,TEM1,0. ,30. ) PATCH(OB21 ,EAST , 63, 63, 14, 15, 2, 2, 1, 1) COVAL(OB21 ,P1 ,1000. ,0. ) COVAL(OB21 ,U1 ,0. ,0. ) COVAL(OB21 ,V1 ,0. ,0. ) COVAL(OB21 ,W1 ,0. ,0. ) COVAL(OB21 ,TEM1,0. ,30. ) PATCH(OB22 ,EAST , 64, 64, 14, 15, 4, 4, 1, 1) COVAL(OB22 ,P1 ,1000. ,0. ) COVAL(OB22 ,U1 ,0. ,0. ) COVAL(OB22 ,V1 ,0. ,0. ) COVAL(OB22 ,W1 ,0. ,0. ) COVAL(OB22 ,TEM1,0. ,30. ) PATCH(OB23 ,EAST , 65, 65, 14, 15, 6, 6, 1, 1) COVAL(OB23 ,P1 ,1000. ,0. ) COVAL(OB23 ,U1 ,0. ,0. ) COVAL(OB23 ,V1 ,0. ,0. ) COVAL(OB23 ,W1 ,0. ,0. ) COVAL(OB23 ,TEM1,0. ,30. ) PATCH(OB24 ,EAST , 66, 66, 14, 15, 8, 8, 1, 1) COVAL(OB24 ,P1 ,1000. ,0. ) COVAL(OB24 ,U1 ,0. ,0. ) COVAL(OB24 ,V1 ,0. ,0. ) COVAL(OB24 ,W1 ,0. ,0. ) COVAL(OB24 ,TEM1,0. ,30. ) PATCH(OB25 ,EAST , 68, 68, 14, 15, 10, 10, 1, 1) COVAL(OB25 ,P1 ,1000. ,0. ) COVAL(OB25 ,U1 ,0. ,0. ) COVAL(OB25 ,V1 ,0. ,0. ) COVAL(OB25 ,W1 ,0. ,0. ) COVAL(OB25 ,TEM1,0. ,30. ) PATCH(OB26 ,EAST , 69, 69, 14, 15, 12, 12, 1, 1) COVAL(OB26 ,P1 ,1000. ,0. ) COVAL(OB26 ,U1 ,0. ,0. ) COVAL(OB26 ,V1 ,0. ,0. ) COVAL(OB26 ,W1 ,0. ,0. ) COVAL(OB26 ,TEM1,0. ,30. ) PATCH(OB27 ,EAST , 70, 70, 14, 15, 14, 14, 1, 1) COVAL(OB27 ,P1 ,1000. ,0. ) COVAL(OB27 ,U1 ,0. ,0. ) COVAL(OB27 ,V1 ,0. ,0. ) COVAL(OB27 ,W1 ,0. ,0. ) COVAL(OB27 ,TEM1,0. ,30. ) PATCH(OB28 ,EAST , 71, 71, 14, 15, 16, 16, 1, 1) COVAL(OB28 ,P1 ,1000. ,0. ) COVAL(OB28 ,U1 ,0. ,0. ) COVAL(OB28 ,V1 ,0. ,0. ) COVAL(OB28 ,W1 ,0. ,0. ) COVAL(OB28 ,TEM1,0. ,30. ) PATCH(OB29 ,EAST , 72, 72, 14, 15, 18, 18, 1, 1) COVAL(OB29 ,P1 ,1000. ,0. ) COVAL(OB29 ,U1 ,0. ,0. ) COVAL(OB29 ,V1 ,0. ,0. ) COVAL(OB29 ,W1 ,0. ,0. ) COVAL(OB29 ,TEM1,0. ,30. ) PATCH(OB2A ,EAST , 73, 73, 14, 15, 20, 20, 1, 1) COVAL(OB2A ,P1 ,1000. ,0. ) COVAL(OB2A ,U1 ,0. ,0. ) COVAL(OB2A ,V1 ,0. ,0. ) COVAL(OB2A ,W1 ,0. ,0. ) COVAL(OB2A ,TEM1,0. ,30. ) PATCH(OB2B ,EAST , 74, 74, 14, 15, 22, 22, 1, 1) COVAL(OB2B ,P1 ,1000. ,0. ) COVAL(OB2B ,U1 ,0. ,0. ) COVAL(OB2B ,V1 ,0. ,0. ) COVAL(OB2B ,W1 ,0. ,0. ) COVAL(OB2B ,TEM1,0. ,30. ) PATCH(OB2C ,EAST , 75, 75, 14, 15, 24, 24, 1, 1) COVAL(OB2C ,P1 ,1000. ,0. ) COVAL(OB2C ,U1 ,0. ,0. ) COVAL(OB2C ,V1 ,0. ,0. ) COVAL(OB2C ,W1 ,0. ,0. ) COVAL(OB2C ,TEM1,0. ,30. ) PATCH(OB2D ,EAST , 76, 76, 14, 15, 26, 26, 1, 1) COVAL(OB2D ,P1 ,1000. ,0. ) COVAL(OB2D ,U1 ,0. ,0. ) COVAL(OB2D ,V1 ,0. ,0. ) COVAL(OB2D ,W1 ,0. ,0. ) COVAL(OB2D ,TEM1,0. ,30. ) PATCH(OB2E ,EAST , 77, 77, 14, 15, 28, 28, 1, 1) COVAL(OB2E ,P1 ,1000. ,0. ) COVAL(OB2E ,U1 ,0. ,0. ) COVAL(OB2E ,V1 ,0. ,0. ) COVAL(OB2E ,W1 ,0. ,0. ) COVAL(OB2E ,TEM1,0. ,30. ) PATCH(OB2F ,EAST , 78, 78, 14, 15, 30, 30, 1, 1) COVAL(OB2F ,P1 ,1000. ,0. ) COVAL(OB2F ,U1 ,0. ,0. ) COVAL(OB2F ,V1 ,0. ,0. ) COVAL(OB2F ,W1 ,0. ,0. ) COVAL(OB2F ,TEM1,0. ,30. ) PATCH(OB30 ,EAST , 79, 79, 14, 15, 32, 32, 1, 1) COVAL(OB30 ,P1 ,1000. ,0. ) COVAL(OB30 ,U1 ,0. ,0. ) COVAL(OB30 ,V1 ,0. ,0. ) COVAL(OB30 ,W1 ,0. ,0. ) COVAL(OB30 ,TEM1,0. ,30. ) PATCH(OB31 ,WEST , 35, 35, 14, 15, 2, 2, 1, 1) COVAL(OB31 ,P1 ,1000. ,0. ) COVAL(OB31 ,U1 ,0. ,0. ) COVAL(OB31 ,V1 ,0. ,0. ) COVAL(OB31 ,W1 ,0. ,0. ) COVAL(OB31 ,TEM1,0. ,30. ) PATCH(OB32 ,WEST , 34, 34, 14, 15, 4, 4, 1, 1) COVAL(OB32 ,P1 ,1000. ,0. ) COVAL(OB32 ,U1 ,0. ,0. ) COVAL(OB32 ,V1 ,0. ,0. ) COVAL(OB32 ,W1 ,0. ,0. ) COVAL(OB32 ,TEM1,0. ,30. ) PATCH(OB33 ,WEST , 33, 33, 14, 15, 6, 6, 1, 1) COVAL(OB33 ,P1 ,1000. ,0. ) COVAL(OB33 ,U1 ,0. ,0. ) COVAL(OB33 ,V1 ,0. ,0. ) COVAL(OB33 ,W1 ,0. ,0. ) COVAL(OB33 ,TEM1,0. ,30. ) PATCH(OB34 ,WEST , 32, 32, 14, 15, 8, 8, 1, 1) COVAL(OB34 ,P1 ,1000. ,0. ) COVAL(OB34 ,U1 ,0. ,0. ) COVAL(OB34 ,V1 ,0. ,0. ) COVAL(OB34 ,W1 ,0. ,0. ) COVAL(OB34 ,TEM1,0. ,30. ) PATCH(OB35 ,WEST , 31, 31, 14, 15, 10, 10, 1, 1) COVAL(OB35 ,P1 ,1000. ,0. ) COVAL(OB35 ,U1 ,0. ,0. ) COVAL(OB35 ,V1 ,0. ,0. ) COVAL(OB35 ,W1 ,0. ,0. ) COVAL(OB35 ,TEM1,0. ,30. ) PATCH(OB36 ,WEST , 30, 30, 14, 15, 12, 12, 1, 1) COVAL(OB36 ,P1 ,1000. ,0. ) COVAL(OB36 ,U1 ,0. ,0. ) COVAL(OB36 ,V1 ,0. ,0. ) COVAL(OB36 ,W1 ,0. ,0. ) COVAL(OB36 ,TEM1,0. ,30. ) PATCH(OB37 ,WEST , 29, 29, 14, 15, 14, 14, 1, 1) COVAL(OB37 ,P1 ,1000. ,0. ) COVAL(OB37 ,U1 ,0. ,0. ) COVAL(OB37 ,V1 ,0. ,0. ) COVAL(OB37 ,W1 ,0. ,0. ) COVAL(OB37 ,TEM1,0. ,30. ) PATCH(OB38 ,WEST , 28, 28, 14, 15, 16, 16, 1, 1) COVAL(OB38 ,P1 ,1000. ,0. ) COVAL(OB38 ,U1 ,0. ,0. ) COVAL(OB38 ,V1 ,0. ,0. ) COVAL(OB38 ,W1 ,0. ,0. ) COVAL(OB38 ,TEM1,0. ,30. ) PATCH(OB39 ,WEST , 27, 27, 14, 15, 18, 18, 1, 1) COVAL(OB39 ,P1 ,1000. ,0. ) COVAL(OB39 ,U1 ,0. ,0. ) COVAL(OB39 ,V1 ,0. ,0. ) COVAL(OB39 ,W1 ,0. ,0. ) COVAL(OB39 ,TEM1,0. ,30. ) PATCH(OB3A ,WEST , 26, 26, 14, 15, 20, 20, 1, 1) COVAL(OB3A ,P1 ,1000. ,0. ) COVAL(OB3A ,U1 ,0. ,0. ) COVAL(OB3A ,V1 ,0. ,0. ) COVAL(OB3A ,W1 ,0. ,0. ) COVAL(OB3A ,TEM1,0. ,30. ) PATCH(OB3B ,WEST , 25, 25, 14, 15, 22, 22, 1, 1) COVAL(OB3B ,P1 ,1000. ,0. ) COVAL(OB3B ,U1 ,0. ,0. ) COVAL(OB3B ,V1 ,0. ,0. ) COVAL(OB3B ,W1 ,0. ,0. ) COVAL(OB3B ,TEM1,0. ,30. ) PATCH(OB3C ,WEST , 24, 24, 14, 15, 24, 24, 1, 1) COVAL(OB3C ,P1 ,1000. ,0. ) COVAL(OB3C ,U1 ,0. ,0. ) COVAL(OB3C ,V1 ,0. ,0. ) COVAL(OB3C ,W1 ,0. ,0. ) COVAL(OB3C ,TEM1,0. ,30. ) PATCH(OB3D ,WEST , 23, 23, 14, 15, 26, 26, 1, 1) COVAL(OB3D ,P1 ,1000. ,0. ) COVAL(OB3D ,U1 ,0. ,0. ) COVAL(OB3D ,V1 ,0. ,0. ) COVAL(OB3D ,W1 ,0. ,0. ) COVAL(OB3D ,TEM1,0. ,30. ) PATCH(OB3E ,WEST , 22, 22, 14, 15, 28, 28, 1, 1) COVAL(OB3E ,P1 ,1000. ,0. ) COVAL(OB3E ,U1 ,0. ,0. ) COVAL(OB3E ,V1 ,0. ,0. ) COVAL(OB3E ,W1 ,0. ,0. ) COVAL(OB3E ,TEM1,0. ,30. ) PATCH(OB3F ,WEST , 21, 21, 14, 15, 30, 30, 1, 1) COVAL(OB3F ,P1 ,1000. ,0. ) COVAL(OB3F ,U1 ,0. ,0. ) COVAL(OB3F ,V1 ,0. ,0. ) COVAL(OB3F ,W1 ,0. ,0. ) COVAL(OB3F ,TEM1,0. ,30. ) PATCH(OB40 ,WEST , 20, 20, 14, 15, 32, 32, 1, 1) COVAL(OB40 ,P1 ,1000. ,0. ) COVAL(OB40 ,U1 ,0. ,0. ) COVAL(OB40 ,V1 ,0. ,0. ) COVAL(OB40 ,W1 ,0. ,0. ) COVAL(OB40 ,TEM1,0. ,30. ) PATCH(OB51 ,EAST , 79, 79, 14, 15, 34, 34, 1, 1) COVAL(OB51 ,P1 ,1000. ,0. ) COVAL(OB51 ,U1 ,0. ,0. ) COVAL(OB51 ,V1 ,0. ,0. ) COVAL(OB51 ,W1 ,0. ,0. ) COVAL(OB51 ,TEM1,0. ,30. ) PATCH(OB52 ,EAST , 78, 78, 14, 15, 36, 36, 1, 1) COVAL(OB52 ,P1 ,1000. ,0. ) COVAL(OB52 ,U1 ,0. ,0. ) COVAL(OB52 ,V1 ,0. ,0. ) COVAL(OB52 ,W1 ,0. ,0. ) COVAL(OB52 ,TEM1,0. ,30. ) PATCH(OB53 ,EAST , 77, 77, 14, 15, 38, 38, 1, 1) COVAL(OB53 ,P1 ,1000. ,0. ) COVAL(OB53 ,U1 ,0. ,0. ) COVAL(OB53 ,V1 ,0. ,0. ) COVAL(OB53 ,W1 ,0. ,0. ) COVAL(OB53 ,TEM1,0. ,30. ) PATCH(OB54 ,EAST , 76, 76, 14, 15, 40, 40, 1, 1) COVAL(OB54 ,P1 ,1000. ,0. ) COVAL(OB54 ,U1 ,0. ,0. ) COVAL(OB54 ,V1 ,0. ,0. ) COVAL(OB54 ,W1 ,0. ,0. ) COVAL(OB54 ,TEM1,0. ,30. ) PATCH(OB55 ,EAST , 75, 75, 14, 15, 42, 42, 1, 1) COVAL(OB55 ,P1 ,1000. ,0. ) COVAL(OB55 ,U1 ,0. ,0. ) COVAL(OB55 ,V1 ,0. ,0. ) COVAL(OB55 ,W1 ,0. ,0. ) COVAL(OB55 ,TEM1,0. ,30. ) PATCH(OB56 ,EAST , 74, 74, 14, 15, 44, 44, 1, 1) COVAL(OB56 ,P1 ,1000. ,0. ) COVAL(OB56 ,U1 ,0. ,0. ) COVAL(OB56 ,V1 ,0. ,0. ) COVAL(OB56 ,W1 ,0. ,0. ) COVAL(OB56 ,TEM1,0. ,30. ) PATCH(OB57 ,EAST , 73, 73, 14, 15, 46, 46, 1, 1) COVAL(OB57 ,P1 ,1000. ,0. ) COVAL(OB57 ,U1 ,0. ,0. ) COVAL(OB57 ,V1 ,0. ,0. ) COVAL(OB57 ,W1 ,0. ,0. ) COVAL(OB57 ,TEM1,0. ,30. ) PATCH(OB58 ,EAST , 72, 72, 14, 15, 48, 48, 1, 1) COVAL(OB58 ,P1 ,1000. ,0. ) COVAL(OB58 ,U1 ,0. ,0. ) COVAL(OB58 ,V1 ,0. ,0. ) COVAL(OB58 ,W1 ,0. ,0. ) COVAL(OB58 ,TEM1,0. ,30. ) PATCH(OB59 ,EAST , 71, 71, 14, 15, 50, 50, 1, 1) COVAL(OB59 ,P1 ,1000. ,0. ) COVAL(OB59 ,U1 ,0. ,0. ) COVAL(OB59 ,V1 ,0. ,0. ) COVAL(OB59 ,W1 ,0. ,0. ) COVAL(OB59 ,TEM1,0. ,30. ) PATCH(OB5A ,EAST , 70, 70, 14, 15, 52, 52, 1, 1) COVAL(OB5A ,P1 ,1000. ,0. ) COVAL(OB5A ,U1 ,0. ,0. ) COVAL(OB5A ,V1 ,0. ,0. ) COVAL(OB5A ,W1 ,0. ,0. ) COVAL(OB5A ,TEM1,0. ,30. ) PATCH(OB5B ,EAST , 69, 69, 14, 15, 54, 54, 1, 1) COVAL(OB5B ,P1 ,1000. ,0. ) COVAL(OB5B ,U1 ,0. ,0. ) COVAL(OB5B ,V1 ,0. ,0. ) COVAL(OB5B ,W1 ,0. ,0. ) COVAL(OB5B ,TEM1,0. ,30. ) PATCH(OB5C ,EAST , 68, 68, 14, 15, 56, 56, 1, 1) COVAL(OB5C ,P1 ,1000. ,0. ) COVAL(OB5C ,U1 ,0. ,0. ) COVAL(OB5C ,V1 ,0. ,0. ) COVAL(OB5C ,W1 ,0. ,0. ) COVAL(OB5C ,TEM1,0. ,30. ) PATCH(OB5D ,EAST , 66, 66, 14, 15, 58, 58, 1, 1) COVAL(OB5D ,P1 ,1000. ,0. ) COVAL(OB5D ,U1 ,0. ,0. ) COVAL(OB5D ,V1 ,0. ,0. ) COVAL(OB5D ,W1 ,0. ,0. ) COVAL(OB5D ,TEM1,0. ,30. ) PATCH(OB5E ,EAST , 65, 65, 14, 15, 60, 61, 1, 1) COVAL(OB5E ,P1 ,1000. ,0. ) COVAL(OB5E ,U1 ,0. ,0. ) COVAL(OB5E ,V1 ,0. ,0. ) COVAL(OB5E ,W1 ,0. ,0. ) COVAL(OB5E ,TEM1,0. ,30. ) PATCH(OB5F ,EAST , 64, 64, 14, 15, 63, 64, 1, 1) COVAL(OB5F ,P1 ,1000. ,0. ) COVAL(OB5F ,U1 ,0. ,0. ) COVAL(OB5F ,V1 ,0. ,0. ) COVAL(OB5F ,W1 ,0. ,0. ) COVAL(OB5F ,TEM1,0. ,30. ) PATCH(OB60 ,EAST , 63, 63, 14, 15, 66, 66, 1, 1) COVAL(OB60 ,P1 ,1000. ,0. ) COVAL(OB60 ,U1 ,0. ,0. ) COVAL(OB60 ,V1 ,0. ,0. ) COVAL(OB60 ,W1 ,0. ,0. ) COVAL(OB60 ,TEM1,0. ,30. ) PATCH(OB61 ,WEST , 20, 20, 14, 15, 34, 34, 1, 1) COVAL(OB61 ,P1 ,1000. ,0. ) COVAL(OB61 ,U1 ,0. ,0. ) COVAL(OB61 ,V1 ,0. ,0. ) COVAL(OB61 ,W1 ,0. ,0. ) COVAL(OB61 ,TEM1,0. ,30. ) PATCH(OB62 ,WEST , 21, 21, 14, 15, 36, 36, 1, 1) COVAL(OB62 ,P1 ,1000. ,0. ) COVAL(OB62 ,U1 ,0. ,0. ) COVAL(OB62 ,V1 ,0. ,0. ) COVAL(OB62 ,W1 ,0. ,0. ) COVAL(OB62 ,TEM1,0. ,30. ) PATCH(OB63 ,WEST , 22, 22, 14, 15, 38, 38, 1, 1) COVAL(OB63 ,P1 ,1000. ,0. ) COVAL(OB63 ,U1 ,0. ,0. ) COVAL(OB63 ,V1 ,0. ,0. ) COVAL(OB63 ,W1 ,0. ,0. ) COVAL(OB63 ,TEM1,0. ,30. ) PATCH(OB64 ,WEST , 23, 23, 14, 15, 40, 40, 1, 1) COVAL(OB64 ,P1 ,1000. ,0. ) COVAL(OB64 ,U1 ,0. ,0. ) COVAL(OB64 ,V1 ,0. ,0. ) COVAL(OB64 ,W1 ,0. ,0. ) COVAL(OB64 ,TEM1,0. ,30. ) PATCH(OB65 ,WEST , 24, 24, 14, 15, 42, 42, 1, 1) COVAL(OB65 ,P1 ,1000. ,0. ) COVAL(OB65 ,U1 ,0. ,0. ) COVAL(OB65 ,V1 ,0. ,0. ) COVAL(OB65 ,W1 ,0. ,0. ) COVAL(OB65 ,TEM1,0. ,30. ) PATCH(OB66 ,WEST , 25, 25, 14, 15, 44, 44, 1, 1) COVAL(OB66 ,P1 ,1000. ,0. ) COVAL(OB66 ,U1 ,0. ,0. ) COVAL(OB66 ,V1 ,0. ,0. ) COVAL(OB66 ,W1 ,0. ,0. ) COVAL(OB66 ,TEM1,0. ,30. ) PATCH(OB67 ,WEST , 26, 26, 14, 15, 46, 46, 1, 1) COVAL(OB67 ,P1 ,1000. ,0. ) COVAL(OB67 ,U1 ,0. ,0. ) COVAL(OB67 ,V1 ,0. ,0. ) COVAL(OB67 ,W1 ,0. ,0. ) COVAL(OB67 ,TEM1,0. ,30. ) PATCH(OB68 ,WEST , 27, 27, 14, 15, 48, 48, 1, 1) COVAL(OB68 ,P1 ,1000. ,0. ) COVAL(OB68 ,U1 ,0. ,0. ) COVAL(OB68 ,V1 ,0. ,0. ) COVAL(OB68 ,W1 ,0. ,0. ) COVAL(OB68 ,TEM1,0. ,30. ) PATCH(OB69 ,WEST , 28, 28, 14, 15, 50, 50, 1, 1) COVAL(OB69 ,P1 ,1000. ,0. ) COVAL(OB69 ,U1 ,0. ,0. ) COVAL(OB69 ,V1 ,0. ,0. ) COVAL(OB69 ,W1 ,0. ,0. ) COVAL(OB69 ,TEM1,0. ,30. ) PATCH(OB6A ,WEST , 29, 29, 14, 15, 52, 52, 1, 1) COVAL(OB6A ,P1 ,1000. ,0. ) COVAL(OB6A ,U1 ,0. ,0. ) COVAL(OB6A ,V1 ,0. ,0. ) COVAL(OB6A ,W1 ,0. ,0. ) COVAL(OB6A ,TEM1,0. ,30. ) PATCH(OB6B ,WEST , 30, 30, 14, 15, 54, 54, 1, 1) COVAL(OB6B ,P1 ,1000. ,0. ) COVAL(OB6B ,U1 ,0. ,0. ) COVAL(OB6B ,V1 ,0. ,0. ) COVAL(OB6B ,W1 ,0. ,0. ) COVAL(OB6B ,TEM1,0. ,30. ) PATCH(OB6C ,WEST , 31, 31, 14, 15, 56, 56, 1, 1) COVAL(OB6C ,P1 ,1000. ,0. ) COVAL(OB6C ,U1 ,0. ,0. ) COVAL(OB6C ,V1 ,0. ,0. ) COVAL(OB6C ,W1 ,0. ,0. ) COVAL(OB6C ,TEM1,0. ,30. ) PATCH(OB6D ,WEST , 32, 32, 14, 15, 58, 58, 1, 1) COVAL(OB6D ,P1 ,1000. ,0. ) COVAL(OB6D ,U1 ,0. ,0. ) COVAL(OB6D ,V1 ,0. ,0. ) COVAL(OB6D ,W1 ,0. ,0. ) COVAL(OB6D ,TEM1,0. ,30. ) PATCH(OB6E ,WEST , 33, 33, 14, 15, 60, 61, 1, 1) COVAL(OB6E ,P1 ,1000. ,0. ) COVAL(OB6E ,U1 ,0. ,0. ) COVAL(OB6E ,V1 ,0. ,0. ) COVAL(OB6E ,W1 ,0. ,0. ) COVAL(OB6E ,TEM1,0. ,30. ) PATCH(OB6F ,WEST , 34, 34, 14, 15, 63, 64, 1, 1) COVAL(OB6F ,P1 ,1000. ,0. ) COVAL(OB6F ,U1 ,0. ,0. ) COVAL(OB6F ,V1 ,0. ,0. ) COVAL(OB6F ,W1 ,0. ,0. ) COVAL(OB6F ,TEM1,0. ,30. ) PATCH(OB70 ,WEST , 35, 35, 14, 15, 66, 66, 1, 1) COVAL(OB70 ,P1 ,1000. ,0. ) COVAL(OB70 ,U1 ,0. ,0. ) COVAL(OB70 ,V1 ,0. ,0. ) COVAL(OB70 ,W1 ,0. ,0. ) COVAL(OB70 ,TEM1,0. ,30. ) XCYCLE = F EGWF = T WALLCO = GRND2 BUOYA =0. ; BUOYB =-9.81 ; BUOYC =0. BUOYD =1.169 BUOYE =20. ************************************************************ 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-03 ************************************************************ Group 16. Terminate Iterations LITER(P1)=20 ;LITER(U1)=10 LITER(V1)=10 ;LITER(W1)=10 LITER(C1)=20 ;LITER(LTLS)=20 LITER(TEM1)=20 ENDIT(P1)=1.0E-03 ;ENDIT(U1)=1.0E-03 ENDIT(V1)=1.0E-03 ;ENDIT(W1)=1.0E-03 ENDIT(C1)=1.0E-03 ;ENDIT(LTLS)=1.0E-03 ENDIT(TEM1)=1.0E-03 ************************************************************ Group 17. Relaxation RELAX(P1,LINRLX,1.) RELAX(U1,FALSDT,0.1) RELAX(V1,FALSDT,0.1) RELAX(W1,FALSDT,0.1) RELAX(C1,LINRLX,1.) RELAX(ENUT,LINRLX,1.) RELAX(LTLS,FALSDT,1.0E+09) RELAX(WDIS,LINRLX,1.) RELAX(DEN1,LINRLX,0.5) RELAX(TEM1,FALSDT,100.) RELAX(PRPS,LINRLX,1.) 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(C1)=1. ;VARMIN(C1)=1.0E-10 VARMAX(ENUT)=1.0E+10 ;VARMIN(ENUT)=-1.0E+10 VARMAX(LTLS)=1.0E+10 ;VARMIN(LTLS)=-1.0E+10 VARMAX(WDIS)=1.0E+10 ;VARMIN(WDIS)=-1.0E+10 VARMAX(DEN1)=1.0E+10 ;VARMIN(DEN1)=1.0E-05 VARMAX(TEM1)=2000. ;VARMIN(TEM1)=0. VARMAX(PRPS)=1.0E+10 ;VARMIN(PRPS)=-1.0E+10 ************************************************************ Group 19. Data transmitted to GROUND GENK = T PARSOL = F ISKINA = 5 ;ISKINB = 4 ISG62 = 1 SPEDAT(SET,DOMAIN,PHASE_1_MAT,I,2) SPEDAT(SET,GXMONI,PLOTALL,L,T) SPEDAT(SET,OBJNAM,!OB1,C,GOPL) SPEDAT(SET,OBJTYP,!OB1,C,OUTLET) SPEDAT(SET,ARATIO,!OB1,R,1.) SPEDAT(SET,OBJNAM,!OB2,C,FIRE) SPEDAT(SET,OBJTYP,!OB2,C,BLOCKAGE) SPEDAT(SET,FIRE,MATERIAL,R,-3.) SPEDAT(SET,OBJNAM,!OC2,C,FIRE) SPEDAT(SET,OBJTYP,!OC2,C,BLOCKAGE) SPEDAT(SET,OBJNAM,!OB3,C,FOPH) SPEDAT(SET,OBJTYP,!OB3,C,OUTLET) SPEDAT(SET,ARATIO,!OB3,R,1.) SPEDAT(SET,OBJNAM,!OB4,C,FOPL) SPEDAT(SET,OBJTYP,!OB4,C,OUTLET) SPEDAT(SET,ARATIO,!OB4,R,1.) SPEDAT(SET,OBJNAM,^OB5,C,FLOORVIS) SPEDAT(SET,OBJTYP,^OB5,C,NULL) SPEDAT(SET,OBJNAM,^OB6,C,DOME) SPEDAT(SET,OBJTYP,^OB6,C,NULL) SPEDAT(SET,OBJNAM,^OB10,C,B17) SPEDAT(SET,OBJTYP,^OB10,C,BLOCKAGE) SPEDAT(SET,B17,MATERIAL,R,198.) SPEDAT(SET,OBJNAM,!OB11,C,VEL1) SPEDAT(SET,OBJTYP,!OB11,C,BLOCKAGE) SPEDAT(SET,VEL1,MATERIAL,R,2.) SPEDAT(SET,OBJNAM,!OB12,C,VEL2) SPEDAT(SET,OBJTYP,!OB12,C,BLOCKAGE) SPEDAT(SET,VEL2,MATERIAL,R,2.) SPEDAT(SET,OBJNAM,!OB13,C,VEL3) SPEDAT(SET,OBJTYP,!OB13,C,BLOCKAGE) SPEDAT(SET,VEL3,MATERIAL,R,2.) SPEDAT(SET,OBJNAM,!OB14,C,VEL4) SPEDAT(SET,OBJTYP,!OB14,C,BLOCKAGE) SPEDAT(SET,VEL4,MATERIAL,R,2.) SPEDAT(SET,OBJNAM,!OB15,C,VEL5) SPEDAT(SET,OBJTYP,!OB15,C,BLOCKAGE) SPEDAT(SET,VEL5,MATERIAL,R,2.) SPEDAT(SET,OBJNAM,!OB16,C,VEL6) SPEDAT(SET,OBJTYP,!OB16,C,BLOCKAGE) SPEDAT(SET,VEL6,MATERIAL,R,2.) SPEDAT(SET,OBJNAM,!OB17,C,VEL7) SPEDAT(SET,OBJTYP,!OB17,C,BLOCKAGE) SPEDAT(SET,VEL7,MATERIAL,R,2.) SPEDAT(SET,OBJNAM,!OB18,C,VEL8) SPEDAT(SET,OBJTYP,!OB18,C,BLOCKAGE) SPEDAT(SET,VEL8,MATERIAL,R,2.) SPEDAT(SET,OBJNAM,!OB19,C,VEL9) SPEDAT(SET,OBJTYP,!OB19,C,BLOCKAGE) SPEDAT(SET,VEL9,MATERIAL,R,2.) SPEDAT(SET,OBJNAM,!OB1A,C,VEL10) SPEDAT(SET,OBJTYP,!OB1A,C,BLOCKAGE) SPEDAT(SET,VEL10,MATERIAL,R,2.) SPEDAT(SET,OBJNAM,!OB1B,C,VEL11) SPEDAT(SET,OBJTYP,!OB1B,C,BLOCKAGE) SPEDAT(SET,VEL11,MATERIAL,R,2.) SPEDAT(SET,OBJNAM,!OB1C,C,VEL12) SPEDAT(SET,OBJTYP,!OB1C,C,BLOCKAGE) SPEDAT(SET,VEL12,MATERIAL,R,2.) SPEDAT(SET,OBJNAM,!OB1D,C,VEL13) SPEDAT(SET,OBJTYP,!OB1D,C,BLOCKAGE) SPEDAT(SET,VEL13,MATERIAL,R,2.) SPEDAT(SET,OBJNAM,!OB1E,C,VEL14) SPEDAT(SET,OBJTYP,!OB1E,C,BLOCKAGE) SPEDAT(SET,VEL14,MATERIAL,R,2.) SPEDAT(SET,OBJNAM,!OB1F,C,VEL15) SPEDAT(SET,OBJTYP,!OB1F,C,BLOCKAGE) SPEDAT(SET,VEL15,MATERIAL,R,2.) SPEDAT(SET,OBJNAM,!OB20,C,VEL16) SPEDAT(SET,OBJTYP,!OB20,C,BLOCKAGE) SPEDAT(SET,VEL16,MATERIAL,R,2.) SPEDAT(SET,OBJNAM,!OB21,C,OVEL1) SPEDAT(SET,OBJTYP,!OB21,C,OUTLET) SPEDAT(SET,ARATIO,!OB21,R,1.) SPEDAT(SET,OBJNAM,!OB22,C,OVEL2) SPEDAT(SET,OBJTYP,!OB22,C,OUTLET) SPEDAT(SET,ARATIO,!OB22,R,1.) SPEDAT(SET,OBJNAM,!OB23,C,OVEL3) SPEDAT(SET,OBJTYP,!OB23,C,OUTLET) SPEDAT(SET,ARATIO,!OB23,R,1.) SPEDAT(SET,OBJNAM,!OB24,C,OVEL4) SPEDAT(SET,OBJTYP,!OB24,C,OUTLET) SPEDAT(SET,ARATIO,!OB24,R,1.) SPEDAT(SET,OBJNAM,!OB25,C,OVEL5) SPEDAT(SET,OBJTYP,!OB25,C,OUTLET) SPEDAT(SET,ARATIO,!OB25,R,1.) SPEDAT(SET,OBJNAM,!OB26,C,OVEL6) SPEDAT(SET,OBJTYP,!OB26,C,OUTLET) SPEDAT(SET,ARATIO,!OB26,R,1.) SPEDAT(SET,OBJNAM,!OB27,C,OVEL7) SPEDAT(SET,OBJTYP,!OB27,C,OUTLET) SPEDAT(SET,ARATIO,!OB27,R,1.) SPEDAT(SET,OBJNAM,!OB28,C,OVEL8) SPEDAT(SET,OBJTYP,!OB28,C,OUTLET) SPEDAT(SET,ARATIO,!OB28,R,1.) SPEDAT(SET,OBJNAM,!OB29,C,OVEL9) SPEDAT(SET,OBJTYP,!OB29,C,OUTLET) SPEDAT(SET,ARATIO,!OB29,R,1.) SPEDAT(SET,OBJNAM,!OB2A,C,OVEL10) SPEDAT(SET,OBJTYP,!OB2A,C,OUTLET) SPEDAT(SET,ARATIO,!OB2A,R,1.) SPEDAT(SET,OBJNAM,!OB2B,C,OVEL11) SPEDAT(SET,OBJTYP,!OB2B,C,OUTLET) SPEDAT(SET,ARATIO,!OB2B,R,1.) SPEDAT(SET,OBJNAM,!OB2C,C,OVEL12) SPEDAT(SET,OBJTYP,!OB2C,C,OUTLET) SPEDAT(SET,ARATIO,!OB2C,R,1.) SPEDAT(SET,OBJNAM,!OB2D,C,OVEL13) SPEDAT(SET,OBJTYP,!OB2D,C,OUTLET) SPEDAT(SET,ARATIO,!OB2D,R,1.) SPEDAT(SET,OBJNAM,!OB2E,C,OVEL14) SPEDAT(SET,OBJTYP,!OB2E,C,OUTLET) SPEDAT(SET,ARATIO,!OB2E,R,1.) SPEDAT(SET,OBJNAM,!OB2F,C,OVEL15) SPEDAT(SET,OBJTYP,!OB2F,C,OUTLET) SPEDAT(SET,ARATIO,!OB2F,R,1.) SPEDAT(SET,OBJNAM,!OB30,C,OVEL16) SPEDAT(SET,OBJTYP,!OB30,C,OUTLET) SPEDAT(SET,ARATIO,!OB30,R,1.) SPEDAT(SET,OBJNAM,!OB31,C,OVWL1) SPEDAT(SET,OBJTYP,!OB31,C,OUTLET) SPEDAT(SET,ARATIO,!OB31,R,1.) SPEDAT(SET,OBJNAM,!OB32,C,OVWL2) SPEDAT(SET,OBJTYP,!OB32,C,OUTLET) SPEDAT(SET,ARATIO,!OB32,R,1.) SPEDAT(SET,OBJNAM,!OB33,C,OVWL3) SPEDAT(SET,OBJTYP,!OB33,C,OUTLET) SPEDAT(SET,ARATIO,!OB33,R,1.) SPEDAT(SET,OBJNAM,!OB34,C,OVWL4) SPEDAT(SET,OBJTYP,!OB34,C,OUTLET) SPEDAT(SET,ARATIO,!OB34,R,1.) SPEDAT(SET,OBJNAM,!OB35,C,OVWL5) SPEDAT(SET,OBJTYP,!OB35,C,OUTLET) SPEDAT(SET,ARATIO,!OB35,R,1.) SPEDAT(SET,OBJNAM,!OB36,C,OVWL6) SPEDAT(SET,OBJTYP,!OB36,C,OUTLET) SPEDAT(SET,ARATIO,!OB36,R,1.) SPEDAT(SET,OBJNAM,!OB37,C,OVWL7) SPEDAT(SET,OBJTYP,!OB37,C,OUTLET) SPEDAT(SET,ARATIO,!OB37,R,1.) SPEDAT(SET,OBJNAM,!OB38,C,OVWL8) SPEDAT(SET,OBJTYP,!OB38,C,OUTLET) SPEDAT(SET,ARATIO,!OB38,R,1.) SPEDAT(SET,OBJNAM,!OB39,C,OVWL9) SPEDAT(SET,OBJTYP,!OB39,C,OUTLET) SPEDAT(SET,ARATIO,!OB39,R,1.) SPEDAT(SET,OBJNAM,!OB3A,C,OVWL10) SPEDAT(SET,OBJTYP,!OB3A,C,OUTLET) SPEDAT(SET,ARATIO,!OB3A,R,1.) SPEDAT(SET,OBJNAM,!OB3B,C,OVWL11) SPEDAT(SET,OBJTYP,!OB3B,C,OUTLET) SPEDAT(SET,ARATIO,!OB3B,R,1.) SPEDAT(SET,OBJNAM,!OB3C,C,OVWL12) SPEDAT(SET,OBJTYP,!OB3C,C,OUTLET) SPEDAT(SET,ARATIO,!OB3C,R,1.) SPEDAT(SET,OBJNAM,!OB3D,C,OVWL13) SPEDAT(SET,OBJTYP,!OB3D,C,OUTLET) SPEDAT(SET,ARATIO,!OB3D,R,1.) SPEDAT(SET,OBJNAM,!OB3E,C,OVWL14) SPEDAT(SET,OBJTYP,!OB3E,C,OUTLET) SPEDAT(SET,ARATIO,!OB3E,R,1.) SPEDAT(SET,OBJNAM,!OB3F,C,OVWL15) SPEDAT(SET,OBJTYP,!OB3F,C,OUTLET) SPEDAT(SET,ARATIO,!OB3F,R,1.) SPEDAT(SET,OBJNAM,!OB40,C,OVWL16) SPEDAT(SET,OBJTYP,!OB40,C,OUTLET) SPEDAT(SET,ARATIO,!OB40,R,1.) SPEDAT(SET,OBJNAM,!OB41,C,VEH1) SPEDAT(SET,OBJTYP,!OB41,C,BLOCKAGE) SPEDAT(SET,VEH1,MATERIAL,R,2.) SPEDAT(SET,OBJNAM,!OB42,C,VEH2) SPEDAT(SET,OBJTYP,!OB42,C,BLOCKAGE) SPEDAT(SET,VEH2,MATERIAL,R,2.) SPEDAT(SET,OBJNAM,!OB43,C,VEH3) SPEDAT(SET,OBJTYP,!OB43,C,BLOCKAGE) SPEDAT(SET,VEH3,MATERIAL,R,2.) SPEDAT(SET,OBJNAM,!OB44,C,VEH4) SPEDAT(SET,OBJTYP,!OB44,C,BLOCKAGE) SPEDAT(SET,VEH4,MATERIAL,R,2.) SPEDAT(SET,OBJNAM,!OB45,C,VEH5) SPEDAT(SET,OBJTYP,!OB45,C,BLOCKAGE) SPEDAT(SET,VEH5,MATERIAL,R,2.) SPEDAT(SET,OBJNAM,!OB46,C,VEH6) SPEDAT(SET,OBJTYP,!OB46,C,BLOCKAGE) SPEDAT(SET,VEH6,MATERIAL,R,2.) SPEDAT(SET,OBJNAM,!OB47,C,VEH7) SPEDAT(SET,OBJTYP,!OB47,C,BLOCKAGE) SPEDAT(SET,VEH7,MATERIAL,R,2.) SPEDAT(SET,OBJNAM,!OB48,C,VEH8) SPEDAT(SET,OBJTYP,!OB48,C,BLOCKAGE) SPEDAT(SET,VEH8,MATERIAL,R,2.) SPEDAT(SET,OBJNAM,!OB49,C,VEH9) SPEDAT(SET,OBJTYP,!OB49,C,BLOCKAGE) SPEDAT(SET,VEH9,MATERIAL,R,2.) SPEDAT(SET,OBJNAM,!OB4A,C,VEH10) SPEDAT(SET,OBJTYP,!OB4A,C,BLOCKAGE) SPEDAT(SET,VEH10,MATERIAL,R,2.) SPEDAT(SET,OBJNAM,!OB4B,C,VEH11) SPEDAT(SET,OBJTYP,!OB4B,C,BLOCKAGE) SPEDAT(SET,VEH11,MATERIAL,R,2.) SPEDAT(SET,OBJNAM,!OB4C,C,VEH12) SPEDAT(SET,OBJTYP,!OB4C,C,BLOCKAGE) SPEDAT(SET,VEH12,MATERIAL,R,2.) SPEDAT(SET,OBJNAM,!OB4D,C,VEH13) SPEDAT(SET,OBJTYP,!OB4D,C,BLOCKAGE) SPEDAT(SET,VEH13,MATERIAL,R,2.) SPEDAT(SET,OBJNAM,!OB4E,C,VEH14) SPEDAT(SET,OBJTYP,!OB4E,C,BLOCKAGE) SPEDAT(SET,VEH14,MATERIAL,R,2.) SPEDAT(SET,OBJNAM,!OB4F,C,VEH15) SPEDAT(SET,OBJTYP,!OB4F,C,BLOCKAGE) SPEDAT(SET,VEH15,MATERIAL,R,2.) SPEDAT(SET,OBJNAM,!OB50,C,VEH16) SPEDAT(SET,OBJTYP,!OB50,C,BLOCKAGE) SPEDAT(SET,VEH16,MATERIAL,R,2.) SPEDAT(SET,OBJNAM,!OB51,C,OVEH1) SPEDAT(SET,OBJTYP,!OB51,C,OUTLET) SPEDAT(SET,ARATIO,!OB51,R,1.) SPEDAT(SET,OBJNAM,!OB52,C,OVEH2) SPEDAT(SET,OBJTYP,!OB52,C,OUTLET) SPEDAT(SET,ARATIO,!OB52,R,1.) SPEDAT(SET,OBJNAM,!OB53,C,OVEH3) SPEDAT(SET,OBJTYP,!OB53,C,OUTLET) SPEDAT(SET,ARATIO,!OB53,R,1.) SPEDAT(SET,OBJNAM,!OB54,C,OVEH4) SPEDAT(SET,OBJTYP,!OB54,C,OUTLET) SPEDAT(SET,ARATIO,!OB54,R,1.) SPEDAT(SET,OBJNAM,!OB55,C,OVEH5) SPEDAT(SET,OBJTYP,!OB55,C,OUTLET) SPEDAT(SET,ARATIO,!OB55,R,1.) SPEDAT(SET,OBJNAM,!OB56,C,OVEH6) SPEDAT(SET,OBJTYP,!OB56,C,OUTLET) SPEDAT(SET,ARATIO,!OB56,R,1.) SPEDAT(SET,OBJNAM,!OB57,C,OVEH7) SPEDAT(SET,OBJTYP,!OB57,C,OUTLET) SPEDAT(SET,ARATIO,!OB57,R,1.) SPEDAT(SET,OBJNAM,!OB58,C,OVEH8) SPEDAT(SET,OBJTYP,!OB58,C,OUTLET) SPEDAT(SET,ARATIO,!OB58,R,1.) SPEDAT(SET,OBJNAM,!OB59,C,OVEH9) SPEDAT(SET,OBJTYP,!OB59,C,OUTLET) SPEDAT(SET,ARATIO,!OB59,R,1.) SPEDAT(SET,OBJNAM,!OB5A,C,OVEH10) SPEDAT(SET,OBJTYP,!OB5A,C,OUTLET) SPEDAT(SET,ARATIO,!OB5A,R,1.) SPEDAT(SET,OBJNAM,!OB5B,C,OVEH11) SPEDAT(SET,OBJTYP,!OB5B,C,OUTLET) SPEDAT(SET,ARATIO,!OB5B,R,1.) SPEDAT(SET,OBJNAM,!OB5C,C,OVEH12) SPEDAT(SET,OBJTYP,!OB5C,C,OUTLET) SPEDAT(SET,ARATIO,!OB5C,R,1.) SPEDAT(SET,OBJNAM,!OB5D,C,OVEH13) SPEDAT(SET,OBJTYP,!OB5D,C,OUTLET) SPEDAT(SET,ARATIO,!OB5D,R,1.) SPEDAT(SET,OBJNAM,!OB5E,C,OVEH14) SPEDAT(SET,OBJTYP,!OB5E,C,OUTLET) SPEDAT(SET,ARATIO,!OB5E,R,1.) SPEDAT(SET,OBJNAM,!OB5F,C,OVEH15) SPEDAT(SET,OBJTYP,!OB5F,C,OUTLET) SPEDAT(SET,ARATIO,!OB5F,R,1.) SPEDAT(SET,OBJNAM,!OB60,C,OVEH16) SPEDAT(SET,OBJTYP,!OB60,C,OUTLET) SPEDAT(SET,ARATIO,!OB60,R,1.) SPEDAT(SET,OBJNAM,!OB61,C,OVWH1) SPEDAT(SET,OBJTYP,!OB61,C,OUTLET) SPEDAT(SET,ARATIO,!OB61,R,1.) SPEDAT(SET,OBJNAM,!OB62,C,OVWH2) SPEDAT(SET,OBJTYP,!OB62,C,OUTLET) SPEDAT(SET,ARATIO,!OB62,R,1.) SPEDAT(SET,OBJNAM,!OB63,C,OVWH3) SPEDAT(SET,OBJTYP,!OB63,C,OUTLET) SPEDAT(SET,ARATIO,!OB63,R,1.) SPEDAT(SET,OBJNAM,!OB64,C,OVWH4) SPEDAT(SET,OBJTYP,!OB64,C,OUTLET) SPEDAT(SET,ARATIO,!OB64,R,1.) SPEDAT(SET,OBJNAM,!OB65,C,OVWH5) SPEDAT(SET,OBJTYP,!OB65,C,OUTLET) SPEDAT(SET,ARATIO,!OB65,R,1.) SPEDAT(SET,OBJNAM,!OB66,C,OVWH6) SPEDAT(SET,OBJTYP,!OB66,C,OUTLET) SPEDAT(SET,ARATIO,!OB66,R,1.) SPEDAT(SET,OBJNAM,!OB67,C,OVWH7) SPEDAT(SET,OBJTYP,!OB67,C,OUTLET) SPEDAT(SET,ARATIO,!OB67,R,1.) SPEDAT(SET,OBJNAM,!OB68,C,OVWH8) SPEDAT(SET,OBJTYP,!OB68,C,OUTLET) SPEDAT(SET,ARATIO,!OB68,R,1.) SPEDAT(SET,OBJNAM,!OB69,C,OVWH9) SPEDAT(SET,OBJTYP,!OB69,C,OUTLET) SPEDAT(SET,ARATIO,!OB69,R,1.) SPEDAT(SET,OBJNAM,!OB6A,C,OVWH10) SPEDAT(SET,OBJTYP,!OB6A,C,OUTLET) SPEDAT(SET,ARATIO,!OB6A,R,1.) SPEDAT(SET,OBJNAM,!OB6B,C,OVWH11) SPEDAT(SET,OBJTYP,!OB6B,C,OUTLET) SPEDAT(SET,ARATIO,!OB6B,R,1.) SPEDAT(SET,OBJNAM,!OB6C,C,OVWH12) SPEDAT(SET,OBJTYP,!OB6C,C,OUTLET) SPEDAT(SET,ARATIO,!OB6C,R,1.) SPEDAT(SET,OBJNAM,!OB6D,C,OVWH13) SPEDAT(SET,OBJTYP,!OB6D,C,OUTLET) SPEDAT(SET,ARATIO,!OB6D,R,1.) SPEDAT(SET,OBJNAM,!OB6E,C,OVWH14) SPEDAT(SET,OBJTYP,!OB6E,C,OUTLET) SPEDAT(SET,ARATIO,!OB6E,R,1.) SPEDAT(SET,OBJNAM,!OB6F,C,OVWH15) SPEDAT(SET,OBJTYP,!OB6F,C,OUTLET) SPEDAT(SET,ARATIO,!OB6F,R,1.) SPEDAT(SET,OBJNAM,!OB70,C,OVWH16) SPEDAT(SET,OBJTYP,!OB70,C,OUTLET) SPEDAT(SET,ARATIO,!OB70,R,1.) SPEDAT(SET,FACETDAT,NUMOBJ,I,112) SPEDAT(SET,MATERIAL,198,L,T) SPEDAT(SET,MATERIAL,2,L,T) ************************************************************ Group 20. Preliminary Printout ************************************************************ 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,Y,N,Y,Y,Y,Y) OUTPUT(U1,Y,N,Y,Y,Y,Y) OUTPUT(V1,Y,N,Y,Y,Y,Y) OUTPUT(W1,Y,N,Y,Y,Y,Y) OUTPUT(C1,Y,N,Y,Y,Y,Y) OUTPUT(ENUT,Y,N,Y,N,N,N) OUTPUT(LTLS,Y,N,Y,Y,Y,Y) OUTPUT(WDIS,Y,N,N,N,N,N) OUTPUT(DEN1,Y,N,Y,N,N,N) OUTPUT(TEM1,Y,N,Y,Y,Y,Y) OUTPUT(PRPS,Y,N,Y,N,N,N) ************************************************************ Group 22. Monitor Print-Out IXMON = 44 ;IYMON = 11 ;IZMON = 50 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 = 2 ;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