*HEADING
EC12VFDF: DFLUX, DECURRENT FOR COUPLED THERMAL-ELECTRIC
ELEMENTS  [DC1D2E]
*PREPRINT,ECHO=YES,HISTORY=NO,MODEL=NO
*NODE,NSET=ALL
 1, 0.
 2, 7.
*NODE,NSET=ALL1
 3, 0., 1.
 4, 7., 1.
*SOLID SECTION,MATERIAL=A1, ELSET=EALL
 3., 
*SOLID SECTION,MATERIAL=A2, ELSET=EALL1
 3., 
*ELEMENT,TYPE=DC1D2E, ELSET=EALL
 1,1,2
*ELEMENT,TYPE=DC1D2E, ELSET=EALL1
 2,3,4
*MATERIAL,NAME=A1
*CONDUCTIVITY
 3.77E-5, 
*ELECTRICAL CONDUCTIVITY
 3.77E-5, 
*JOULE HEAT FRACTION
 0.0, 
*SPECIFIC HEAT
 .39, 
*DENSITY
 82.9, 
*MATERIAL,NAME=A2
*CONDUCTIVITY
 3.77E-5, 
*ELECTRICAL CONDUCTIVITY,DEPENDENCIES=1
 1.885E-5,,1
 5.655E-5,,3
*JOULE HEAT FRACTION
 0.0, 
*SPECIFIC HEAT
 .39, 
*DENSITY
 82.9, 
*BOUNDARY
 2, 11
 2, 9
 4, 11
 4, 9
*INITIAL CONDITIONS,TYPE=FIELD,VARIABLE=1
ALL1,2
*STEP
*COUPLED THERMAL-ELECTRIC,STEADY STATE
*NODE PRINT
 NT,RFL
EPOT,RECUR
*EL PRINT,FREQ=0
*DFLUX,OP=NEW
 1, BF, .3
 2, BF, .3
*DECURRENT,OP=NEW
 1, CBF, .3
 2, CBF, .3
*END STEP
*STEP
*COUPLED THERMAL-ELECTRIC, STEADY STATE
*DFLUX,OP=NEW
 1, S1, .3
 2, S1, .3
*DECURRENT, OP=NEW
 1, CS1, .3
 2, CS1, .3
*BOUNDARY,OP=NEW
 2,11
 2,9
 4,11
 4,9
*END STEP
*STEP
*COUPLED THERMAL-ELECTRIC,STEADY STATE
*BOUNDARY,OP=NEW
 1,11
 1, 9
 3,11
 3, 9
*DFLUX,OP=NEW
 1, S2, .3
 2, S2, .3
*DECURRENT, OP=NEW
 1, CS2, .3
 2, CS2, .3
*END STEP
**
** STEP ADDED TO CHECK *DECURRENT, OP=MOD
**
*STEP
*COUPLED THERMAL-ELECTRIC,STEADY STATE
*SOLUTION TECHNIQUE,TYPE=SEPARATED
*BOUNDARY,OP=NEW
 1,11
 1, 9
 3,11
 3, 9
*DFLUX,OP=NEW
 1, S2, .3
 2, S2, .3
*DECURRENT, OP=MOD
 1, CS2, .3
 2, CS2, .3
*END STEP