L(261)
    GROUP 1. Run title and other preliminaries
TEXT(Conjugate Heat Transfer Problem 2 
TITLE
   Case 2 replace the temperature fixation with a
   constant heat source of 300W at the centre.
FIXTEMP=SKIP
NXW=NX1/2+1; NXE=NXW; NZL=NZ1+NZ2+NZ3+2; NZH=NZL+1
NXZ=(NXE-NXW+1)*(NZH-NZL+1)
PATCH(HSORBL1,CELL,NXW,NXE,1,NY,NZL,NZH,1,LSTEP)
COVAL(HSORBL1,TEMP,FIXFLU,300.0/CPAIR/NXZ)