*HEADING
EC38VFDM: *DSFLUX, *DSECURRENT FOR COUPLED THERMAL-ELECTRICAL
ELEMENTS  [DC3D8E]
*NODE,NSET=ALL
*NCOPY, CHANGE NUMBER=10, OLD SET=ALL, NEW SET=ALL2, SHIFT
*NSET,NSET=FIX1
*NSET,NSET=FIX2
*NSET,NSET=FIX3
*NSET,NSET=FIX4
*NSET,NSET=FIX5
*NSET,NSET=FIX6
*ELEMENT,TYPE=DC3D8E, ELSET=EALL
*ELEMENT, TYPE=DC3D8E, ELSET=ALL2
*surface, NAME=SIDE_1A
 1, S1
*surface, NAME=SIDE_2A
 1, S2
*surface, NAME=SIDE_3A
 1, S3
*surface, NAME=SIDE_4A
 1, S4
*surface, NAME=SIDE_5A
 1, S5
*surface, NAME=SIDE_6A
 1, S6
*surface, NAME=SIDE_1B
 11, S1
*surface, NAME=SIDE_2B
 11, S2
*surface, NAME=SIDE_3B
 11, S3
*surface, NAME=SIDE_4B
 11, S4
*surface, NAME=SIDE_5B
 11, S5
*surface, NAME=SIDE_6B
 11, S6
*ORIENTATION, NAME=ORIW
*SOLID SECTION,MATERIAL=A1, ELSET=EALL
*SOLID SECTION,MATERIAL=A1, ELSET=ALL2, ORIENTATION=ORIW
*MATERIAL,NAME=A1
* ELECTRICAL CONDUCTIVITY
*CONDUCTIVITY
 3.77E-5,
*JOULE HEAT FRACTION
*DENSITY
 82.9,
*SPECIFIC HEAT
 .39,
*BOUNDARY
 FIX1,11
 FIX1, 9
*STEP,UNSYMM=YES
*COUPLED THERMAL-ELECTRICAL, STEADY STATE
*BOUNDARY, OP=NEW
 FIX2, 11
 FIX2,  9
*NODE PRINT
 NT,RFL
EPOT, RECUR
*OUTPUT,FIELD
*NODE OUTPUT
 NT,RFL
EPOT, RECUR
*EL PRINT,FREQ=0
*OUTPUT,FIELD
*ELEMENT OUTPUT
*DSFLUX, OP=NEW
 SIDE_1A, S, .3
 SIDE_1B, S, .3
*DSECURRENT,OP=NEW
 SIDE_1A, CS, .3
 SIDE_1B, CS, .3
*END STEP
*STEP,UNSYMM=YES
*COUPLED THERMAL-ELECTRICAL, STEADY STATE
*BOUNDARY, OP=NEW
 FIX1, 11
 FIX1,  9
*DSFLUX,OP=NEW
 SIDE_2A, S, .3
 SIDE_2B, S, .3
*DSECURRENT,OP=NEW
 SIDE_2A, CS, .3
 SIDE_2B, CS, .3
*END STEP
*STEP,UNSYMM=YES
*COUPLED THERMAL-ELECTRICAL, STEADY STATE
*BOUNDARY, OP=NEW
 FIX5, 11
 FIX5,  9
*DSFLUX,OP=NEW
 SIDE_3A, S, .3
 SIDE_3B, S, .3
*DSECURRENT,OP=NEW
 SIDE_3A, CS, .3
 SIDE_3B, CS, .3
*END STEP
*STEP,UNSYMM=YES
*COUPLED THERMAL-ELECTRICAL, STEADY STATE
*BOUNDARY, OP=NEW
 FIX6, 11
 FIX6,  9
*DSFLUX,OP=NEW
 SIDE_4A, S, .3
 SIDE_4B, S, .3
*DSECURRENT, OP=NEW
 SIDE_4A, CS, .3
 SIDE_4B, CS, .3
*END STEP
*STEP,UNSYMM=YES
*COUPLED THERMAL-ELECTRICAL, STEADY STATE
*BOUNDARY, OP=NEW
 FIX3, 11
 FIX3,  9
*DSFLUX,OP=NEW
 SIDE_5A, S, .3
 SIDE_5B, S, .3
*DSECURRENT, OP=NEW
 SIDE_5A, CS, .3
 SIDE_5B, CS, .3
*END STEP
*STEP,UNSYMM=YES
*COUPLED THERMAL-ELECTRICAL, STEADY STATE
*BOUNDARY, OP=NEW
 FIX4, 11
 FIX4, 9
*DSFLUX,OP=NEW
 SIDE_6A, S, .3
 SIDE_6B, S, .3
*DSECURRENT, OP=NEW
 SIDE_6A, CS,.3
 SIDE_6B, CS,.3
*END STEP