TALK=T;RUN( 1, 1)

 ************************************************************
   Q1 created by VDI menu, Version 3.4, Date 04/09/01
 CPVNAM=VDI;SPPNAM=Core
 ************************************************************
  Echo DISPLAY / USE settings
  DISPLAY

  
   A STOVE with SIGNIFICANT RADIATION

  ENDDIS

  PHOTON USE
  p



  use patgeo
  con tmp1 x 4 fil;.001
  pause
  ENDUSE
 ************************************************************
 IRUNN   =       1 ;LIBREF =     302
 ************************************************************
  Group 1. Run Title
 TEXT(A stove with significant radiation )
 ************************************************************
  Group 2. Transience
 STEADY  =    T
 ************************************************************
  Groups 3, 4, 5  Grid Information
    * Overall number of cells, RSET(M,NX,NY,NZ,tolerance)
 RSET(M,5,5,20)
 ************************************************************
  Group 6. Body-Fitted coordinates
 ************************************************************
  Group 7. Variables: STOREd,SOLVEd,NAMEd
 ONEPHS  =    T
    * Non-default variable names
 NAME(140) =ENUT ; NAME(141) =EL1
 NAME(142) =EPKE ; NAME(143) =DEN1
 NAME(144) =SMOK ; NAME(145) =FUEL
 NAME(146) =TMP1 ; NAME(147) =PROD
 NAME(148) =OXID ; NAME(149) =CRAD
 NAME(150) =MIXF
    * Solved variables list
 SOLVE(P1  ,U1  ,V1  ,W1  ,H1  ,SMOK,CRAD,MIXF)
    * Stored variables list
 STORE(OXID,PROD,TMP1,FUEL,DEN1,EPKE,EL1 ,ENUT)
    * Additional solver options
 SOLUTN(P1  ,Y,Y,Y,N,N,Y)
 TURMOD(KEMODL)

 ************************************************************
  Group 8. Terms & Devices
 TERMS (H1  ,N,Y,Y,Y,Y,Y)
 TERMS (CRAD,N,N,Y,Y,Y,N)
 NEWRH1  =    T
 ************************************************************
  Group 9. Properties
 RHO1    = GRND6
 RHO1A   = 1.600000E+01 ;RHO1B  = 2.900000E+01
 RHO1C   = 2.800000E+01
 PRESS0  = 1.000000E+05
 TMP1    = GRND7
 TMP1A   = 1.500000E+03 ;TMP1B  = 1.500000E+03
 TMP1C   = 1.500000E+03
 TMP2A   = 5.482456E-02 ;TMP2B  = 4.900000E+07
 TMP2C   = 0.000000E+00
 CP1     = 1.500000E+03
 ENUL    = 1.000000E-05
 DVO1DT  = 3.330000E-03
 PRNDTL(CRAD) =  GRND
 PRT   (EP  ) =  1.314000E+00 ;PRT   (CRAD) =  1.000000E+09
 EMISS   = 4.000000E-01 ;SCATT  = 1.000000E-01
 ************************************************************
  Group 10.Inter-Phase Transfer Processes
 ************************************************************
  Echo PLANT settings
    PLANTBEGIN
NAMSAT=MOSG
PRNDTL(CRAD)=GRND
   LAMPR(CRAD)=:ENUL:*DEN1*3.*(:EMISS:+:SCATT:)
    * Enthalpy sources due to radiation
PATCH(RADSOR,VOLUME,1,NX,1,NY,1,NZ,1,LSTEP)
   VAL=:EMISS:*(CRAD-4.*5.68e-8*TEMP1**4)
COVAL(RADSOR,H1,FIXFLU,GRND)
   VAL=4.*5.68e-8*TEMP1**4
