*HEADING
: THREE DIMENSIONAL JOULE HEATING INTERFACE
          GAP CONDUCTANCE
          ELECTRICAL CONDUCTIVITY
          GAP ELECTRICAL CONDUCTANCE
          TIED CONTACT WITH ADJUST
*NODE
*NSET, NSET = FACE2
*NSET,NSET=GAP1,GENERATE
*ELEMENT, TYPE=DC3D20E, ELSET=MID
*ELEMENT, TYPE=DC3D20E, ELSET=TOP
*ELEMENT, TYPE=DC3D20E, ELSET=BOT
*ELSET, ELSET = SOLID
*surface, NAME=SURF1
TOP,S3
*surface, NAME=SURF2
MID,S5
*surface, NAME=SURF3
MID,S3
*surface, NAME=SURF4
BOT,S5
*CONTACT PAIR, INTERACTION =TIED, ADJUST=0.1
SURF1, SURF2
*INITIAL CONDITION,TYPE=CONTACT
SURF1,SURF2,,BONDED
*CONTACT PAIR, INTERACTION=GAPS
SURF3, SURF4
*SURFACE INTERACTION, NAME=TIED
*SURFACE INTERACTION, NAME=GAPS
*GAP CONDUCTANCE
*GAP ELECTRICAL CONDUCTANCE
*GAP HEAT GENERATION
*SOLID SECTION,ELSET=SOLID,MATERIAL=SOLMAT
*MATERIAL,NAME=SOLMAT
*CONDUCTIVITY
1.,
*ELECTRICAL CONDUCTIVITY
*JOULE HEAT FRACTION
*STEP, UNSYMM=YES
*COUPLED THERMAL-ELECTRICAL,STEADY STATE
*NODE FILE
 NT,
 RFL,
 EPOT,
*EL PRINT,FREQ=0
 ELEN,
 HFL,
 ECD, EPG
 NFLUX, NCURS,
*EL FILE,FREQ=0
 ELEN,
 HFL,
 ECD, EPG
 NFLUX, NCURS,
*NODE PRINT
 NT,
 RFL,
 EPOT,
*BOUNDARY,OP=NEW
FACE2,9,,100.
FACE2,11,,100.
GAP1,9,,50.
GAP1,11,,50.
*CONTACT PRINT
HFL,HFLA,HTL,HTLA,ECD,ECDA,ECDT,ECDTA
SJD,SJDA,SJDT,SJDTA,WEIGHT
*CONTACT FILE
HFL,HFLA,HTL,HTLA,ECD,ECDA,ECDT,ECDTA
SJD,SJDA,SJDT,SJDTA,WEIGHT
*END STEP