*HEADING
Test temperature-dependent VFRIC with ABAQUS/Explicit
*RESTART,WRITE,NUM=1
*PREPRINT,MODEL=YES,HISTORY=YES,ECHO=NO
*NODE
1,
2,2.,
3,2.,1.
4,,1.
5,,,2.
6,2.,,2.
7,2.,1.,2.
8,,1.,2.
9,0.5,1.,0.5
10,1.5,1.,0.5
11,1.5,2.,0.5
12,0.5,2.,0.5
13,0.5,1.,1.5
14,1.5,1.,1.5
15,1.5,2.,1.5
16,0.5,2.,1.5
*NSET,NSET=TOPE,GENERATE
9,16
*NSET,NSET=BOTE,GENERATE
1,8
*NSET,NSET=BOT
1,2,5,6
*NSET,NSET=TOP
11,12,15,16
*NSET,NSET=MAST
3,4,7,8
*ELEMENT,TYPE=C3D8RT,ELSET=EALL
1,1,2,3,4,5,6,7,8
2,9,10,11,12,13,14,15,16
*ELSET,ELSET=QA_TEST_EALL
EALL,
*NSET,NSET=QA_TEST_NSET
TOP,BOT
*SOLID SECTION,MATERIAL=SOLMAT,ELSET=EALL,CONTROLS=HGLASS
*SECTION CONTROLS,NAME=HGLASS,HOURGLASS=STIFFNESS
*MATERIAL,NAME=SOLMAT
*ELASTIC
200.E3,0.
*EXPANSION
0.0, 
*CONDUCTIVITY
43.0, 
*SPECIFIC HEAT
460.0,
*DENSITY
7850.0,
*AMPLITUDE,NAME=RAMP,DEF=SMOOTH
0.,0.,100.,1.
*AMPLITUDE,NAME=SPEC
0.,0.,1000.,1.
**
*SURFACE,TYPE=ELEMENT,NAME=ASURF
1,S5
*SURFACE,TYPE=ELEMENT,NAME=BSURF
2,S3
*STEP
BRING BLOCKS INTO CONTACT
*DYNAMIC TEMPERATURE-DISPLACEMENT,EXPLICIT
 0.,100.0
*CONTACT PAIR,INTERACTION=FRI,WEIGHT=0.0
BSURF,ASURF
*SURFACE INTERACTION,NAME=FRI
*FRICTION,USER,PROPERTIES=2
0.001,0.00001
*GAP HEAT GENERATION
0.5,0.5
*CLOAD,AMP=RAMP
TOP,2,-4000.
*BOUNDARY,TYPE=VELOCITY
BOT,1,3
TOP,1,1
TOP,3,3
*BOUNDARY
TOPE,11,,0.0
BOTE,11,,0.0
*FILE OUTPUT, NUM=1
*NODE FILE
U, 
NT, 
*OUTPUT,FIELD,VAR=PRESELECT
*OUTPUT,HISTORY,VAR=PRESELECT
**
**QA
**
*OUTPUT,FIELD,NUM=1
*NODE OUTPUT,NSET=QA_TEST_NSET
NT
*ELEMENT OUTPUT,ELSET=QA_TEST_EALL
LE,TEMP
*OUTPUT,HISTORY,TIMEINT=10.
*NODE OUTPUT,NSET=QA_TEST_NSET
U1,U2
*END STEP
**
*STEP
APPLY SLIDING MOTION
*DYNAMIC TEMPERATURE-DISPLACEMENT,EXPLICIT
 ,1000.0
*BOUNDARY,OP=NEW,TYPE=VELOCITY
MAST,1,3
BOT,1,3
*BOUNDARY,OP=NEW,AMP=SPEC
TOPE,11,,200.
BOTE,11,,0.0
*CLOAD,AMP=SPEC
TOP,1,0.045
*FILE OUTPUT, NUM=1
*NODE FILE
U, 
NT, 
*OUTPUT,FIELD,VAR=PRESELECT
*OUTPUT,HISTORY,VAR=PRESELECT
**
**QA
**
*OUTPUT,FIELD,NUM=1
*NODE OUTPUT,NSET=QA_TEST_NSET
NT
*ELEMENT OUTPUT,ELSET=QA_TEST_EALL
LE,TEMP
*OUTPUT,HISTORY,TIMEINT=100.
*NODE OUTPUT,NSET=QA_TEST_NSET
U1,U2
*END STEP