*HEADING
EC34VFDF: DFLUX, DECURREMT FOR THERMAL-ELECTRICAL
ELEMENTS  [DC3D4]
*restart, write
*PREPRINT,ECHO=YES,HISTORY=YES,MODEL=YES
*NODE, NSET=ALL1
*NCOPY, CHANGE NUMBER=10, OLD SET=ALL1, NEW SET=ALL2, SHIFT
*ELEMENT,TYPE=DC3D4E,ELSET=ALLELS
*ELCOPY, ELEMENT SHIFT=10, OLD SET=ALLELS, NEW SET=ELS2, SHIFT NODES=10
*ORIENTATION, NAME=ORIW
*SOLID SECTION,MATERIAL=A1, ELSET=ALLELS
*SOLID SECTION,MATERIAL=A1, ELSET=ELS2, ORIENTATION=ORIW
*MATERIAL,NAME=A1
*CONDUCTIVITY
 3.77E-5,
*ELECTRICAL CONDUCTIVITY
*JOULE HEAT FRACTION
*DENSITY
 82.9,
*SPECIFIC HEAT
 .39,
*NSET,NSET=FIX1
*NSET,NSET=FIX2
*NSET,NSET=FIX3
*NSET,NSET=FIX4
*NSET,NSET=FIX5
*NSET,NSET=FIX6
*BOUNDARY
 FIX1,11
 FIX1, 9
*STEP
*COUPLED THERMAL-ELECTRICAL, STEADY STATE
*NODE PRINT
 NT,RFL
EPOT,RECUR
*EL PRINT,FREQ=0
*DFLUX
 ALLELS, BF, .3
ELS2, BF, 0.3
*DECURRENT
 ALLELS,CBF, .3
ELS2, CBF, 0.3
*END STEP
*STEP
*COUPLED THERMAL-ELECTRICAL, STEADY STATE
*BOUNDARY, OP=NEW
 FIX2, 11
 FIX2,  9
*DFLUX, OP=NEW
 1, S1, .3
 4, S1, .3
11, S1, 0.3
14, S1, 0.3
*DECURRENT,OP=NEW
 1, CS1, .3
 4, CS1, .3
11, CS1, 0.3
14, CS1, 0.3
*END STEP
*STEP
*COUPLED THERMAL-ELECTRICAL, STEADY STATE
*BOUNDARY, OP=NEW
 FIX1, 11
 FIX1,  9
*DFLUX,OP=NEW
 2, S3, .3
 3, S3, .3
12, S3, 0.3
13, S3, 0.3
*DECURRENT,OP=NEW
 2, CS3, .3
 3, CS3, .3
12, CS3, 0.3
13, CS3, 0.3
*END STEP
*STEP
*COUPLED THERMAL-ELECTRICAL, STEADY STATE
*BOUNDARY, OP=NEW
 FIX5, 11
 FIX5,  9
*DFLUX,OP=NEW
 1, S2, .3
 2, S1, .3
11,S2, 0.3
12, S1, 0.3
*DECURRENT,OP=NEW
 1, CS2, .3
 2, CS1, .3
11, CS2, 0.3
12, CS1, 0.3
*END STEP
*STEP
*COUPLED THERMAL-ELECTRICAL, STEADY STATE
*BOUNDARY, OP=NEW
 FIX6, 11
 FIX6,  9
*DFLUX,OP=NEW
 1, S3, .3
 3, S2, .3
 11, S3, .3
 13, S2, .3
*DECURRENT, OP=NEW
 1, CS3, .3
 3, CS2, .3
 11, CS3, .3
 13, CS2, .3
*END STEP
*STEP
*COUPLED THERMAL-ELECTRICAL, STEADY STATE
*BOUNDARY, OP=NEW
 FIX3, 11
 FIX3,  9
*DFLUX,OP=NEW
 3, S1, .3
 4, S3, .3
 13, S1, .3
 14, S3, .3
*DECURRENT, OP=NEW
 3, CS1, .3
 4, CS3, .3
 13, CS1, .3
 14, CS3, .3
*END STEP
*STEP
*COUPLED THERMAL-ELECTRICAL, STEADY STATE
*BOUNDARY, OP=NEW
 FIX4, 11
 FIX4,  9
*DFLUX,OP=NEW
 2, S2, .3
 4, S4, .3
 12, S2, .3
 14, S4, .3
*DECURRENT, OP=NEW
 2, CS2, .3
 4, CS4, .3
 12, CS2, .3
 14, CS4, .3
*END STEP