TALK=T;RUN(1,1)
DISPLAY
CONV$
ECTION AFFECTED BY RADIATION
An IMMERSOL application is presented aimed at the demonstration
of the method for the radiation-affected buoyancy-induced
convection in a rectangular enclosure with thick conductive
walls.
This case deals with conjugate heat transfer in the free-
convected flow of participating gas arising in a rectangular
cavity the thick walls of which are made from aluminium with an
emmitance of 0.9.
The outer surfaces of the bottom and top walls are supposed
to be well insulated. The temperatures of side walls are
different: one has 300K at the outer surface, another is fixed
at 600K.
The task is to compare the velocity and temperature
distributions for the different absorptive and scattering
properties of the gas.
ENDDIS
PHOTON USE
p; ; ; ; ;
msg Temperature contours (TEM1)
con tEM1 z 1 fi;0.001 ; pause;cl
msg Radiation temperature contours (T3)
con t3 z 1 fi;0.001 ; pause;cl
msg x-direcyion heat flux (qrx) contours
con qrx z 1 fi;0.001 ; pause;cl
msg y-direcyion heat flux (qry) contours
con qry z 1 fi;0.001 ; pause;cl
MSG Solution coefficients for Tem1
con #an1 z 1 fi;0.001 ; pause
con #ae1 z 1 fi;0.001 ; pause
con #ap1 z 1 fi;0.001 ; pause
con #rs1 z 1 fi;0.001 ; pause
con #cr1 z 1 fi;0.001 ; pause;cl
MSG Solution coefficients for T3
con #an3 z 1 fi;0.001 ; pause
con #ae3 z 1 fi;0.001 ; pause
con #ap3 z 1 fi;0.001 ; pause
con #rs3 z 1 fi;0.001 ; pause
con #cr3 z 1 fi;0.001 ; pause
ENDUSE
************************************************************
Group 1. Run Title and Number
************************************************************
************************************************************
TEXT(Convection affected by radiation )
************************************************************
************************************************************
IRUNN = 1 ;LIBREF = 0
************************************************************
Group 2. Time dependence
STEADY = T
************************************************************
Group 3. X-Direction Grid Spacing
CARTES = T
NX = 32
XULAST =0.32
XFRAC(1)=0.03125 ;XFRAC(2)=0.0625
XFRAC(3)=0.09375 ;XFRAC(4)=0.125
XFRAC(5)=0.15625 ;XFRAC(6)=0.1875
XFRAC(7)=0.21875 ;XFRAC(8)=0.25
XFRAC(9)=0.28125 ;XFRAC(10)=0.3125
XFRAC(11)=0.34375 ;XFRAC(12)=0.375
XFRAC(13)=0.40625 ;XFRAC(14)=0.4375
XFRAC(15)=0.46875 ;XFRAC(16)=0.5
XFRAC(17)=0.53125 ;XFRAC(18)=0.5625
XFRAC(19)=0.59375 ;XFRAC(20)=0.625
XFRAC(21)=0.65625 ;XFRAC(22)=0.6875
XFRAC(23)=0.71875 ;XFRAC(24)=0.75
XFRAC(25)=0.78125 ;XFRAC(26)=0.8125
XFRAC(27)=0.84375 ;XFRAC(28)=0.875
XFRAC(29)=0.90625 ;XFRAC(30)=0.9375
XFRAC(31)=0.96875 ;XFRAC(32)=1.
************************************************************
Group 4. Y-Direction Grid Spacing
NY = 32
YVLAST =0.32
YFRAC(1)=0.03125 ;YFRAC(2)=0.0625
YFRAC(3)=0.09375 ;YFRAC(4)=0.125
YFRAC(5)=0.15625 ;YFRAC(6)=0.1875
YFRAC(7)=0.21875 ;YFRAC(8)=0.25
YFRAC(9)=0.28125 ;YFRAC(10)=0.3125
YFRAC(11)=0.34375 ;YFRAC(12)=0.375
YFRAC(13)=0.40625 ;YFRAC(14)=0.4375
YFRAC(15)=0.46875 ;YFRAC(16)=0.5
YFRAC(17)=0.53125 ;YFRAC(18)=0.5625
YFRAC(19)=0.59375 ;YFRAC(20)=0.625
YFRAC(21)=0.65625 ;YFRAC(22)=0.6875
YFRAC(23)=0.71875 ;YFRAC(24)=0.75
YFRAC(25)=0.78125 ;YFRAC(26)=0.8125
YFRAC(27)=0.84375 ;YFRAC(28)=0.875
YFRAC(29)=0.90625 ;YFRAC(30)=0.9375
YFRAC(31)=0.96875 ;YFRAC(32)=1.
************************************************************
Group 5. Z-Direction Grid Spacing
PARAB = F
NZ = 1
ZWLAST =1.5
ZFRAC(1)=1.
************************************************************
Group 6. Body-Fitted Coordinates
************************************************************
Group 7. Variables: STOREd,SOLVEd,NAMEd
ONEPHS = T
NAME(1)=P1 ;NAME(3)=U1
NAME(5)=V1 ;NAME(130)=TWAL
NAME(131)=#RS3 ;NAME(132)=#CR3
NAME(133)=#AP3 ;NAME(134)=#AE3
NAME(135)=#AN3 ;NAME(136)=#RS1
NAME(137)=#CR1 ;NAME(138)=#AP1
NAME(139)=#AE1 ;NAME(140)=#AN1
NAME(141)=SCAT ;NAME(142)=EMIS
NAME(143)=LTLS ;NAME(144)=PRPS
NAME(145)=WDIS ;NAME(146)=WGAP
NAME(147)=T3 ;NAME(148)=QRY
NAME(149)=QRX ;NAME(150)=TEM1
* 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(TWAL,Y,N,N,N,N,N)
SOLUTN(#RS3,Y,N,N,N,N,N)
SOLUTN(#CR3,Y,N,N,N,N,N)
SOLUTN(#AP3,Y,N,N,N,N,N)
SOLUTN(#AE3,Y,N,N,N,N,N)
SOLUTN(#AN3,Y,N,N,N,N,N)
SOLUTN(#RS1,Y,N,N,N,N,N)
SOLUTN(#CR1,Y,N,N,N,N,N)
SOLUTN(#AP1,Y,N,N,N,N,N)
SOLUTN(#AE1,Y,N,N,N,N,N)
SOLUTN(#AN1,Y,N,N,N,N,N)
SOLUTN(SCAT,Y,N,N,N,N,Y)
SOLUTN(EMIS,Y,N,N,N,N,Y)
SOLUTN(LTLS,Y,Y,Y,N,N,Y)
SOLUTN(PRPS,Y,N,N,N,N,Y)
SOLUTN(WDIS,Y,N,N,N,N,Y)
SOLUTN(WGAP,Y,N,N,N,N,Y)
SOLUTN(T3,Y,Y,N,N,N,Y)
SOLUTN(QRY,Y,N,N,N,N,Y)
SOLUTN(QRX,Y,N,N,N,N,Y)
SOLUTN(TEM1,Y,Y,Y,N,N,Y)
PRPS = 144
************************************************************
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(LTLS,N,N,Y,N,Y,Y)
TERMS(T3,N,N,Y,N,Y,N)
TERMS(TEM1,N,Y,Y,Y,Y,Y)
DIFCUT =0.5 ;ZDIFAC =1.
GALA = F ;ADDDIF = F
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.189 ;TMP1 =0. ;EL1 =0.
TSURR =0. ;TEMP0 =0. ;PRESS0 =1.0E+05
DVO1DT =3.41E-03 ;DRH1DP =0.
EMISS =1. ;SCATT =0.1
RADIA =1. ;RADIB =0.1
ENUL =1.544E-05 ;ENUT =0.
PRNDTL(U1)=1. ;PRNDTL(V1)=1.
PRNDTL(LTLS)=1. ;PRNDTL(T3)=-0.0258
PRNDTL(TEM1)=-0.0258
PRT(U1)=1. ;PRT(V1)=1.
PRT(LTLS)=1. ;PRT(T3)=1.
PRT(TEM1)=1.
CP1 =1005. ;CP2 =1.
************************************************************
Group 10.Inter-Phase Transfer Processes
************************************************************
Group 11.Initial field variables (PHIs)
FIINIT(P1)=1.0E-10 ;FIINIT(U1)=0.1
FIINIT(V1)=0.1 ;FIINIT(TWAL)=1.0E-10
FIINIT(#RS3)=1.0E-10 ;FIINIT(#CR3)=1.0E-10
FIINIT(#AP3)=1.0E-10 ;FIINIT(#AE3)=1.0E-10
FIINIT(#AN3)=1.0E-10 ;FIINIT(#RS1)=1.0E-10
FIINIT(#CR1)=1.0E-10 ;FIINIT(#AP1)=1.0E-10
FIINIT(#AE1)=1.0E-10 ;FIINIT(#AN1)=1.0E-10
FIINIT(SCAT)=1.0E-10 ;FIINIT(EMIS)=1.0E-10
FIINIT(LTLS)=1.0E-10 ;FIINIT(PRPS)=-1.
FIINIT(WDIS)=0.032 ;FIINIT(WGAP)=1.0E-10
FIINIT(T3)=1.0E-10 ;FIINIT(QRY)=1.0E-10
FIINIT(QRX)=1.0E-10 ;FIINIT(TEM1)=300.
PATCH(^OB1 ,INIVAL, 1, 0, 0, 0, 0, 0, 1, 1)
INIT(^OB1 ,EMIS,0. ,0.9 )
INIT(^OB1 ,PRPS,0. ,100. )
PATCH(^OB4 ,INIVAL, 4, 0, 0, 0, 0, 0, 1, 1)
INIT(^OB4 ,EMIS,0. ,0.9 )
INIT(^OB4 ,PRPS,0. ,100. )
PATCH(^OB5 ,INIVAL, 5, 0, 0, 0, 0, 0, 1, 1)
INIT(^OB5 ,EMIS,0. ,0.9 )
INIT(^OB5 ,PRPS,0. ,100. )
PATCH(^OB6 ,INIVAL, 6, 0, 0, 0, 0, 0, 1, 1)
INIT(^OB6 ,EMIS,0. ,0.9 )
INIT(^OB6 ,PRPS,0. ,100. )
PATCH(^OB7 ,INIVAL, 7, 0, 0, 0, 0, 0, 1, 1)
INIT(^OB7 ,PRPS,0. ,198. )
PATCH(^OB8 ,INIVAL, 8, 0, 0, 0, 0, 0, 1, 1)
INIT(^OB8 ,PRPS,0. ,198. )
PATCH(^OB9 ,INIVAL, 9, 0, 0, 0, 0, 0, 1, 1)
INIT(^OB9 ,PRPS,0. ,198. )
PATCH(^OBA ,INIVAL, 10, 0, 0, 0, 0, 0, 1, 1)
INIT(^OBA ,PRPS,0. ,198. )
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, 32, 1, 32, 1, 1, 1, 1)
COVAL(BUOYANCY,U1 , FIXFLU , GRND3 )
COVAL(BUOYANCY,V1 , FIXFLU , GRND3 )
PATCH(^OC1 ,CELL , 1, 19, 0, 0, 0, 0, 1, 1)
COVAL(^OC1 ,T3 ,2.02E+10 ,600. )
PATCH(^IM2 ,CELL , 2, 8, 0, 0, 0, 0, 1, 1)
COVAL(^IM2 ,U1 ,1. ,0. )
COVAL(^IM2 ,T3 , GRND4 ,300. )
COVAL(^IM2 ,TEM1,1. ,300. )
PATCH(^P-REL1 ,CELL , 3, 1, 0, 0, 0, 0, 1, 1)
COVAL(^P-REL1 ,P1 ,1. ,0. )
COVAL(^P-REL1 ,TEM1,0. , SAME )
XCYCLE = F
EGWF = T
WALLCO = GRND2
BUOYA =9.81 ; BUOYB =0. ; BUOYC =0.
BUOYD =3.41E-03
BUOYE =20.
************************************************************
Group 14. Downstream Pressure For PARAB
************************************************************
Group 15. Terminate Sweeps
LSWEEP = 2000 ;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(LTLS)=20
LITER(T3)=20 ;LITER(TEM1)=20
ENDIT(P1)=1.0E-03 ;ENDIT(U1)=1.0E-03
ENDIT(V1)=1.0E-03 ;ENDIT(LTLS)=1.0E-03
ENDIT(T3)=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(TWAL,LINRLX,1.)
RELAX(#RS3,LINRLX,1.)
RELAX(#CR3,LINRLX,1.)
RELAX(#AP3,LINRLX,1.)
RELAX(#AE3,LINRLX,1.)
RELAX(#AN3,LINRLX,1.)
RELAX(#RS1,LINRLX,1.)
RELAX(#CR1,LINRLX,1.)
RELAX(#AP1,LINRLX,1.)
RELAX(#AE1,LINRLX,1.)
RELAX(#AN1,LINRLX,1.)
RELAX(SCAT,LINRLX,1.)
RELAX(EMIS,LINRLX,1.)
RELAX(LTLS,FALSDT,1.0E+09)
RELAX(PRPS,LINRLX,1.)
RELAX(WDIS,LINRLX,1.)
RELAX(WGAP,LINRLX,1.)
RELAX(T3,LINRLX,0.5)
RELAX(QRY,LINRLX,1.)
RELAX(QRX,LINRLX,1.)
RELAX(TEM1,LINRLX,0.5)
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(TWAL)=1.0E+10 ;VARMIN(TWAL)=-1.0E+10
VARMAX(#RS3)=1.0E+10 ;VARMIN(#RS3)=-1.0E+10
VARMAX(#CR3)=1.0E+10 ;VARMIN(#CR3)=-1.0E+10
VARMAX(#AP3)=1.0E+10 ;VARMIN(#AP3)=-1.0E+10
VARMAX(#AE3)=1.0E+10 ;VARMIN(#AE3)=-1.0E+10
VARMAX(#AN3)=1.0E+10 ;VARMIN(#AN3)=-1.0E+10
VARMAX(#RS1)=1.0E+10 ;VARMIN(#RS1)=-1.0E+10
VARMAX(#CR1)=1.0E+10 ;VARMIN(#CR1)=-1.0E+10
VARMAX(#AP1)=1.0E+10 ;VARMIN(#AP1)=-1.0E+10
VARMAX(#AE1)=1.0E+10 ;VARMIN(#AE1)=-1.0E+10
VARMAX(#AN1)=1.0E+10 ;VARMIN(#AN1)=-1.0E+10
VARMAX(SCAT)=1.0E+10 ;VARMIN(SCAT)=-1.0E+10
VARMAX(EMIS)=1.0E+10 ;VARMIN(EMIS)=-1.0E+10
VARMAX(LTLS)=1.0E+10 ;VARMIN(LTLS)=-1.0E+10
VARMAX(PRPS)=1.0E+10 ;VARMIN(PRPS)=-1.0E+10
VARMAX(WDIS)=1.0E+10 ;VARMIN(WDIS)=-1.0E+10
VARMAX(WGAP)=1.0E+10 ;VARMIN(WGAP)=-1.0E+10
VARMAX(T3)=600. ;VARMIN(T3)=300.
VARMAX(QRY)=1.0E+10 ;VARMIN(QRY)=-1.0E+10
VARMAX(QRX)=1.0E+10 ;VARMIN(QRX)=-1.0E+10
VARMAX(TEM1)=600. ;VARMIN(TEM1)=300.
************************************************************
Group 19. Data transmitted to GROUND
PARSOL = F
ISG62 = 1
SPEDAT(SET,DOMAIN,PHASE_1_MAT,I,0)
SPEDAT(SET,STORED,#AN1,C,=ANCO(TEM1)!EQCOEF)
SPEDAT(SET,STORED,#AE1,C,=AECO(TEM1)!EQCOEF)
SPEDAT(SET,STORED,#AP1,C,=APCO(TEM1)!EQCOEF)
SPEDAT(SET,STORED,#CR1,C,=CORR(TEM1)!CORREC)
SPEDAT(SET,STORED,#RS1,C,=RESI(TEM1)!RESIDU)
SPEDAT(SET,STORED,#AN3,C,=ANCO(T3)!EQCOEF)
SPEDAT(SET,STORED,#AE3,C,=AECO(T3)!EQCOEF)
SPEDAT(SET,STORED,#AP3,C,=APCO(T3)!EQCOEF)
SPEDAT(SET,STORED,#CR3,C,=CORR(T3)!CORREC)
SPEDAT(SET,STORED,#RS3,C,=RESI(T3)!RESIDU)
SPEDAT(SET,GXMONI,PLOTALL,L,T)
SPEDAT(SET,OBJNAM,^OB1,C,B14)
SPEDAT(SET,OBJTYP,^OB1,C,BLOCKAGE)
SPEDAT(SET,B14,MATERIAL,R,100.)
SPEDAT(SET,OBJNAM,^OC1,C,B14)
SPEDAT(SET,OBJTYP,^OC1,C,BLOCKAGE)
SPEDAT(SET,OBJNAM,^OB2,C,B24)
SPEDAT(SET,OBJTYP,^OB2,C,PLATE)
SPEDAT(SET,EMISSIVITY,OF^IM2,R,1.)
SPEDAT(SET,OBJNAM,^IM2,C,B24)
SPEDAT(SET,OBJTYP,^IM2,C,PLATE)
SPEDAT(SET,OBJNAM,^OB3,C,B25)
SPEDAT(SET,OBJTYP,^OB3,C,PRESSURE_RELIEF)
SPEDAT(SET,OBJNAM,^P-REL1,C,B25)
SPEDAT(SET,OBJTYP,^P-REL1,C,USER_DEFINED)
SPEDAT(SET,OBJNAM,^OB4,C,B26)
SPEDAT(SET,OBJTYP,^OB4,C,BLOCKAGE)
SPEDAT(SET,B26,MATERIAL,R,100.)
SPEDAT(SET,OBJNAM,^OB5,C,B5)
SPEDAT(SET,OBJTYP,^OB5,C,BLOCKAGE)
SPEDAT(SET,B5,MATERIAL,R,100.)
SPEDAT(SET,OBJNAM,^OB6,C,B6)
SPEDAT(SET,OBJTYP,^OB6,C,BLOCKAGE)
SPEDAT(SET,B6,MATERIAL,R,100.)
SPEDAT(SET,OBJNAM,^OB7,C,B7)
SPEDAT(SET,OBJTYP,^OB7,C,BLOCKAGE)
SPEDAT(SET,B7,MATERIAL,R,198.)
SPEDAT(SET,B7,CO_TEM1,R,-1.013E+04)
SPEDAT(SET,B7,VAL_TEM1,R,-1.016E+04)
SPEDAT(SET,B7,CO_T3,R,-1.015E+04)
SPEDAT(SET,B7,VAL_T3,R,-1.016E+04)
SPEDAT(SET,B7,TINT,R,0.)
SPEDAT(SET,B7,LNK_TEM1,R,0.)
SPEDAT(SET,B7,EMIS,R,1.)
SPEDAT(SET,OBJNAM,^OB8,C,B8)
SPEDAT(SET,OBJTYP,^OB8,C,BLOCKAGE)
SPEDAT(SET,B8,MATERIAL,R,198.)
SPEDAT(SET,B8,CO_TEM1,R,-1.013E+04)
SPEDAT(SET,B8,VAL_TEM1,R,-1.016E+04)
SPEDAT(SET,B8,CO_T3,R,-1.015E+04)
SPEDAT(SET,B8,VAL_T3,R,-1.016E+04)
SPEDAT(SET,B8,TINT,R,0.)
SPEDAT(SET,B8,LNK_TEM1,R,0.)
SPEDAT(SET,B8,EMIS,R,1.)
SPEDAT(SET,OBJNAM,^OB9,C,B9)
SPEDAT(SET,OBJTYP,^OB9,C,BLOCKAGE)
SPEDAT(SET,B9,MATERIAL,R,198.)
SPEDAT(SET,B9,CO_TEM1,R,-1.013E+04)
SPEDAT(SET,B9,VAL_TEM1,R,-1.016E+04)
SPEDAT(SET,B9,CO_T3,R,-1.015E+04)
SPEDAT(SET,B9,VAL_T3,R,-1.016E+04)
SPEDAT(SET,B9,TINT,R,0.)
SPEDAT(SET,B9,LNK_TEM1,R,0.)
SPEDAT(SET,B9,EMIS,R,1.)
SPEDAT(SET,OBJNAM,^OBA,C,B10)
SPEDAT(SET,OBJTYP,^OBA,C,BLOCKAGE)
SPEDAT(SET,B10,MATERIAL,R,198.)
SPEDAT(SET,B10,CO_TEM1,R,-1.013E+04)
SPEDAT(SET,B10,VAL_TEM1,R,-1.016E+04)
SPEDAT(SET,B10,CO_T3,R,-1.015E+04)
SPEDAT(SET,B10,VAL_T3,R,-1.016E+04)
SPEDAT(SET,B10,TINT,R,0.)
SPEDAT(SET,B10,LNK_TEM1,R,0.)
SPEDAT(SET,B10,EMIS,R,1.)
SPEDAT(SET,FACETDAT,NUMOBJ,I,10)
SPEDAT(SET,MATERIAL,100,L,T)
SPEDAT(SET,MATERIAL,198,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,Y,Y,N,Y,Y)
OUTPUT(U1,Y,Y,Y,N,Y,Y)
OUTPUT(V1,Y,Y,Y,N,Y,Y)
OUTPUT(TWAL,Y,N,Y,N,N,N)
OUTPUT(#RS3,Y,N,Y,N,N,N)
OUTPUT(#CR3,Y,N,Y,N,N,N)
OUTPUT(#AP3,Y,N,Y,N,N,N)
OUTPUT(#AE3,Y,N,Y,N,N,N)
OUTPUT(#AN3,Y,N,Y,N,N,N)
OUTPUT(#RS1,Y,N,Y,N,N,N)
OUTPUT(#CR1,Y,N,Y,N,N,N)
OUTPUT(#AP1,Y,N,Y,N,N,N)
OUTPUT(#AE1,Y,N,Y,N,N,N)
OUTPUT(#AN1,Y,N,Y,N,N,N)
OUTPUT(SCAT,Y,N,Y,N,N,N)
OUTPUT(EMIS,Y,N,Y,N,N,N)
OUTPUT(LTLS,Y,N,Y,Y,Y,Y)
OUTPUT(PRPS,Y,N,Y,N,N,N)
OUTPUT(WDIS,Y,N,N,N,N,N)
OUTPUT(WGAP,Y,N,Y,N,N,N)
OUTPUT(T3,Y,N,Y,Y,Y,Y)
OUTPUT(QRY,Y,N,Y,N,N,N)
OUTPUT(QRX,Y,N,Y,N,N,N)
OUTPUT(TEM1,Y,N,Y,Y,Y,Y)
************************************************************
Group 22. Monitor Print-Out
IXMON = 16 ;IYMON = 16 ;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
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