#480
TEXT(1DX Coal Combustion; Secondary Air 
TITLE
PATCH(NOXSOR,PHASEM,1,NX,1,NY,1,NZ,1,LSTEP)
REAL(SECFAC)
SECFAC=1.0
mesg(secondary air is :secfac: times primary.
mesg(If not OK, insert desired value
READVDU(SECFAC,REAL,:SECFAC:)
SECFAC
IF(SECFAC.GT.0) THEN
+ PATCH(SECAIR,WEST,NX/2,NX,1,1,1,1,1,1)
+ COVAL(SECAIR,P1,FIXFLU,SECFAC*FLOG/NX)
+ COVAL(SECAIR,H1,ONLYMS,HGIN)
+ COVAL(SECAIR,MIXF,ONLYMS,0.0)
+ COVAL(SECAIR,GVEL,ONLYMS,VELG)
ENDIF