COVAL(RADSOR,CRAD,EMISS,GRND)
    PLANTEND
 ************************************************************
  Group 11.Initialise Var/Porosity Fields
 FIINIT(SMOK) =  1.000000E+00
   No PATCHes used for this Group


 INIADD  =    F
 ************************************************************
  Group 12. Convection and diffusion adjustments
   No PATCHes used for this Group
 ************************************************************
  Group 13. Boundary & Special Sources

 PATCH (CHSO    ,VOLUME,0,0,0,0,0,0,1,1)

 ************************************************************
  Group 14. Downstream Pressure For PARAB
 ************************************************************
  Group 15. Terminate Sweeps
 LSWEEP  =    2000
 RESFAC  = 1.000000E-03
 ************************************************************
  Group 16. Terminate Iterations
 ************************************************************
  Group 17. Relaxation
 RELAX(P1  ,LINRLX, 3.000000E-01)
 RELAX(U1  ,FALSDT, 1.000000E-01)
 RELAX(V1  ,FALSDT, 1.000000E-01)
 RELAX(W1  ,FALSDT, 1.000000E-01)
 RELAX(KE  ,FALSDT, 1.000000E-01)
 RELAX(EP  ,FALSDT, 1.000000E-01)
 RELAX(H1  ,FALSDT, 1.000000E-01)
 RELAX(DEN1,LINRLX, 1.000000E-01)
 RELAX(SMOK,LINRLX, 1.000000E+00)
 RELAX(CRAD,FALSDT, 1.000000E+01)
 RELAX(MIXF,FALSDT, 1.000000E-01)
 KELIN   =       3
 ************************************************************
  Group 18. Limits
 VARMAX(U1  ) = 1.000000E+06 ;VARMIN(U1  ) =-1.000000E+06
 VARMAX(V1  ) = 1.000000E+06 ;VARMIN(V1  ) =-1.000000E+06
 VARMAX(W1  ) = 1.000000E+06 ;VARMIN(W1  ) =-1.000000E+06
 VARMAX(H1  ) = 1.000000E+10 ;VARMIN(H1  ) = 3.000000E+05
 VARMAX(DEN1) = 2.000000E+00 ;VARMIN(DEN1) = 1.000000E-03
 VARMAX(FUEL) = 1.000000E+00 ;VARMIN(FUEL) = 0.000000E+00
 VARMAX(TMP1) = 1.000000E+04 ;VARMIN(TMP1) = 3.000000E+02
 VARMAX(PROD) = 1.000000E+00 ;VARMIN(PROD) = 0.000000E+00
 VARMAX(OXID) = 1.000000E+00 ;VARMIN(OXID) = 0.000000E+00
 VARMAX(MIXF) = 1.000000E+00 ;VARMIN(MIXF) = 0.000000E+00
 ************************************************************
  Group 19. EARTH Calls To GROUND Station
 USEGRD  =    T  ;USEGRX =    T
 NAMSAT  =MOSG
 GENK    =    T
 ASAP    =    T
 ************************************************************
  Group 20. Preliminary Printout
 ECHO    =    T
 ************************************************************
  Group 21. Print-out of Variables
 OUTPUT(P1  ,Y,Y,Y,Y,Y,Y)
 OUTPUT(U1  ,Y,Y,Y,N,Y,Y)
 OUTPUT(V1  ,Y,Y,Y,N,Y,Y)
 OUTPUT(W1  ,Y,Y,Y,Y,Y,Y)
 OUTPUT(SMOK,Y,N,Y,N,N,N)
 ************************************************************
  Group 22. Monitor Print-Out
 IXMON   =       3 ;IYMON  =       5 ;IZMON  =      20
 NPRMON  =  100000
 NPRMNT  =       1
 TSTSWP  =      -1
 ************************************************************
  Group 23.Field Print-Out & Plot Control
 NPRINT  =  100000
 NZPRIN  =       1
 ISWPRF  =       1 ;ISWPRL =  100000
   No PATCHes used for this Group
 ************************************************************
  Group 24. Dumps For Restarts
 NOWIPE  =    T

 GVIEW(P,-5.953568E-01,6.788709E-01,-4.297495E-01)
 GVIEW(UP,6.290849E-01,7.265853E-01,2.762717E-01)

> DOM,    SIZE,        1.000000E+00, 1.000000E+00, 1.000000E+01
> DOM,    MONIT,       5.000000E-01, 9.000000E-01, 9.750000E+00
> DOM,    SCALE,       1.000000E+00, 1.000000E+00, 1.000000E+00
> DOM,    SNAPSIZE,    1.000000E-02
> GRID,   RSET_Y_1,      5, 1.000000E+00
> DOM,    VARIABLES,  SMOK
> DOM,    RELAX,       3.000000E-01

> OBJ,    NAME,        FUELIN
> OBJ,    POSITION,    6.000000E-01, 0.000000E+00, 0.000000E+00
> OBJ,    SIZE,        4.000000E-01, 0.000000E+00, 5.000000E-01
> OBJ,    CLIPART,     cube3t
> OBJ,    ROTATION24,        1
> OBJ,    TYPE,        INLET
> OBJ,    DENSITY,       9.999000E-01
> OBJ,    VELOCITY,      0.000000E+00, 2.000000E+00, 0.000000E+00
> OBJ,    TEMPERATURE,   3.000000E+02
> OBJ,    INLET_MIXF,    1.000000E+00
> OBJ,    SMOKE,         0.000000E+00
> OBJ,    TURB-INTENS,   5.000000E+00

> OBJ,    NAME,        OUTLET
> OBJ,    POSITION,    0.000000E+00, 1.000000E+00, 9.000000E+00
> OBJ,    SIZE,        6.000000E-01, 0.000000E+00, 1.000000E+00
> OBJ,    CLIPART,     cube12t
> OBJ,    ROTATION24,        1
> OBJ,    TYPE,        OUTLET
> OBJ,    PRESSURE,      0.000000E+00
> OBJ,    TEMPERATURE,  -1.026000E+04
> OBJ,    COEFFICIENT,   1.000000E+03
> OBJ,    TURBULENCE,   -1.026000E+04,-1.026000E+04
> OBJ,    SMOKE,         0.000000E+00

> OBJ,    NAME,        AIRIN1
> OBJ,    POSITION,    6.000000E-01, 0.000000E+00, 5.000000E-01
> OBJ,    SIZE,        4.000000E-01, 0.000000E+00, 5.000000E-01
> OBJ,    CLIPART,     cube10
> OBJ,    ROTATION24,        1
> OBJ,    TYPE,        INLET
> OBJ,    DENSITY,       1.000000E+00
> OBJ,    VELOCITY,      0.000000E+00, 2.000000E+00, 0.000000E+00
> OBJ,    TEMPERATURE,   6.000000E+02
> OBJ,    SMOKE,         0.000000E+00
> OBJ,    TURB-INTENS,   5.000000E+00

> OBJ,    NAME,        AIRIN2
> OBJ,    POSITION,    4.000000E-01, 0.000000E+00, 0.000000E+00
> OBJ,    SIZE,        2.000000E-01, 0.000000E+00, 5.000000E-01
> OBJ,    CLIPART,     cube10
> OBJ,    ROTATION24,        1
> OBJ,    TYPE,        INLET
> OBJ,    DENSITY,       1.000000E+00
> OBJ,    VELOCITY,      0.000000E+00, 2.000000E+00, 0.000000E+00
> OBJ,    TEMPERATURE,   6.000000E+02
> OBJ,    SMOKE,         0.000000E+00
> OBJ,    TURB-INTENS,   5.000000E+00
STOP