L(R213)
TEXT(IMMERSOL-SCRS 2D model of burner    :214
TITLE
    *** Solid obstacle:
PATCH(SOL1,INIVAL,1,NX,1,ny/4,nz/4,7*nz/8,1,LSTEP)
INIT(SOL1,PRPS,0.0,111.)