*Heading
: Thermally Coupled Contact, Finite Sliding Contact With Interace Radiation, Deformable
*Restart, Write, F=2
*Node,Nset=All
*Ngen
*Nset,Nset=Bot,Gen
*Nset,Nset=Top,Gen
**
*Element,Type=cgax4rht,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=cgax4rht,Elset=Active
*Solid Section,Elset=Active,Material=Active
*Material,Name=Active
*Elastic
 30.E6,.3
*Conductivity
 10.,
*Density
 1000.,
*Specific Heat
 .001,
**
*Elset,Elset=Etop
*Elset,Elset=Ebot
*Surface,Name=Asurf
 Etop,S1
*Surface,Name=Bsurf
 Ebot,S3
*Contact Pair,Interaction=Smooth,Smooth=0.05
 Asurf,Bsurf
*Surface Interaction,Name=Smooth
*Gap Radiation
*Gap Heat Generation
*Physical Constants, Absolute Zero=-273.16, Stefan Boltzmann=1.7e-6
**
*Amplitude, Name=Slide, Value=Relative, Time=Step
 0.0, 0.0, 200., 1.0, 400., 0.0, 600., -1.0
 800., 0.0,  1000., 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
 1.0e-6,
*Boundary
 Bot,1,1
 Bot,5,5
 1,2,2
 7,2,2
 113,2,2
 113,5,5
*Dload
 101,P3,100.
 102,P3,100.
*Dflux
 101,S3,100.
 102,S3,100.
*Film
 2,F1,0.,10.
*Contact Print,Slave=Asurf
*Contact File,Slave=Asurf,F=10
*Node Print
 Rf,Nt11,Rfl
*El Print
 S,
 E,
 Temp,
 Hfl,
 Nflux,
*El File,F=10
 S,LE,Temp
 Nflux,
*Node File,F=10
 Nt,Rfl
*Output,Field,Freq=10
*Element Output
 S,LE,Temp,Nflux
*Node Output
 Nt,Rfl,U
*Contact Output
 Cstress, Cdisp
*Print,Contact=Yes
*End Step
**
*Step,Inc=50,Nlgeom,Amp=Ramp,Unsymm=Yes
 Step 2
*Coupled Temperature,Deltmx=100.
*Boundary,Fixed
 Top,1,1
*Boundary,Amplitude=Slide
 113, 2,2, 1.0607
 113, 5,5, 0.5304
*Output,Field,Freq=1
*Element Output
 S,LE,Temp,Nflux
*Node Output
 Nt,Rfl,U
*Contact Output
 Cstress, Cdisp
*End Step
**
*Step,Inc=50,Nlgeom,Unsymm=Yes
 Step 3
*Coupled Temperature-Displacement,Steady State
 100000.,100000.
*Boundary,Op=New
 Bot,1,1
 Bot,5,5
 1,2,2
 7,2,2
 113,2,2
 113,5,5
*End Step
**
*Step,Inc=50,Nlgeom,Unsymm=Yes
 Step 4
*Coupled Temperature-Displacement,Steady State
 100000.,100000.
*Dload
 101,P3,200.
 102,P3,200.
*Boundary
 113,2,2,0.0
*End Step
**
*Step,Inc=50,Nlgeom,Amp=Ramp,Unsymm=Yes
 Step 5
*Coupled Temperature-Displacement,Deltmx=100.
 5.0, 100.0
*Dflux, Amp=Remove
 101, S3, 100.0
 102, S3, 100.0
*Boundary
 113, 2,2, 10.0
*Boundary,Fixed
 111,1,1
 113,1,1
 115,1,1
*End Step