#479
#$478
    GROUP 1. Run title and other preliminaries
TEXT(1D  Coal-Particle Combustion      
TITLE
    GROUP 4. Y-direction grid specification
NY=20; GRDPWR(Y,NY,LENGTH,1.)
    GROUP 7. Variables stored, solved & named
ONEPHS=F
#SOLVEL
NAME(5)=GVEL; NAME(6)=CVEL
#$477
 
PATCH(INLETS,SOUTH,1,NX,1,1,1,NZ,1,1)
PATCH(INLETG,SOUTH,1,NX,1,1,1,NZ,1,1)
  ** Outlet at north end
PATCH(OUTLET,CELL,1,NX,NY,NY,1,NZ,1,1)
#$476

VARMIN(11)=-1.E11;VARMAX(11)=0.01
RELAX(H1,LINRLX,0.5)
RELAX(H2,LINRLX,0.5)
RELAX(MIXF,LINRLX,0.5)
RELAX(P1,LINRLX,0.5)