#$r002
 
LOAD(R111)
   *  GROUP 1.  Run identifiers and other preliminaries.
TEXT(1-D FIXED-FLUX SOLID SURFACE : R114
TITLE
  DISPLAY
   This case is identical to case R111 except that a fixed heat-
   flux of -55kW/m2 is applied at the right-hand edge of the
   aluminium slab.
  ENDDIS
 
   * boundary condition, name TFLXR to set the heat flux
PATCH(TFLXR,NORTH,#1,#1,#2,#2,#1,#1,#1,#NREGT)
COVAL(TFLXR,TEM1,FIXFLU,-55000.)
TFIXR=SKIP
LSWEEP=50
RELAX(TEM1,LINRLX,0.25)
LIBREF=114