*HEADING
THERMALLY COUPLED CONTACT, FINITE SLIDING CONTACT 
WITH FRICTIONAL HEAT GENERATION, DEFORMABLE
**
** See ch. 1.6.7 of ABAQUS/Verification Manual
**
*NODE,NSET=ALL
  1, 1., 0.,-0.01
  7, 7., 0.,-0.01
 11, 1., 1.,-0.01
 17, 7., 1.,-0.01
 21, 1., 0., 1.01
 27, 7., 0., 1.01
 31, 1., 1., 1.01
 37, 7., 1., 1.01
101, 3., 1.
105, 5., 1.
111, 3., 2.
115, 5., 2.
121, 3., 1., 1.0
125, 5., 1., 1.0
131, 3., 2., 1.0
135, 5., 2., 1.0
*NGEN, NSET=ALL
  1,  7
 11, 17
 21, 27
 31, 37
101,105
111,115
121,125
131,135
*NSET,NSET=QA_TEST
ALL,
*NSET,NSET=BOT,GEN
1,7
21,27
*NSET,NSET=TOP,GEN
111,115
131,135
**
*ELEMENT,TYPE=C3D8RT,ELSET=DEAD
1,1,3,13,11,21,23,33,31
2,3,5,15,13,23,25,35,33
3,5,7,17,15,25,27,37,35
*SOLID SECTION,ELSET=DEAD,MATERIAL=DEAD
*MATERIAL,NAME=DEAD
*ELASTIC
30.E6,.3
*CONDUCTIVITY
10.000, 
*SPECIFIC HEAT
0.001, 
*DENSITY
1000., 
**
*ELEMENT,TYPE=C3D8RT,ELSET=ACTIVE
101,101,103,113,111,121,123,133,131
102,103,105,115,113,123,125,135,133
*ELSET,ELSET=ETOP
101,102
*ELSET,ELSET=EBOT,GENERATE
1,3,1
*SOLID SECTION,ELSET=ACTIVE,MATERIAL=ACTIVE
*MATERIAL,NAME=ACTIVE
*ELASTIC
30.E6,.3
*CONDUCTIVITY
10.000, 
*SPECIFIC HEAT
0.001, 
*DENSITY
1000., 
**
*AMPLITUDE, NAME=SLIDE, VALUE=RELATIVE, TIME=STEP, DEFINITION=SMOOTH STEP
0.0, 0.0,  20., 1.0,  40., 0.0,  60., -1.0
80., 0.0,  100., 0.0
*AMPLITUDE, NAME=RAMP, DEFINITION=SMOOTH STEP
0.0,0.0,10.,1.0
**
*NSET,NSET=CONST
111,115,131,133,135
*EQUATION
2
CONST,1,1.0,113,1,-1.0
2
CONST,2,1.0,113,2,-1.0
**
*INITIAL CONDITIONS,TYPE=TEMP
ALL,20.0
**
*ELSET,ELSET=EALL
ACTIVE,DEAD
**
*SURFACE, NAME=ASURF
ETOP,S3
*SURFACE, NAME=BSURF
EBOT,S5
**
*STEP
STEP 1
*DYNAMIC TEMPERATURE-DISPLACEMENT, EXPLICIT, DIRECT
3.5e-3,10.
*CONTACT PAIR,INTERACTION=ROUGH,WEIGHT=0.0
ASURF,BSURF
*SURFACE INTERACTION, NAME=ROUGH
*FRICTION
0.1, 
*GAP CONDUCTANCE,PRESSURE
20.,   0.
20.,100.
*GAP HEAT GENERATION
.50, 
**
*BOUNDARY, TYPE=VELOCITY
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.0
*********************
*FILE OUTPUT,N=1
*NODE FILE,NSET=ALL
NT,
********************
*OUTPUT,FIELD,NUM=1
*NODE OUTPUT,NSET=QA_TEST
NT,
*NODE OUTPUT,NSET=ALL
U,
************
*CONTACT OUTPUT
CSTRESS,
*ELEMENT OUTPUT
S,
********************
***OUTPUT,HISTORY, FREQUENCY=500
***NODE OUTPUT,NSET=ALL
**U,NT
*******************
*OUTPUT,HISTORY, FREQUENCY=99999
*ENERGY OUTPUT,VAR=ALL
******************
*ENDSTEP
*STEP
STEP 2 - GENERATE 120 UNITS OF HEAT, 60 UNITS ABSORBED
*DYNAMIC TEMPERATURE-DISPLACEMENT, EXPLICIT, DIRECT
3.5e-3,100.
*BOUNDARY,AMPLITUDE=SLIDE
113,1,1, 1.5
*END STEP
**
*STEP
STEP 3 RUN TO STEADY STATE, TEMP SHOULD BE 7.5
*DYNAMIC TEMPERATURE-DISPLACEMENT, EXPLICIT, DIRECT
1e-2,100.
*FIXED MASS SCALING, ELSET=EALL, FACTOR=1.E4
*END STEP