*HEADING
DLOAD, DFLUX, FILM, AND RADIATION FOR COUPLED TEMP-DISP  [COH3D6T]
**
*PREPRINT,ECHO=YES,HISTORY=NO,MODEL=NO
*NODE,NSET=ALL
 1, 0., 0., 0.
 2, 7., 0., 0.
 3, 7., 0., -7.
 4, 0., 0., -7.
 5, 0., 7., 0.
 6, 7., 7., 0.
 7, 7., 7., -7.
 8, 0., 7., -7.
*NSET,NSET=FIX1
 1,2,3,4
*NSET,NSET=FIX2
 5,6,7,8
*NSET,NSET=FIX3
 1,2,6,5
*NSET,NSET=FIX4
 2,3,7,6
*NSET,NSET=FIX5
 3,4,8,7
*NSET,NSET=FIX6
 1,4,8,5
*NSET,NSET=QA_TEST
ALL
*ELEMENT,TYPE=COH3D6T, ELSET=ALL
 1, 1,2,3,5,6,7
 2, 3,4,1,7,8,5
*COHESIVE SECTION,ELSET=ALL,MATERIAL=MAT1,RESPONSE=TRACTION SEPARATION, THICKNESS=GEOMETRY
*PHYSICAL CONSTANTS, ABSOLUTE ZERO=-460., STEFAN BOLTZMANN=5.0E-8
*MATERIAL,NAME=MAT1
*ELASTIC,TYPE=TRACTION
1.0E8,1.0E8
*GAP CONDUCTANCE
10.0,0.0
10.0,7.0
*DENSITY
 82.9
**
**
*STEP
*COUPLED TEMPERATURE-DISPLACEMENT, STEADY STATE
 1., 1.
*************************
*OUTPUT,FIELD
*NODE OUTPUT
RF,
RFL,
U,
NT
*ELEMENT OUTPUT
S,
*OUTPUT, HISTORY
*ENERGY OUTPUT,VAR=ALL
*************************
*DLOAD, OP=NEW
  ALL,BX,100.
  ALL,BY,200.
  ALL,BZ,300.
*DFLUX
 ALL, BF, .3
*BOUNDARY, OP=NEW
 ALL, 1,3
 FIX1, 11
*END STEP
**
**
*STEP
*COUPLED TEMPERATURE-DISPLACEMENT, STEADY STATE
 1., 1.
*DLOAD, OP=NEW
ALL, GRAV, 4.51346, 1.0 , 2.0, 3.0
*DFLUX, OP=NEW
*BOUNDARY, OP=NEW
ALL, 1,3
FIX1, 11
*END STEP
**
**
*STEP
*COUPLED TEMPERATURE-DISPLACEMENT, STEADY STATE
 1., 1.
*DLOAD, OP=NEW
*FILM, OP=NEW
 ALL, F2, 75., .103
*BOUNDARY, OP=NEW
 ALL, 1,3
 FIX1, 11
*END STEP
**
*STEP
*COUPLED TEMPERATURE-DISPLACEMENT, STEADY STATE
 1., 1.
*DLOAD, OP=NEW
 ALL, P1, 100.
 ALL, P2, 200.
 1, P3, 300.
 1, P4, 400.
 2, P3, 500.
 2, P4, 600.
*FILM,OP=NEW
 ALL, F1, 75., .103
*BOUNDARY,OP=NEW
 ALL, 1,3
 FIX2, 11
*END STEP
**
**
**
*STEP
*COUPLED TEMPERATURE-DISPLACEMENT, STEADY STATE
 1., 1.
*FILM, OP=NEW
*RADIATE, OP=NEW
 ALL, R2, 75., 2.9172E-5
*BOUNDARY,OP=NEW
 ALL, 1,3
 FIX1, 11
*END STEP
**
**
*STEP
*COUPLED TEMPERATURE-DISPLACEMENT, STEADY STATE
 1., 1.
*RADIATE, OP=NEW
 ALL, R1, 75., 2.9172E-5
*BOUNDARY,OP=NEW
 ALL, 1,3
 FIX2,11
*END STEP
**
**
*STEP
*COUPLED TEMPERATURE-DISPLACEMENT, STEADY STATE
 1., 1.
*BOUNDARY, OP=NEW
 ALL, 1,3
 FIX2, 11
*RADIATE, OP=NEW
*DFLUX, OP=NEW
 ALL, S1, .3
*END STEP
**
**
*STEP
*COUPLED TEMPERATURE-DISPLACEMENT, STEADY STATE
 1., 1.
*BOUNDARY, OP=NEW
 ALL, 1,3
 FIX1, 11
*DFLUX,OP=NEW
 ALL, S2, .3
*END STEP
**