#479
#$478
TEXT(2DYZ Coal-Particle Combustion      
TITLE
ny=10; grdpwr(Y,Ny,0.2*length,1.0)
NZ=20; GRDPWR(Z,NZ,LENGTH,1.0)
ONEPHS=F
#SOLVEL
NAME(7)=GVEL; NAME(8)=CVEL
#$477
 
PATCH(INLETS,LOW,1,1,1,ny/10,1,1,1,1)
PATCH(INLETG,LOW,1,1,ny/10+1,Ny,1,1,1,1)
PATCH(OUTLET,CELL,1,1,1,ny,NZ,NZ,1,1)
MULT=0.2
#$476
RELAX(P1,LINRLX,0.5);   RELAX(SHAD,LINRLX,0.4)
RELAX(FUEL,LINRLX,0.4); RELAX(GAS,LINRLX,0.4)
RELAX(V1,FALSDT,CHATIM);RELAX(V2,FALSDT,CHATIM)