TALK=T;RUN(1,1) AUTOPLOT USE fil PHI 5 cl da 1 u1 plot msg Swirl velocity profile msg Press RETURN to continue pause cl da 1 w1 plot msg Axial Velocity profile msg Press RETURN to continue pause cl da 1 u2rs colf 1 msg Stress component U2-- red colour da 1 v2rs col3 2 msg Stress component V2-- blue colour da 1 w2rs col8 3 msg Stress component W2-- green colour msg Press e to END enduse DISPLAY The problem considered is 1d fully-developed swirling turbulent flow and heat transfer in a pipe where the swirl is driven by the pipe wall rotating around the pipe axis. The axial-velocity Reynolds number is 45,318 and the swirl number N is 0.4634, where N is the ratio of the tangential wall velocity to the bulk axial velocity. Thus, the swirl-velocity Reynolds number is 21,000, and the expected friction-velocity Reynolds number from the data is 2100. A constant heat flux is applied at the pipe wall and the molecular Prandtl number is taken as unity. ENDDIS ************************************************************ Group 1. Run Title and Number ************************************************************ ************************************************************ TEXT(RSTM_1D ROTATING PIPE FLOW :T605) ************************************************************ ************************************************************ IRUNN = 1 ;LIBREF = 14 ************************************************************ Group 2. Time dependence STEADY = T ************************************************************ Group 3. X-Direction Grid Spacing CARTES = F NX = 1 XULAST =0.1 XFRAC(1)=1. ************************************************************ Group 4. Y-Direction Grid Spacing NY = 30 YVLAST =0.5 YFRAC(1)=0.062469 ;YFRAC(2)=0.108765 YFRAC(3)=0.150439 ;YFRAC(4)=0.18937 YFRAC(5)=0.226381 ;YFRAC(6)=0.26193 YFRAC(7)=0.296307 ;YFRAC(8)=0.329713 YFRAC(9)=0.362291 ;YFRAC(10)=0.394152 YFRAC(11)=0.425381 ;YFRAC(12)=0.456046 YFRAC(13)=0.486204 ;YFRAC(14)=0.515901 YFRAC(15)=0.545176 ;YFRAC(16)=0.574064 YFRAC(17)=0.602592 ;YFRAC(18)=0.630786 YFRAC(19)=0.658669 ;YFRAC(20)=0.686259 YFRAC(21)=0.713575 ;YFRAC(22)=0.740631 YFRAC(23)=0.767443 ;YFRAC(24)=0.794023 YFRAC(25)=0.820382 ;YFRAC(26)=0.846531 YFRAC(27)=0.872479 ;YFRAC(28)=0.898236 YFRAC(29)=0.92381 ;YFRAC(30)=1. ************************************************************ Group 5. Z-Direction Grid Spacing PARAB = F NZ = 1 ZWLAST =1. ZFRAC(1)=1. ************************************************************ Group 6. Body-Fitted Coordinates ************************************************************ Group 7. Variables: STOREd,SOLVEd,NAMEd ONEPHS = T NAME(3)=U1 ;NAME(5)=V1 NAME(7)=W1 ;NAME(12)=KE NAME(13)=EP ;NAME(116)=PRPS NAME(117)=DSDY ;NAME(118)=VTRS NAME(119)=UTRS ;NAME(120)=VSC1 NAME(121)=USC1 ;NAME(122)=U2RS NAME(123)=V2RS ;NAME(124)=W2RS NAME(125)=UVRS ;NAME(126)=UWRS NAME(127)=VWRS ;NAME(128)=LEN1 NAME(129)=ENUT ;NAME(130)=W2DK NAME(131)=V2DK ;NAME(132)=U2DK NAME(133)=VWDK ;NAME(134)=FWAL NAME(135)=EPDK ;NAME(136)=PK NAME(137)=DVW ;NAME(138)=PU2 NAME(139)=PV2 ;NAME(140)=PW2 NAME(141)=DWDY ;NAME(142)=UWDK NAME(143)=UVDK ;NAME(144)=DVDX NAME(145)=DUDY ;NAME(146)=PVW NAME(147)=PUV ;NAME(148)=SC1 NAME(149)=TEM1 ;NAME(150)=U1EX * Y in SOLUTN argument list denotes: * 1-stored 2-solved 3-whole-field * 4-point-by-point 5-explicit 6-harmonic averaging SOLUTN(U1,Y,Y,N,N,N,Y) SOLUTN(V1,Y,N,N,N,N,Y) SOLUTN(W1,Y,Y,N,N,N,Y) SOLUTN(KE,Y,N,N,N,N,N) SOLUTN(EP,Y,Y,N,N,N,N) SOLUTN(PRPS,Y,N,N,N,N,Y) SOLUTN(DSDY,Y,N,N,N,N,Y) SOLUTN(VTRS,Y,Y,N,N,N,N) SOLUTN(UTRS,Y,Y,N,N,N,N) SOLUTN(VSC1,Y,Y,N,N,N,N) SOLUTN(USC1,Y,Y,N,N,N,N) SOLUTN(U2RS,Y,Y,N,N,N,N) SOLUTN(V2RS,Y,Y,N,N,N,N) SOLUTN(W2RS,Y,Y,N,N,N,N) SOLUTN(UVRS,Y,Y,N,N,N,N) SOLUTN(UWRS,Y,Y,N,N,N,N) SOLUTN(VWRS,Y,Y,N,N,N,N) SOLUTN(LEN1,Y,N,N,N,N,N) SOLUTN(ENUT,Y,N,N,N,N,N) SOLUTN(W2DK,Y,N,N,N,N,Y) SOLUTN(V2DK,Y,N,N,N,N,Y) SOLUTN(U2DK,Y,N,N,N,N,Y) SOLUTN(VWDK,Y,N,N,N,N,Y) SOLUTN(FWAL,Y,N,N,N,N,Y) SOLUTN(EPDK,Y,N,N,N,N,Y) SOLUTN(PK,Y,N,N,N,N,Y) SOLUTN(DVW,Y,N,N,N,N,Y) SOLUTN(PU2,Y,N,N,N,N,Y) SOLUTN(PV2,Y,N,N,N,N,Y) SOLUTN(PW2,Y,N,N,N,N,Y) SOLUTN(DWDY,Y,N,N,N,N,Y) SOLUTN(UWDK,Y,N,N,N,N,Y) SOLUTN(UVDK,Y,N,N,N,N,Y) SOLUTN(DVDX,Y,N,N,N,N,Y) SOLUTN(DUDY,Y,N,N,N,N,Y) SOLUTN(PVW,Y,N,N,N,N,Y) SOLUTN(PUV,Y,N,N,N,N,Y) SOLUTN(SC1,Y,Y,N,N,N,Y) SOLUTN(TEM1,Y,Y,N,N,N,Y) SOLUTN(U1EX,Y,N,N,N,N,Y) VIST = 129 LEN1 = 128 PRPS = 116 ************************************************************ 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(U1,Y,N,Y,Y,Y,Y) TERMS(W1,Y,N,Y,Y,Y,Y) TERMS(EP,Y,N,Y,Y,N,Y) TERMS(VTRS,N,Y,Y,Y,Y,Y) TERMS(UTRS,N,Y,Y,Y,N,Y) TERMS(VSC1,N,Y,Y,Y,Y,Y) TERMS(USC1,N,Y,Y,Y,N,Y) TERMS(U2RS,N,Y,Y,Y,Y,Y) TERMS(V2RS,N,Y,Y,Y,N,Y) TERMS(W2RS,N,Y,Y,Y,Y,Y) TERMS(UVRS,N,Y,Y,Y,N,Y) TERMS(UWRS,N,Y,Y,Y,Y,Y) TERMS(VWRS,N,Y,Y,Y,N,Y) TERMS(SC1,N,N,Y,Y,Y,Y) TERMS(TEM1,N,N,Y,Y,N,Y) DIFCUT =0.5 ;ZDIFAC =1. GALA = F ;ADDDIF = F NEWENT = F UDIFF = T UCONNE = T USOURC = 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 =1. ;TMP1 =0. EL1 = GRND TSURR =0. ;TEMP0 =0. PRESS0 =0. DVO1DT =0. ;DRH1DP =0. EMISS =0. ;SCATT =0. RADIA =0. ;RADIB =0. EL1A =0. ;EL1B =0. EL1C =0. ENUL =1.0E-05 ;ENUT = GRND ENUTA =0. ;ENUTB =0. ENUTC =0. IENUTA = 0 PRNDTL(U1)=1. ;PRNDTL(W1)=1. PRNDTL(EP)=1. ;PRNDTL(VTRS)=1. PRNDTL(UTRS)=1. ;PRNDTL(VSC1)=1. PRNDTL(USC1)=1. ;PRNDTL(U2RS)=1. PRNDTL(V2RS)=1. ;PRNDTL(W2RS)=1. PRNDTL(UVRS)=1. ;PRNDTL(UWRS)=1. PRNDTL(VWRS)=1. ;PRNDTL(SC1)=1. PRNDTL(TEM1)=CONDFILE PRT(U1)=1. ;PRT(W1)=1. PRT(EP)=1.314 ;PRT(VTRS)=1. PRT(UTRS)=1. ;PRT(VSC1)=1. PRT(USC1)=1. ;PRT(U2RS)=1. PRT(V2RS)=1. ;PRT(W2RS)=1. PRT(UVRS)=1. ;PRT(UWRS)=1. PRT(VWRS)=1. ;PRT(SC1)=1. PRT(TEM1)=1. CP1 =1. ;CP2 =1. * List of user-defined materials to be read by EARTH MATFLG=T;IMAT=1 * Name *Ind. Dens. Viscos. Spec.heat Conduct. Expans. Compr. *37 1. 1.E-5 1.0 1.E-5 0 ************************************************************ Group 10.Inter-Phase Transfer Processes ************************************************************ Group 11.Initial field variables (PHIs) FIINIT(U1)=0.420007 ;FIINIT(V1)=0. FIINIT(W1)=0.45318 ;FIINIT(KE)=8.82E-04 FIINIT(EP)=9.563743E-05 ;FIINIT(PRPS)=37. FIINIT(DSDY)=1.0E-10 ;FIINIT(VTRS)=1.0E-10 FIINIT(UTRS)=1.0E-10 ;FIINIT(VSC1)=1.0E-10 FIINIT(USC1)=1.0E-10 ;FIINIT(U2RS)=5.88E-04 FIINIT(V2RS)=5.88E-04 ;FIINIT(W2RS)=5.88E-04 FIINIT(UVRS)=8.819999E-05 ;FIINIT(UWRS)=8.819999E-05 FIINIT(VWRS)=2.646E-04 ;FIINIT(LEN1)=1.0E-10 FIINIT(ENUT)=1.0E-10 ;FIINIT(W2DK)=1.0E-10 FIINIT(V2DK)=1.0E-10 ;FIINIT(U2DK)=1.0E-10 FIINIT(VWDK)=1.0E-10 ;FIINIT(FWAL)=1.0E-10 FIINIT(EPDK)=1.0E-10 ;FIINIT(PK)=1.0E-10 FIINIT(DVW)=1.0E-10 ;FIINIT(PU2)=1.0E-10 FIINIT(PV2)=1.0E-10 ;FIINIT(PW2)=1.0E-10 FIINIT(DWDY)=1.0E-10 ;FIINIT(UWDK)=1.0E-10 FIINIT(UVDK)=1.0E-10 ;FIINIT(DVDX)=1.0E-10 FIINIT(DUDY)=1.0E-10 ;FIINIT(PVW)=1.0E-10 FIINIT(PUV)=1.0E-10 ;FIINIT(SC1)=0.4 FIINIT(TEM1)=0.4 ;FIINIT(U1EX)=1.0E-10 PATCH(IN1 ,INIVAL, 1, 1, 1, 1, 1, 1, 1, 1) INIT(IN1 ,U1EX,0. ,2.048778E-04 ) PATCH(IN2 ,INIVAL, 1, 1, 2, 2, 1, 1, 1, 1) INIT(IN2 ,U1EX,0. ,1.539377E-03 ) PATCH(IN3 ,INIVAL, 1, 1, 3, 3, 1, 1, 1, 1) INIT(IN3 ,U1EX,0. ,3.527361E-03 ) PATCH(IN4 ,INIVAL, 1, 1, 4, 4, 1, 1, 1, 1) INIT(IN4 ,U1EX,0. ,6.062308E-03 ) PATCH(IN5 ,INIVAL, 1, 1, 5, 5, 1, 1, 1, 1) INIT(IN5 ,U1EX,0. ,9.07474E-03 ) PATCH(IN6 ,INIVAL, 1, 1, 6, 6, 1, 1, 1, 1) INIT(IN6 ,U1EX,0. ,0.012519 ) PATCH(IN7 ,INIVAL, 1, 1, 7, 7, 1, 1, 1, 1) INIT(IN7 ,U1EX,0. ,0.016361 ) PATCH(IN8 ,INIVAL, 1, 1, 8, 8, 1, 1, 1, 1) INIT(IN8 ,U1EX,0. ,0.020575 ) PATCH(IN9 ,INIVAL, 1, 1, 9, 9, 1, 1, 1, 1) INIT(IN9 ,U1EX,0. ,0.025141 ) PATCH(IN10 ,INIVAL, 1, 1, 10, 10, 1, 1, 1, 1) INIT(IN10 ,U1EX,0. ,0.030041 ) PATCH(IN11 ,INIVAL, 1, 1, 11, 11, 1, 1, 1, 1) INIT(IN11 ,U1EX,0. ,0.035261 ) PATCH(IN12 ,INIVAL, 1, 1, 12, 12, 1, 1, 1, 1) INIT(IN12 ,U1EX,0. ,0.040789 ) PATCH(IN13 ,INIVAL, 1, 1, 13, 13, 1, 1, 1, 1) INIT(IN13 ,U1EX,0. ,0.046612 ) PATCH(IN14 ,INIVAL, 1, 1, 14, 14, 1, 1, 1, 1) INIT(IN14 ,U1EX,0. ,0.052722 ) PATCH(IN15 ,INIVAL, 1, 1, 15, 15, 1, 1, 1, 1) INIT(IN15 ,U1EX,0. ,0.05911 ) PATCH(IN16 ,INIVAL, 1, 1, 16, 16, 1, 1, 1, 1) INIT(IN16 ,U1EX,0. ,0.065768 ) PATCH(IN17 ,INIVAL, 1, 1, 17, 17, 1, 1, 1, 1) INIT(IN17 ,U1EX,0. ,0.072688 ) PATCH(IN18 ,INIVAL, 1, 1, 18, 18, 1, 1, 1, 1) INIT(IN18 ,U1EX,0. ,0.079865 ) PATCH(IN19 ,INIVAL, 1, 1, 19, 19, 1, 1, 1, 1) INIT(IN19 ,U1EX,0. ,0.087293 ) PATCH(IN20 ,INIVAL, 1, 1, 20, 20, 1, 1, 1, 1) INIT(IN20 ,U1EX,0. ,0.094965 ) PATCH(IN21 ,INIVAL, 1, 1, 21, 21, 1, 1, 1, 1) INIT(IN21 ,U1EX,0. ,0.102877 ) PATCH(IN22 ,INIVAL, 1, 1, 22, 22, 1, 1, 1, 1) INIT(IN22 ,U1EX,0. ,0.111024 ) PATCH(IN23 ,INIVAL, 1, 1, 23, 23, 1, 1, 1, 1) INIT(IN23 ,U1EX,0. ,0.119402 ) PATCH(IN24 ,INIVAL, 1, 1, 24, 24, 1, 1, 1, 1) INIT(IN24 ,U1EX,0. ,0.128006 ) PATCH(IN25 ,INIVAL, 1, 1, 25, 25, 1, 1, 1, 1) INIT(IN25 ,U1EX,0. ,0.136833 ) PATCH(IN26 ,INIVAL, 1, 1, 26, 26, 1, 1, 1, 1) INIT(IN26 ,U1EX,0. ,0.145879 ) PATCH(IN27 ,INIVAL, 1, 1, 27, 27, 1, 1, 1, 1) INIT(IN27 ,U1EX,0. ,0.15514 ) PATCH(IN28 ,INIVAL, 1, 1, 28, 28, 1, 1, 1, 1) INIT(IN28 ,U1EX,0. ,0.164613 ) PATCH(IN29 ,INIVAL, 1, 1, 29, 29, 1, 1, 1, 1) INIT(IN29 ,U1EX,0. ,0.174295 ) PATCH(IN30 ,INIVAL, 1, 1, 30, 30, 1, 1, 1, 1) INIT(IN30 ,U1EX,0. ,0.194308 ) INIADD = F FSWEEP = 1 IURINI = -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(FDFW1DP ,VOLUME, 1, 1, 1, 30, 1, 1, 1, 1) COVAL(FDFW1DP ,W1 ,5.66475E-03 , GRND1 ) PATCH(WAL1 ,NWALL , 1, 1, 30, 30, 1, 1, 1, 1) COVAL(WAL1 ,U1 , GRND2 ,0.202023 ) COVAL(WAL1 ,W1 , GRND2 ,0. ) COVAL(WAL1 ,EP , GRND2 , GRND2 ) COVAL(WAL1 ,SC1 , FIXFLU ,1.221081E-03 ) COVAL(WAL1 ,TEM1, FIXFLU ,1.221081E-03 ) PATCH(WDMPN03 ,PHASEM, 1, 1, 1, 30, 1, 1, 1, 1) COVAL(WDMPN03 ,VTRS, FIXFLU , GRND1 ) COVAL(WDMPN03 ,UTRS, FIXFLU , GRND1 ) COVAL(WDMPN03 ,VSC1, FIXFLU , GRND1 ) COVAL(WDMPN03 ,USC1, FIXFLU , GRND1 ) COVAL(WDMPN03 ,U2RS, FIXFLU , GRND1 ) COVAL(WDMPN03 ,V2RS, FIXFLU , GRND1 ) COVAL(WDMPN03 ,W2RS, FIXFLU , GRND1 ) COVAL(WDMPN03 ,UVRS, FIXFLU , GRND1 ) COVAL(WDMPN03 ,UWRS, FIXFLU , GRND1 ) COVAL(WDMPN03 ,VWRS, FIXFLU , GRND1 ) PATCH(SMPLS ,SOUTH , 1, 1, 1, 1, 1, 1, 1, 1) COVAL(SMPLS ,VTRS, GRND1 ,0. ) COVAL(SMPLS ,VSC1, GRND1 ,0. ) COVAL(SMPLS ,UVRS, GRND1 ,0. ) COVAL(SMPLS ,UWRS, GRND1 ,0. ) COVAL(SMPLS ,VWRS, GRND1 ,0. ) PATCH(GP12CONH,CELL , 1, 1, 1, 30, 1, 1, 1, 1) COVAL(GP12CONH,VTRS,0. ,0. ) COVAL(GP12CONH,UTRS,0. ,0. ) COVAL(GP12CONH,VSC1,0. ,0. ) COVAL(GP12CONH,USC1,0. ,0. ) COVAL(GP12CONH,U2RS,0. ,0. ) COVAL(GP12CONH,V2RS,0. ,0. ) COVAL(GP12CONH,W2RS,0. ,0. ) COVAL(GP12CONH,UVRS,0. ,0. ) COVAL(GP12CONH,UWRS,0. ,0. ) COVAL(GP12CONH,VWRS,0. ,0. ) PATCH(FDFCHF ,PHASEM, 1, 1, 1, 30, 1, 1, 1, 1) COVAL(FDFCHF ,SC1 ,0.010778 , GRND1 ) COVAL(FDFCHF ,TEM1,0.010778 , GRND1 ) PATCH(TFIX ,CELL , 1, 1, 1, 1, 1, 1, 1, 1) COVAL(TFIX ,SC1 ,1. ,0. ) COVAL(TFIX ,TEM1,1. ,0. ) XCYCLE = F EGWF = T WALLCO = GRND2 ************************************************************ Group 14. Downstream Pressure For PARAB ************************************************************ Group 15. Terminate Sweeps LSWEEP = 400 ;ISWC1 = 1 LITHYD = 5 ;LITFLX = 1 ;LITC = 1 ;ITHC1 = 1 SELREF = T RESFAC =1.0E-04 ************************************************************ Group 16. Terminate Iterations LITER(U1)=10 ;LITER(W1)=10 LITER(EP)=20 ;LITER(VTRS)=20 LITER(UTRS)=20 ;LITER(VSC1)=20 LITER(USC1)=20 ;LITER(U2RS)=20 LITER(V2RS)=20 ;LITER(W2RS)=20 LITER(UVRS)=20 ;LITER(UWRS)=20 LITER(VWRS)=20 ;LITER(SC1)=20 LITER(TEM1)=20 ENDIT(U1)=1.0E-03 ;ENDIT(W1)=1.0E-03 ENDIT(EP)=1.0E-03 ;ENDIT(VTRS)=1.0E-03 ENDIT(UTRS)=1.0E-03 ;ENDIT(VSC1)=1.0E-03 ENDIT(USC1)=1.0E-03 ;ENDIT(U2RS)=1.0E-03 ENDIT(V2RS)=1.0E-03 ;ENDIT(W2RS)=1.0E-03 ENDIT(UVRS)=1.0E-03 ;ENDIT(UWRS)=1.0E-03 ENDIT(VWRS)=1.0E-03 ;ENDIT(SC1)=1.0E-03 ENDIT(TEM1)=1.0E-03 ************************************************************ Group 17. Relaxation RELAX(U1,FALSDT,0.5) RELAX(V1,LINRLX,1.) RELAX(W1,FALSDT,0.5) RELAX(KE,LINRLX,1.) RELAX(EP,FALSDT,0.5) RELAX(PRPS,LINRLX,1.) RELAX(DSDY,LINRLX,1.) RELAX(VTRS,FALSDT,0.1) RELAX(UTRS,FALSDT,0.1) RELAX(VSC1,FALSDT,0.1) RELAX(USC1,FALSDT,0.1) RELAX(U2RS,FALSDT,0.1) RELAX(V2RS,FALSDT,0.1) RELAX(W2RS,FALSDT,0.1) RELAX(UVRS,FALSDT,0.1) RELAX(UWRS,FALSDT,0.1) RELAX(VWRS,FALSDT,0.1) RELAX(LEN1,LINRLX,1.) RELAX(ENUT,LINRLX,1.) RELAX(W2DK,LINRLX,1.) RELAX(V2DK,LINRLX,1.) RELAX(U2DK,LINRLX,1.) RELAX(VWDK,LINRLX,1.) RELAX(FWAL,LINRLX,1.) RELAX(EPDK,LINRLX,1.) RELAX(PK,LINRLX,1.) RELAX(DVW,LINRLX,1.) RELAX(PU2,LINRLX,1.) RELAX(PV2,LINRLX,1.) RELAX(PW2,LINRLX,1.) RELAX(DWDY,LINRLX,1.) RELAX(UWDK,LINRLX,1.) RELAX(UVDK,LINRLX,1.) RELAX(DVDX,LINRLX,1.) RELAX(DUDY,LINRLX,1.) RELAX(PVW,LINRLX,1.) RELAX(PUV,LINRLX,1.) RELAX(SC1,FALSDT,2.) RELAX(TEM1,FALSDT,2.) RELAX(U1EX,LINRLX,1.) OVRRLX =0. EXPERT = F ;NNORSL = F ************************************************************ Group 18. Limits 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(PRPS)=1.0E+10 ;VARMIN(PRPS)=-1.0E+10 VARMAX(DSDY)=1.0E+10 ;VARMIN(DSDY)=-1.0E+10 VARMAX(VTRS)=1.0E+10 ;VARMIN(VTRS)=-1.0E+10 VARMAX(UTRS)=1.0E+10 ;VARMIN(UTRS)=-1.0E+10 VARMAX(VSC1)=1.0E+10 ;VARMIN(VSC1)=-1.0E+10 VARMAX(USC1)=1.0E+10 ;VARMIN(USC1)=-1.0E+10 VARMAX(U2RS)=1.0E+10 ;VARMIN(U2RS)=-1.0E+10 VARMAX(V2RS)=1.0E+10 ;VARMIN(V2RS)=-1.0E+10 VARMAX(W2RS)=1.0E+10 ;VARMIN(W2RS)=-1.0E+10 VARMAX(UVRS)=1.0E+10 ;VARMIN(UVRS)=-1.0E+10 VARMAX(UWRS)=1.0E+10 ;VARMIN(UWRS)=-1.0E+10 VARMAX(VWRS)=1.0E+10 ;VARMIN(VWRS)=-1.0E+10 VARMAX(LEN1)=1.0E+10 ;VARMIN(LEN1)=-1.0E+10 VARMAX(ENUT)=1.0E+10 ;VARMIN(ENUT)=-1.0E+10 VARMAX(W2DK)=1.0E+10 ;VARMIN(W2DK)=-1.0E+10 VARMAX(V2DK)=1.0E+10 ;VARMIN(V2DK)=-1.0E+10 VARMAX(U2DK)=1.0E+10 ;VARMIN(U2DK)=-1.0E+10 VARMAX(VWDK)=1.0E+10 ;VARMIN(VWDK)=-1.0E+10 VARMAX(FWAL)=1.0E+10 ;VARMIN(FWAL)=-1.0E+10 VARMAX(EPDK)=1.0E+10 ;VARMIN(EPDK)=-1.0E+10 VARMAX(PK)=1.0E+10 ;VARMIN(PK)=-1.0E+10 VARMAX(DVW)=1.0E+10 ;VARMIN(DVW)=-1.0E+10 VARMAX(PU2)=1.0E+10 ;VARMIN(PU2)=-1.0E+10 VARMAX(PV2)=1.0E+10 ;VARMIN(PV2)=-1.0E+10 VARMAX(PW2)=1.0E+10 ;VARMIN(PW2)=-1.0E+10 VARMAX(DWDY)=1.0E+10 ;VARMIN(DWDY)=-1.0E+10 VARMAX(UWDK)=1.0E+10 ;VARMIN(UWDK)=-1.0E+10 VARMAX(UVDK)=1.0E+10 ;VARMIN(UVDK)=-1.0E+10 VARMAX(DVDX)=1.0E+10 ;VARMIN(DVDX)=-1.0E+10 VARMAX(DUDY)=1.0E+10 ;VARMIN(DUDY)=-1.0E+10 VARMAX(PVW)=1.0E+10 ;VARMIN(PVW)=-1.0E+10 VARMAX(PUV)=1.0E+10 ;VARMIN(PUV)=-1.0E+10 VARMAX(SC1)=1.0E+10 ;VARMIN(SC1)=-1.0E+10 VARMAX(TEM1)=1.0E+10 ;VARMIN(TEM1)=-1.0E+10 VARMAX(U1EX)=1.0E+10 ;VARMIN(U1EX)=-1.0E+10 ************************************************************ Group 19. Data transmitted to GROUND GENK = T RSTM = T FDFSOL = T PARSOL = F IRSMSM = 2 ISG62 = 1 CSG10 ='q1' SPEDAT(SET,MATERIAL,37,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(U1,Y,N,Y,Y,Y,Y) OUTPUT(V1,Y,N,Y,N,N,N) OUTPUT(W1,Y,N,Y,Y,Y,Y) OUTPUT(KE,Y,N,Y,N,N,N) OUTPUT(EP,Y,N,Y,Y,Y,Y) OUTPUT(PRPS,Y,N,Y,N,N,N) OUTPUT(DSDY,Y,N,Y,N,N,N) OUTPUT(VTRS,Y,N,Y,Y,Y,Y) OUTPUT(UTRS,Y,N,Y,Y,Y,Y) OUTPUT(VSC1,Y,N,Y,Y,Y,Y) OUTPUT(USC1,Y,N,Y,Y,Y,Y) OUTPUT(U2RS,Y,N,Y,Y,Y,Y) OUTPUT(V2RS,Y,N,Y,Y,Y,Y) OUTPUT(W2RS,Y,N,Y,Y,Y,Y) OUTPUT(UVRS,Y,N,Y,Y,Y,Y) OUTPUT(UWRS,Y,N,Y,Y,Y,Y) OUTPUT(VWRS,Y,N,Y,Y,Y,Y) OUTPUT(LEN1,Y,N,N,N,N,N) OUTPUT(ENUT,Y,N,N,N,N,N) OUTPUT(W2DK,Y,N,Y,N,N,N) OUTPUT(V2DK,Y,N,Y,N,N,N) OUTPUT(U2DK,Y,N,Y,N,N,N) OUTPUT(VWDK,Y,N,Y,N,N,N) OUTPUT(FWAL,Y,N,Y,N,N,N) OUTPUT(EPDK,Y,N,Y,N,N,N) OUTPUT(PK,Y,N,Y,N,N,N) OUTPUT(DVW,Y,N,Y,N,N,N) OUTPUT(PU2,Y,N,Y,N,N,N) OUTPUT(PV2,Y,N,Y,N,N,N) OUTPUT(PW2,Y,N,Y,N,N,N) OUTPUT(DWDY,Y,N,Y,N,N,N) OUTPUT(UWDK,Y,N,Y,N,N,N) OUTPUT(UVDK,Y,N,Y,N,N,N) OUTPUT(DVDX,Y,N,Y,N,N,N) OUTPUT(DUDY,Y,N,Y,N,N,N) OUTPUT(PVW,Y,N,Y,N,N,N) OUTPUT(PUV,Y,N,Y,N,N,N) OUTPUT(SC1,Y,N,Y,Y,Y,Y) OUTPUT(TEM1,Y,N,Y,Y,Y,Y) OUTPUT(U1EX,Y,N,Y,N,N,N) WALPRN = T ************************************************************ Group 22. Monitor Print-Out IXMON = 1 ;IYMON = 29 ;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 NYPRIN = 1 ;IYPRF = 1 ;IYPRL = 10000 IPLTF = 1 ;IPLTL = -1 ;NPLT = 10 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