TALK=T;RUN(1,1)
  PHOTON USE
  p



  GR OU X    21 Y     1     3 Z     1     1
  GR OU X     1 Y     1     3 Z     1     1
  GR OU Y     4 X     1    20 Z     1     1
  GR OU Y     1 X     1    20 Z     1     1
  GR OU X     6 Y     4    10 Z     1     1
  GR OU X     1 Y     4    10 Z     1     1
  GR OU Y    11 X     1     5 Z     1     1
  GR OU Y     4 X     1     5 Z     1     1
  GR OU X     4 Y    11    14 Z     1     1
  GR OU X     1 Y    11    14 Z     1     1
  GR OU Y    15 X     1     3 Z     1     1
  GR OU Y    11 X     1     3 Z     1     1
  GR OU X     6 Y    15    22 Z     1     1
  GR OU X     1 Y    15    22 Z     1     1
  GR OU Y    23 X     1     5 Z     1     1
  GR OU Y    15 X     1     5 Z     1     1
  GR OU X    21 Y    15    22 Z     1     1
  GR OU X    14 Y    15    22 Z     1     1
  GR OU Y    23 X    14    20 Z     1     1
  GR OU Y    15 X    14    20 Z     1     1
  GR OU X    21 Y    11    14 Z     1     1
  GR OU X    16 Y    11    14 Z     1     1
  GR OU Y    15 X    16    20 Z     1     1
  GR OU Y    11 X    16    20 Z     1     1
  GR OU X    21 Y     9    10 Z     1     1
  GR OU X    14 Y     9    10 Z     1     1
  GR OU Y    11 X    14    20 Z     1     1
  GR OU Y     9 X    14    20 Z     1     1
  GR OU X    16 Y    11    14 Z     1     1 COL    14
  GR OU X     4 Y    11    14 Z     1     1 COL    14
  GR OU Y    15 X     4    15 Z     1     1 COL    14
  GR OU Y    11 X     4    15 Z     1     1 COL    14
  MSG                     COOLER GEOMETRY
  msg Press Enter to continue
  PAUSE;red
  VEC Z 1 Y 1 28 SH
  MSG                     Velocity vectors
  msg Press Enter to continue
  pause;vec off;red
  con tgas z 1 Y 1 28 fil;0.01
  msg                    Temperature contours
  msg Press Enter to continue
  pause;con off;red
  con yn2 z 1 Y 1 28 fil;0.01
  msg                  Nitrogen
  msg Press Enter to continue
  pause;con off;red
  con yo2 z 1 Y 1 28 fil;0.01
  msg                  Oxygen
  msg Press Enter to continue
  pause;con off;red
  con yh2 z 1 Y 1 28 fil;0.01
  msg                  Hydrogen
  msg Press Enter to continue
  pause;con off;red
  con yco z 1 Y 1 28 fil;0.01
  msg                   CO
  msg Press Enter to continue
  pause;con off;red
  con yco2 z 1 Y 1 28 fil;0.01
  msg                   CO2
  msg Press Enter to continue
  pause;con off;red
  con yh2o z 1 Y 1 28 fil;0.01
  msg                   H2O
  msg Press Enter to end
  ENDUSE
  DISPLAY

  Environmental level coke combustion simulation

  The packed bed of heat generating materials is cooled by air
  flow generated by buyoancy.  The pressure drop across a packed
  bed is obtained from Ergun equation. The material tempeartures
  are also calculated.

  ENDDIS
 ************************************************************
  Group 1. Run Title and Number
 ************************************************************
 ************************************************************
 
 TEXT(Environmental level coke combustion simu)
 
 ************************************************************
 ************************************************************
 
 IRUNN = 1 ;LIBREF = 262
 ************************************************************
  Group 2. Time dependence
 STEADY = T
 ************************************************************
  Group 3. X-Direction Grid Spacing
 CARTES = T
 NX = 25
 XULAST =14.4
 XFRAC(1)=0.0463 ;XFRAC(2)=0.09259
 XFRAC(3)=0.1389 ;XFRAC(4)=0.1649
 XFRAC(5)=0.191 ;XFRAC(6)=0.2179
 XFRAC(7)=0.2448 ;XFRAC(8)=0.2717
 XFRAC(9)=0.2986 ;XFRAC(10)=0.3255
 XFRAC(11)=0.3524 ;XFRAC(12)=0.3793
 XFRAC(13)=0.4063 ;XFRAC(14)=0.4323
 XFRAC(15)=0.4583 ;XFRAC(16)=0.4972
 XFRAC(17)=0.5361 ;XFRAC(18)=0.575
 XFRAC(19)=0.6139 ;XFRAC(20)=0.6528
 XFRAC(21)=0.6838 ;XFRAC(22)=0.7406
 XFRAC(23)=0.8142 ;XFRAC(24)=0.9012
 XFRAC(25)=1.
 ************************************************************
  Group 4. Y-Direction Grid Spacing
 NY = 30
 YVLAST =27.
 YFRAC(1)=0.06173 ;YFRAC(2)=0.1235
 YFRAC(3)=0.1852 ;YFRAC(4)=0.2022
 YFRAC(5)=0.2193 ;YFRAC(6)=0.2363
 YFRAC(7)=0.2533 ;YFRAC(8)=0.2704
 YFRAC(9)=0.2778 ;YFRAC(10)=0.2852
 YFRAC(11)=0.3065 ;YFRAC(12)=0.3278
 YFRAC(13)=0.3491 ;YFRAC(14)=0.3704
 YFRAC(15)=0.4028 ;YFRAC(16)=0.4352
 YFRAC(17)=0.4676 ;YFRAC(18)=0.5
 YFRAC(19)=0.5324 ;YFRAC(20)=0.5648
 YFRAC(21)=0.5972 ;YFRAC(22)=0.6296
 YFRAC(23)=0.6759 ;YFRAC(24)=0.7222
 YFRAC(25)=0.7685 ;YFRAC(26)=0.8148
 YFRAC(27)=0.8611 ;YFRAC(28)=0.9074
 YFRAC(29)=0.9537 ;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(1)=P1 ;NAME(3)=U1
 NAME(5)=V1 ;NAME(12)=KE
 NAME(13)=EP ;NAME(14)=H1
 NAME(124)=PRPS ;NAME(125)=DEN1
 NAME(126)=YSUM ;NAME(127)=GOPA
 NAME(128)=GOFU ;NAME(129)=GH
 NAME(130)=GC ;NAME(131)=GO
 NAME(132)=FRAC ;NAME(133)=FLIM
 NAME(134)=RMIX ;NAME(135)=YH2O
 NAME(136)=YCO2 ;NAME(137)=YCO
 NAME(138)=YO2 ;NAME(139)=YH2
 NAME(140)=YN2 ;NAME(141)=TGAS
 NAME(142)=HSUB ;NAME(143)=FCL
 NAME(144)=H11 ;NAME(145)=VPOR
 NAME(146)=NPOR ;NAME(147)=EPOR
 NAME(148)=ENUT ;NAME(149)=TMP1
 NAME(150)=METL
    * 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,N)
 SOLUTN(U1,Y,Y,N,N,N,Y)
 SOLUTN(V1,Y,Y,N,N,N,Y)
 SOLUTN(KE,Y,Y,N,N,N,N)
 SOLUTN(EP,Y,Y,N,N,N,N)
 SOLUTN(H1,Y,Y,N,N,N,Y)
 SOLUTN(PRPS,Y,N,N,N,N,N)
 SOLUTN(DEN1,Y,N,N,N,N,Y)
 SOLUTN(YSUM,Y,N,N,N,N,Y)
 SOLUTN(GOPA,Y,N,N,N,N,Y)
 SOLUTN(GOFU,Y,N,N,N,N,Y)
 SOLUTN(GH,Y,N,N,N,N,Y)
 SOLUTN(GC,Y,N,N,N,N,Y)
 SOLUTN(GO,Y,N,N,N,N,Y)
 SOLUTN(FRAC,Y,N,N,N,N,Y)
 SOLUTN(FLIM,Y,N,N,N,N,Y)
 SOLUTN(RMIX,Y,N,N,N,N,Y)
 SOLUTN(YH2O,Y,N,N,N,N,Y)
 SOLUTN(YCO2,Y,N,N,N,N,Y)
 SOLUTN(YCO,Y,N,N,N,N,Y)
 SOLUTN(YO2,Y,N,N,N,N,Y)
 SOLUTN(YH2,Y,N,N,N,N,Y)
 SOLUTN(YN2,Y,N,N,N,N,Y)
 SOLUTN(TGAS,Y,N,N,N,N,Y)
 SOLUTN(HSUB,Y,N,N,N,N,Y)
 SOLUTN(FCL,Y,Y,Y,N,N,Y)
 SOLUTN(H11,Y,Y,Y,N,N,Y)
 SOLUTN(VPOR,Y,N,N,N,N,Y)
 SOLUTN(NPOR,Y,N,N,N,N,Y)
 SOLUTN(EPOR,Y,N,N,N,N,Y)
 SOLUTN(ENUT,Y,N,N,N,N,Y)
 SOLUTN(TMP1,Y,N,N,N,N,Y)
 SOLUTN(METL,Y,Y,N,N,N,Y)
 DEN1 = 125
 VIST = 148
 EPOR = 147 ;HPOR = 0 ;NPOR = 146 ;VPOR = 145
 TEMP1 = 149
 PRPS = 124
 ************************************************************
  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(KE,N,Y,Y,Y,Y,N)
 TERMS(EP,N,Y,Y,Y,Y,N)
 TERMS(H1,Y,Y,Y,Y,Y,Y)
 TERMS(FCL,N,Y,N,Y,N,Y)
 TERMS(H11,N,Y,N,Y,Y,Y)
 TERMS(METL,N,N,N,N,Y,N)
 DIFCUT =0.5 ;ZDIFAC =1.
 GALA = F ;ADDDIF = F
 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 =1.22 ;TMP1 = GRND2 ;EL1 = GRND4
 TSURR =0. ;TEMP0 =0. ;PRESS0 =1.0E+05
 DVO1DT =3.686747E-06 ;DRH1DP =0.
 TMP1A =0. ;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 =1.465E-05 ;ENUT = GRND3
 ENUTA =0. ;ENUTB =0. ;ENUTC =0.
 IENUTA = 0
 PRNDTL(U1)=1. ;PRNDTL(V1)=1.
 PRNDTL(KE)=1. ;PRNDTL(EP)=1.
 PRNDTL(H1)=0.736
 PRT(U1)=1. ;PRT(V1)=1.
 PRT(KE)=1. ;PRT(EP)=1.314
 PRT(H1)=1.
 CP1 =996. ;CP2 =1.
 ************************************************************
  Group 10.Inter-Phase Transfer Processes
 ************************************************************
  Group 11.Initial field variables (PHIs)
 FIINIT(P1)=1.0E-10 ;FIINIT(U1)=0.
 FIINIT(V1)=0.1 ;FIINIT(KE)=0.05
 FIINIT(EP)=0.24573 ;FIINIT(H1)=2.32068E+05
 FIINIT(PRPS)=-1. ;FIINIT(DEN1)=1.0E-10
 FIINIT(YSUM)=1.0E-10 ;FIINIT(GOPA)=1.0E-10
 FIINIT(GOFU)=1.0E-10 ;FIINIT(GH)=1.0E-10
 FIINIT(GC)=1.0E-10 ;FIINIT(GO)=1.0E-10
 FIINIT(FRAC)=1.0E-10 ;FIINIT(FLIM)=1.0E-10
 FIINIT(RMIX)=1.0E-10 ;FIINIT(YH2O)=1.0E-10
 FIINIT(YCO2)=1.0E-10 ;FIINIT(YCO)=1.0E-10
 FIINIT(YO2)=0.232 ;FIINIT(YH2)=1.0E-10
 FIINIT(YN2)=0.768 ;FIINIT(TGAS)=1.0E-10
 FIINIT(HSUB)=1.0E-10 ;FIINIT(FCL)=1.
 FIINIT(H11)=1.0E-10 ;FIINIT(VPOR)=1.
 FIINIT(NPOR)=1. ;FIINIT(EPOR)=1.
 FIINIT(ENUT)=1.0E-10 ;FIINIT(TMP1)=1.0E-10
 FIINIT(METL)=1.0E-10
 
 PATCH(CMP1 ,INIVAL, 1, 20, 1, 3, 1, 1, 1, 1)
 INIT(CMP1 ,PRPS,0. ,198. )
 
 PATCH(CMP2 ,INIVAL, 1, 5, 4, 10, 1, 1, 1, 1)
 INIT(CMP2 ,PRPS,0. ,198. )
 
 PATCH(CMP3 ,INIVAL, 1, 3, 11, 14, 1, 1, 1, 1)
 INIT(CMP3 ,PRPS,0. ,198. )
 
 PATCH(CMP4 ,INIVAL, 1, 5, 15, 22, 1, 1, 1, 1)
 INIT(CMP4 ,PRPS,0. ,198. )
 
 PATCH(CMP5 ,INIVAL, 14, 20, 15, 22, 1, 1, 1, 1)
 INIT(CMP5 ,PRPS,0. ,198. )
 
 PATCH(CMP6 ,INIVAL, 16, 20, 11, 14, 1, 1, 1, 1)
 INIT(CMP6 ,PRPS,0. ,198. )
 
 PATCH(CMP7 ,INIVAL, 14, 20, 9, 10, 1, 1, 1, 1)
 INIT(CMP7 ,PRPS,0. ,198. )
 
 PATCH(CMP8 ,INIVAL, 4, 15, 11, 14, 1, 1, 1, 1)
 INIT(CMP8 ,VPOR,0. ,0.8 )
 
 PATCH(CMP9 ,INIVAL, 4, 15, 11, 14, 1, 1, 1, 1)
 INIT(CMP9 ,EPOR,0. ,0.8 )
 
 PATCH(CMP10 ,INIVAL, 4, 15, 11, 14, 1, 1, 1, 1)
 INIT(CMP10 ,NPOR,0. ,0.8 )
 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(KESOURCE,PHASEM, 0, 0, 0, 0, 0, 0, 1, 1)
 COVAL(KESOURCE,KE , GRND4 , GRND4 )
 COVAL(KESOURCE,EP , GRND4 , GRND4 )
 
 PATCH(OUTR ,EAST , 25, 25, 1, 30, 1, 1, 1, 1)
 COVAL(OUTR ,P1 ,1000. ,0. )
 COVAL(OUTR ,U1 ,0. , SAME )
 COVAL(OUTR ,V1 ,0. , SAME )
 COVAL(OUTR ,KE ,0. , SAME )
 COVAL(OUTR ,EP ,0. , SAME )
 COVAL(OUTR ,H1 ,0. ,2.32068E+05 )
 COVAL(OUTR ,FCL ,0. ,0. )
 COVAL(OUTR ,H11 ,0. ,2.32068E+05 )
 COVAL(OUTR ,METL,0. , SAME )
 
 PATCH(OUTL ,WEST , 1, 1, 23, 30, 1, 1, 1, 1)
 COVAL(OUTL ,P1 ,1000. ,0. )
 COVAL(OUTL ,U1 ,0. , SAME )
 COVAL(OUTL ,V1 ,0. , SAME )
 COVAL(OUTL ,KE ,0. , SAME )
 COVAL(OUTL ,EP ,0. , SAME )
 COVAL(OUTL ,H1 ,0. ,2.32068E+05 )
 COVAL(OUTL ,FCL ,0. ,0. )
 COVAL(OUTL ,H11 ,0. ,2.32068E+05 )
 COVAL(OUTL ,METL,0. , SAME )
 
 PATCH(OUTUP ,NORTH , 1, 25, 30, 30, 1, 1, 1, 1)
 COVAL(OUTUP ,P1 ,1000. ,0. )
 COVAL(OUTUP ,U1 ,0. , SAME )
 COVAL(OUTUP ,V1 ,0. , SAME )
 COVAL(OUTUP ,KE ,0. , SAME )
 COVAL(OUTUP ,EP ,0. , SAME )
 COVAL(OUTUP ,H1 ,0. ,2.32068E+05 )
 COVAL(OUTUP ,FCL ,0. ,0. )
 COVAL(OUTUP ,H11 ,0. ,2.32068E+05 )
 COVAL(OUTUP ,METL,0. , SAME )
 
 PATCH(HEAT ,VOLUME, 4, 15, 11, 14, 1, 1, 1, 1)
 COVAL(HEAT ,H1 , FIXFLU ,7.10022E+04 )
 COVAL(HEAT ,METL, FIXFLU ,7.10022E+04 )
 
 PATCH(ERLIN ,PHASEM, 4, 15, 11, 14, 1, 1, 1, 1)
 COVAL(ERLIN ,U1 ,2.289062E-04 ,0. )
 COVAL(ERLIN ,V1 ,2.289062E-04 ,0. )
 
 PATCH(ERQUA ,PHASEM, 4, 15, 11, 14, 1, 1, 1, 1)
 COVAL(ERQUA ,U1 , GRND ,0. )
 COVAL(ERQUA ,V1 , GRND ,0. )
 
 PATCH(METEMP ,VOLUME, 4, 15, 11, 14, 1, 1, 1, 1)
 COVAL(METEMP ,METL,100. , GRND )
 
 PATCH(BUOYANCY,PHASEM, 1, 25, 1, 30, 1, 1, 1, 1)
 COVAL(BUOYANCY,U1 , FIXFLU , GRND3 )
 COVAL(BUOYANCY,V1 , FIXFLU , GRND3 )
 
 PATCH(CARGAS ,VOLUME, 1, 25, 1, 30, 1, 1, 1, 1)
 COVAL(CARGAS ,P1 , FIXFLU , GRND )
 COVAL(CARGAS ,FCL ,0. ,1. )
 COVAL(CARGAS ,H11 ,0. , GRND )
 XCYCLE = F
 EGWF = T
 WALLCO = GRND2
 BUOYA =0. ; BUOYB =-9.81 ; BUOYC =0.
 BUOYD =3.686747E-06
 BUOYE =2.32068E+05
 ************************************************************
  Group 14. Downstream Pressure For PARAB
 ************************************************************
  Group 15. Terminate Sweeps
 LSWEEP = 350 ;ISWC1 = 1
 LITHYD = 10 ;LITFLX = 1 ;LITC = 1 ;ITHC1 = 1
 SELREF = T
 RESFAC =1.0E-05
 ************************************************************
  Group 16. Terminate Iterations
 LITER(P1)=20 ;LITER(U1)=10
 LITER(V1)=10 ;LITER(KE)=20
 LITER(EP)=20 ;LITER(H1)=20
 LITER(FCL)=20 ;LITER(H11)=20
 LITER(METL)=20
 ENDIT(P1)=1.0E-03 ;ENDIT(U1)=1.0E-03
 ENDIT(V1)=1.0E-03 ;ENDIT(KE)=1.0E-03
 ENDIT(EP)=1.0E-03 ;ENDIT(H1)=1.0E-03
 ENDIT(FCL)=1.0E-03 ;ENDIT(H11)=1.0E-03
 ENDIT(METL)=1.0E-03
 ************************************************************
  Group 17. Relaxation
 RELAX(P1,LINRLX,0.8)
 RELAX(U1,FALSDT,0.144)
 RELAX(V1,FALSDT,0.144)
 RELAX(KE,FALSDT,0.0144)
 RELAX(EP,FALSDT,0.0144)
 RELAX(H1,FALSDT,144.)
 RELAX(PRPS,LINRLX,1.)
 RELAX(DEN1,LINRLX,1.)
 RELAX(YSUM,LINRLX,1.)
 RELAX(GOPA,LINRLX,1.)
 RELAX(GOFU,LINRLX,1.)
 RELAX(GH,LINRLX,1.)
 RELAX(GC,LINRLX,1.)
 RELAX(GO,LINRLX,1.)
 RELAX(FRAC,LINRLX,1.)
 RELAX(FLIM,LINRLX,1.)
 RELAX(RMIX,LINRLX,1.)
 RELAX(YH2O,LINRLX,1.)
 RELAX(YCO2,LINRLX,1.)
 RELAX(YCO,LINRLX,1.)
 RELAX(YO2,LINRLX,1.)
 RELAX(YH2,LINRLX,1.)
 RELAX(YN2,LINRLX,1.)
 RELAX(TGAS,LINRLX,1.)
 RELAX(HSUB,LINRLX,1.)
 RELAX(FCL,FALSDT,0.25)
 RELAX(H11,FALSDT,0.25)
 RELAX(ENUT,LINRLX,1.)
 RELAX(TMP1,LINRLX,1.)
 RELAX(METL,FALSDT,1.0E+09)
 KELIN = 0
 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(KE)=1.0E+10 ;VARMIN(KE)=1.0E-10
 VARMAX(EP)=1.0E+10 ;VARMIN(EP)=1.0E-10
 VARMAX(H1)=1.0E+10 ;VARMIN(H1)=-1.0E+10
 VARMAX(PRPS)=1.0E+10 ;VARMIN(PRPS)=-1.0E+10
 VARMAX(DEN1)=1.0E+10 ;VARMIN(DEN1)=-1.0E+10
 VARMAX(YSUM)=1.0E+10 ;VARMIN(YSUM)=-1.0E+10
 VARMAX(GOPA)=1.0E+10 ;VARMIN(GOPA)=-1.0E+10
 VARMAX(GOFU)=1.0E+10 ;VARMIN(GOFU)=-1.0E+10
 VARMAX(GH)=1.0E+10 ;VARMIN(GH)=-1.0E+10
 VARMAX(GC)=1.0E+10 ;VARMIN(GC)=-1.0E+10
 VARMAX(GO)=1.0E+10 ;VARMIN(GO)=-1.0E+10
 VARMAX(FRAC)=1.0E+10 ;VARMIN(FRAC)=-1.0E+10
 VARMAX(FLIM)=1.0E+10 ;VARMIN(FLIM)=-1.0E+10
 VARMAX(RMIX)=1.0E+10 ;VARMIN(RMIX)=-1.0E+10
 VARMAX(YH2O)=1.0E+10 ;VARMIN(YH2O)=-1.0E+10
 VARMAX(YCO2)=1.0E+10 ;VARMIN(YCO2)=-1.0E+10
 VARMAX(YCO)=1.0E+10 ;VARMIN(YCO)=-1.0E+10
 VARMAX(YO2)=1.0E+10 ;VARMIN(YO2)=-1.0E+10
 VARMAX(YH2)=1.0E+10 ;VARMIN(YH2)=-1.0E+10
 VARMAX(YN2)=1.0E+10 ;VARMIN(YN2)=-1.0E+10
 VARMAX(TGAS)=1.0E+10 ;VARMIN(TGAS)=233.
 VARMAX(HSUB)=1.0E+10 ;VARMIN(HSUB)=-1.0E+10
 VARMAX(FCL)=0.154804 ;VARMIN(FCL)=0.
 VARMAX(H11)=1.0E+10 ;VARMIN(H11)=-1.0E+10
 VARMAX(VPOR)=1.0E+10 ;VARMIN(VPOR)=-1.0E+10
 VARMAX(NPOR)=1.0E+10 ;VARMIN(NPOR)=-1.0E+10
 VARMAX(EPOR)=1.0E+10 ;VARMIN(EPOR)=-1.0E+10
 VARMAX(ENUT)=1.0E+10 ;VARMIN(ENUT)=-1.0E+10
 VARMAX(TMP1)=1.0E+10 ;VARMIN(TMP1)=-1.0E+10
 VARMAX(METL)=1.0E+10 ;VARMIN(METL)=-1.0E+10
 ************************************************************
  Group 19. Data transmitted to GROUND
 NAMSAT =MOSG
 GENK = T
 PARSOL = F
 ISG62 = 1
 SPEDAT(SET,GXMONI,PLOTALL,L,T)
 SPEDAT(SET,MATERIAL,198,L,T)
 RG( 1) =0.343359
 RG( 2) =0.21875
 ************************************************************
  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(KE,Y,N,Y,Y,Y,Y)
 OUTPUT(EP,Y,N,Y,Y,Y,Y)
 OUTPUT(H1,Y,N,Y,Y,Y,Y)
 OUTPUT(PRPS,Y,N,Y,N,N,N)
 OUTPUT(DEN1,Y,N,Y,N,N,N)
 OUTPUT(YSUM,Y,N,Y,N,N,N)
 OUTPUT(GOPA,Y,N,Y,N,N,N)
 OUTPUT(GOFU,Y,N,Y,N,N,N)
 OUTPUT(GH,Y,N,Y,N,N,N)
 OUTPUT(GC,Y,N,Y,N,N,N)
 OUTPUT(GO,Y,N,Y,N,N,N)
 OUTPUT(FRAC,Y,N,Y,N,N,N)
 OUTPUT(FLIM,Y,N,Y,N,N,N)
 OUTPUT(RMIX,Y,N,Y,N,N,N)
 OUTPUT(YH2O,Y,N,Y,N,N,N)
 OUTPUT(YCO2,Y,N,Y,N,N,N)
 OUTPUT(YCO,Y,N,Y,N,N,N)
 OUTPUT(YO2,Y,N,Y,N,N,N)
 OUTPUT(YH2,Y,N,Y,N,N,N)
 OUTPUT(YN2,Y,N,Y,N,N,N)
 OUTPUT(TGAS,Y,N,Y,N,N,N)
 OUTPUT(HSUB,Y,N,Y,N,N,N)
 OUTPUT(FCL,Y,N,Y,Y,Y,Y)
 OUTPUT(H11,Y,N,Y,Y,Y,Y)
 OUTPUT(VPOR,Y,N,Y,N,N,N)
 OUTPUT(NPOR,Y,N,Y,N,N,N)
 OUTPUT(EPOR,Y,N,Y,N,N,N)
 OUTPUT(ENUT,Y,N,Y,N,N,N)
 OUTPUT(TMP1,Y,N,Y,N,N,N)
 OUTPUT(METL,Y,N,Y,Y,Y,Y)
 ************************************************************
  Group 22. Monitor Print-Out
 IXMON = 14 ;IYMON = 13 ;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 = 30
 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