L(260)
TEXT(Conjugate Heat Transf In Air Flow 
TITLE
   The flow-fields are now frozen for the solution
   of the heat-transfer problem: note this solution
   is performed whole-field.
SOLUTN(TEMP,Y,Y,Y,N,N,Y)
TERMS(TEMP,N,Y,Y,P,P,P)
SOLUTN(U1,Y,N,N,N,N,N)
SOLUTN(W1,Y,N,N,N,N,N)
SOLUTN(P1,Y,N,N,N,N,N)
OUTPUT(U1,N,N,N,N,N,N)
OUTPUT(W1,N,N,N,N,N,N)
OUTPUT(P1,N,N,N,N,N,N)
RESTRT(ALL); NAMFI=FLOW
ISOLZ=1; IVARBK=14; ISOLBK=1; LITER(TEMP)=-100
FSWEEP=50; LSWEEP=51
NPLT=1; IXPRF=1; IXPRL=NX1+NX2+NX3+NX4
IZPRF=NZ1-2; IZPRL=NZ1+NZ2+NZ3+NZ4+NZ5+NZ6+NZ7+2
PATCH(MAP1,CONTUR,1,NX,1,1,1,NZ,1,1)
PLOT(MAP1,TEMP,0.0,20.0)
NSAVE=CHAM