*HEADING
Test temperature-dependent VFRIC with ABAQUS/Explicit
*RESTART,WRITE,NUM=1
*PREPRINT,MODEL=YES,HISTORY=YES,ECHO=NO
*NODE
*NSET,NSET=TOPE,GENERATE
*NSET,NSET=BOTE,GENERATE
*NSET,NSET=BOT
*NSET,NSET=TOP
*NSET,NSET=MAST
*ELEMENT,TYPE=C3D8RT,ELSET=EALL
*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
*CONTACT PAIR,INTERACTION=FRI,WEIGHT=0.0
BSURF,ASURF
*SURFACE INTERACTION,NAME=FRI
*FRICTION,USER,PROPERTIES=2
0.001,0.00001
*GAP HEAT GENERATION
*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
*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