*HEADING
*RESTART,WRITE,F=5
*NODE
*NSET,NSET=TOPE,GENERATE
*NSET,NSET=BOTE,GENERATE
*NSET,NSET=BOT
*NSET,NSET=TOP
*NSET,NSET=MAST
*ELEMENT,TYPE=C3D8T,ELSET=EALL
*SOLID SECTION,MATERIAL=SOLMAT,ELSET=EALL
*MATERIAL,NAME=SOLMAT
*ELASTIC
200.E3,0.
*EXPANSION
0.0,
*CONDUCTIVITY
43.0,
*SURFACE INTERACTION,NAME=FRI
*FRICTION,USER,PROPERTIES=2
0.001,0.00001
*GAP HEAT GENERATION
*surface,NAME=ASURF
1,S5
*surface,NAME=BSURF
2,S3
*CONTACT PAIR,SMALL SLIDING,INTERACTION=FRI
BSURF,ASURF
*BOUNDARY
BOT,1,3
TOP,1
TOP,3
*AMPLITUDE,NAME=SPEC
0.,0.,0.1,0.1,0.2,0.2,0.3,0.3,
0.4,0.4,0.5,0.5,0.6,0.6,0.7,0.7,
0.8,0.8,0.9,0.9,1.0,1.0
*STEP,NLGEOM, UNSYMM=YES
BRING BLOCKS INTO CONTACT
*COUPLED TEMPERATURE-DISPLACEMENT,STEADY STATE
*BOUNDARY
TOP,2,,-9.123E-2
TOPE,11,,0.0
BOTE,11,,0.0
*EL FILE
S,
E,
*NODE FILE
U,
RF,
NT,
*PRINT,CONTACT=YES
*CONTACT FILE
CSTRESS,CDISP
HFL,HFLA,HTL
SFDR,SFDRA
*CONTACT PRINT
CSTRESS,CDISP
HFL,HFLA,HTL
SFDR,SFDRA
*END STEP
*STEP,NLGEOM, UNSYMM=YES
MAINTAIN COMPRESSIVE STRESS
*COUPLED TEMPERATURE-DISPLACEMENT,STEADY STATE
*BOUNDARY,OP=NEW
TOPE,11,,0.0
BOTE,11,,0.0
BOT,1,3
*CLOAD
TOP,2,-4000.
*PRINT,CONTACT=YES
*END STEP
*STEP,NLGEOM,AMP=STEP, UNSYMM=YES
APPLY SLIDING MOTION
*COUPLED TEMPERATURE-DISPLACEMENT,STEADY STATE
0.1,1.0,0.1,0.1
*BOUNDARY,FIXED
MAST,1,3
*BOUNDARY,AMP=SPEC
TOPE,11,,200.
BOTE,11,,0.0
*CLOAD
TOP,1,25.
*PRINT,CONTACT=YES
*EL PRINT,F=0
*NODE PRINT
NT,
RF,
*END STEP