*HEADING
Explicit: /Submodel analysis from:
submproc_g_dyn2tempdisp_xpl
**
** The global Analysis is Quasi-Static
** The submodel is temp-displacement--the effect
** of temperature doesn't play an important role
** on the solution as the driven displacements do.
** This is because the temperature variation is 
** small and coeff of thermal expansion is small 
**
*NODE,NSET=ALL
 1, 3.
91, 8.
100, 8.,5.
10, 3.,5.
101, 3.,, .5
191, 8.,, .5
200, 8.,5., .5
110, 3.,5., .5
201, 3.,, 1.
291, 8.,, 1.
300, 8.,5., 1.
210, 3.,5., 1.
*NGEN,NSET=NL1
1,10,1
*NGEN,NSET=NR1
91,100
*NFILL,NSET=ALL1
NL1,NR1,9,10
*NGEN,NSET=NL2
101,110,1
*NGEN,NSET=NR2
191,200
*NFILL,NSET=ALL2
NL2,NR2,9,10
*NGEN,NSET=NL3
201,210,1
*NGEN,NSET=NR3
291,300,1
*NFILL,NSET=ALL3
NL3,NR3,9,10
*NSET,NSET=FIX1,GEN
 11,91,10
 211,291,10
*NSET,NSET=FIX2,GEN
91,100
291,300
*NSET,NSET=FIX3,GEN
10,100,10
210,300,10
*NSET,NSET=FIX4,GEN
1,10
201,210
*NSET,NSET=ALL
ALL1,ALL2,ALL3
*NSET,NSET=NALL
FIX1,FIX2,FIX3,FIX4
*NSET,NSET=QA_TEST
NR1,
*ELEMENT, TYPE=C3D8RT, ELSET=EALL
1,1,11,12,2,201,211,212,202
*ELGEN,ELSET=EALL
1,9,1,1,9,10,10
*ELSET,ELSET=EFLUX2,GEN
81,89
*SUBMODEL
FIX3,FIX4
*SOLID SECTION,MATERIAL=MAT, ELSET=EALL
*******************
*MATERIAL,NAME=MAT
*ELASTIC
 110.E9, .3
*EXPANSION
1e-4, 
*CONDUCTIVITY
390, 
*SPECIFIC HEAT
384, 
*DENSITY
8900, 
*RESTART,WRITE
*****************************************
*INITIAL CONDITIONS,TYPE=TEMPERATURE
ALL,20.0
*AMPLITUDE,NAME=RAMP,DEFINITION=SMOOTH STEP
0,0,1.5e6,1
*STEP
*DYNAMIC TEMPERATURE-DISPLACEMENT,EXPLICIT
,1.5e6
*FIXED MASS SCALING,FACTOR=1e14
*BOUNDARY
 ALL1,  3
 ALL3,  3
 FIX1,  2
 FIX1,11,11,20
 FIX2,11,11,20
*BOUNDARY, SUBMODEL, STEP=1
 FIX3,1,2
 FIX4,1,2 
*DFLUX,OP=NEW
EALL, BF, 50
*DLOAD,AMP=RAMP
 EFLUX2, P4, -1.0e9
**************
*OUTPUT, FIELD, NUMBER INTERVAL = 1
*NODE OUTPUT,NSET=QA_TEST
 U,NT
*OUTPUT, HISTORY, TIME INT=1.5e6
*ENERGY OUTPUT,VAR=ALL
*****************
*OUTPUT, HISTORY, TIME INT=0.5e5
*NODE OUTPUT,NSET=NALL
U,NT11
*****************
*OUTPUT, FIELD, NUMBER INTERVAL = 4
*ELEMENT OUTPUT, ELSET=EALL
 S,
*NODE OUTPUT
 U,NT
****************
*END STEP