Used to test error report number 166
NOCOPY=T; NOCOMM=T
    GROUP 1.  Run identifiers and other preliminaries.
TEXT(Vertical Chamber                  
TITLE
    GROUP 3.  x-direction grid specification.
CARTES=F
REAL(PI); PI=3.141592654
XULAST=PI; NREGX=1; GRDPWR(X,10,PI,1.)
    GROUP 4.  y-direction grid specification.
RINNER=.350/2.;YVLAST=.425/2.-RINNER; NREGY=1
GRDPWR(Y,10,.425/2.-RINNER,1.0)
    GROUP 5.  z-direction grid specification.
ZWLAST=3.
    GROUP 7.  Variables named, stored & solved.
SOLVE(U1,V1,P1)
#soltem
STORE(PRPS,DEN1,ENUL)
SOLUTN(P1,Y,Y,Y,N,N,N); SOLUTN(TEM1,Y,Y,Y,N,N,N)
    GROUP 9.  Properties of the medium (or media).
#use_props
PRESS0=1.0E+05; ;ENUL=5.41E-5/1.2; PRNDTL(TEM1)=-.176

    GROUP 11. Initialization variable or porosity fields.
:fluid:=air20; FIINIT(TEM1)=773.; FIINIT(DEN1)=1.2
    GROUP 13. Boundary conditions and special sources
PATCH(IN,NORTH,1,1,NY,NY,1,NZ,1,1)
COVAL(IN,P1,FIXFLU,0.0); COVAL(IN,V1,ONLYMS,0.0)
COVAL(IN,TEM1,ONLYMS,773.)
PATCH(OUT,NORTH,NX,NX,NY,NY,1,NZ,1,1)
COVAL(OUT,P1,FIXP,0.0); COVAL(OUT,U1,ONLYMS,0.0)
COVAL(OUT,V1,ONLYMS,0.0); COVAL(OUT,TEM1,ONLYMS,773.)
PATCH(SHLD1,NWALL,1,NX,NY,NY,1,NZ,1,1)
COVAL(SHLD1,TEM1,1.0,773.)
 
PATCH(SUBT,SWALL,1,NX,1,1,1,NZ,1,1)
COVAL(SUBT,TEM1,1.0,1373.)
    GROUP 15. Termination of sweeps
LSWEEP=3
    GROUP 17. Under-relaxation and related devices.
REAL(DFT);DFT=.1; RELAX(P1,LINRLX,0.6)
RELAX(U1,FALSDT,DFT); RELAX(V1,FALSDT,DFT)
    GROUP 20. Control of preliminary printout
IXMON=5; IYMON=3; IZMON=15
    GROUP 21. Frequency and extent of field printout.
OUTPUT(P1,N,P,P,P,Y,Y); OUTPUT(U1,N,P,P,P,Y,Y)
OUTPUT(U1,N,P,P,P,Y,Y); OUTPUT(W1,N,P,P,P,Y,Y)
OUTPUT(TEM1,N,P,P,P,Y,Y)
    GROUP 23. field printout and plot control
ITABL=3; NPLT=1
    GROUP 24. Preparation for continuation runs.