*HEADING
: THERMALLY COUPLED CONTACT -- FRICTIONAL HEAT GENERATION
*RESTART,WRITE,F=2
*NODE,NSET=ALL
*NGEN
*NSET,NSET=BOT,GEN
*NSET,NSET=TOP,GEN
**
*ELEMENT,TYPE=C3D8RHT,ELSET=DEAD
*SOLID SECTION,ELSET=DEAD,MATERIAL=DEAD
*MATERIAL,NAME=DEAD
*ELASTIC
30.E6,.3
*CONDUCTIVITY
10.000,
*SPECIFIC HEAT
0.001,
*DENSITY
1000.,
**
*ELEMENT,TYPE=C3D8RHT,ELSET=ACTIVE
*SOLID SECTION,ELSET=ACTIVE,MATERIAL=ACTIVE
*MATERIAL,NAME=ACTIVE
*ELASTIC
30.E6,.3
*CONDUCTIVITY
10.000,
*SPECIFIC HEAT
0.001,
*DENSITY
1000.,
*surface, NAME=SLAVE
ACTIVE, S3
*surface, NAME=MASTER
DEAD, S5
*CONTACT PAIR, INTERACTION=SLIDE
SLAVE, MASTER
*SURFACE INTERACTION, NAME=SLIDE
*FRICTION,LAGRANGE
0.1,
** clearance dependent gap conductance not present
*GAP CONDUCTANCE,PRESSURE
*GAP HEAT GENERATION
**
*NSET,NSET=CONST
*EQUATION
CONST,1,1.0,113,1,-1.0
CONST,2,1.0,113,2,-1.0
**
*AMPLITUDE, NAME=SLIDE, VALUE=RELATIVE, TIME=STEP
0.0, 0.0,  0.2, 1.0,  0.4, 0.0,  0.6, -1.0
0.8, 0.0,  1.0, 0.0
*AMPLITUDE, NAME=REMOVE, VALUE=RELATIVE, TIME=STEP
0.0, 1.0,  30.0, 0.0,  100.0, 0.0
**
*INITIAL CONDITIONS,TYPE=TEMP
ALL,0.0
**
*STEP,INC=50,NLGEOM,AMP=RAMP,UNSYMM=YES
Step 1
*COUPLED TEMPERATURE,DELTMX=100.
*CONTROLS, PARAMETERS=FIELD, FIELD=TEMPERATURE
5.0E-3,
*BOUNDARY
BOT,2,3
TOP,3,3
1,1,1
7,1,1
21,1,1
27,1,1
113,1,1
*CLOAD
113,2,-200.
*OUTPUT, FIELD, FREQ=10
*NODE OUTPUT
 RF,NT,RFL
*ELEMENT OUTPUT
 S,E,TEMP
 NFLUX,
*PRINT,CONTACT=YES
*ENERGY PRINT,F=1
*END STEP
**
*STEP,INC=50,NLGEOM,AMP=RAMP,UNSYMM=YES
Step 2 - Generate 120 units of heat, 60 units absorbed
*COUPLED TEMPERATURE,DELTMX=100.
*BOUNDARY,AMPLITUDE=SLIDE
113,1,1,1.5
*CONTROLS,PARAMETER=FIELD,FIELD=DISPLACEMENT
,,,,,,,1.E-7
*END STEP
**
*STEP,INC=50,NLGEOM,AMP=RAMP,UNSYMM=YES
Step 3 - Go to steady state - should go to Temp=7.5
*COUPLED TEMPERATURE,DELTMX=100.
*CONTROLS,PARAMETER=FIELD,FIELD=DISPLACEMENT
,,,,,,,1.E-7
*END STEP