*HEADING
ECG6TLDD: DLOAD, DFLUX, FILM, AND RADIATION FOR COUPLED TEMP-DISP [CPEG6MHT]
*PREPRINT,ECHO=YES,HISTORY=NO,MODEL=NO
*RESTART,WRITE
*NODE
 1    , 0.        , 0.
 3    , 7.        , 0.
 7    , 0.        , 7.
 9    , 7.        , 7.
*NODE,NSET=REFND
 998,0.,0.,
*NGEN,NSET=BOTTOM
 1    , 3
*NGEN,NSET=TOP
 7    , 9
*NGEN,NSET=LEFT
 1    , 7    , 3
*NGEN,NSET=RIGHT
 3    , 9    , 3
*NGEN
 4    , 6
*NSET,NSET=ALL,GENERATE
 1    , 9
*ELEMENT,TYPE=CPEG6MHT,ELSET=ELEMS
 1    , 1    , 3    , 9    , 2    , 6    , 5
 2    , 1    , 9    , 7    , 5    , 8    , 4
*SOLID SECTION,MATERIAL=A1, ELSET=ELEMS, REFNODE=REFND
*PHYSICAL CONSTANTS, ABSOLUTE ZERO=-460., STEFAN BOLTZMANN=5.0E-8
*MATERIAL,NAME=A1
*ELASTIC
 30.E6, .3
*EXPANSION
 0.,
*CONDUCTIVITY
 3.77E-5,
*SPECIFIC HEAT
 .39,
*DENSITY
 82.9,
*BOUNDARY, OP=NEW
 ALL,1,2
 BOTTOM,11,11
 REFND,3,5
*INITIAL CONDITION,TYPE=TEMPERATURE
 ALL  , -10.
*STEP
*STATIC
*ENERGY FILE
*OUTPUT,HISTORY,FREQUENCY=1
*ENERGY OUTPUT,VARIABLE=PRESELECT
*NODE FILE
 RF, 
*OUTPUT,FIELD,OP=NEW
*NODE OUTPUT
 RF,
*DLOAD, OP=NEW
 ELEMS,BX,1000.
*EL PRINT
 LOADS,
*EL FILE
 LOADS,
*NODE PRINT,TOTALS=YES
 RF, 
*END STEP
*STEP, PERT
*STATIC
*DLOAD, OP=NEW
 ELEMS,BY,2000.
*END STEP
*STEP, PERT
*STATIC
*DLOAD,OP=NEW
 ELEMS,CENT,3000.,0.,0.,0.,0.,1.,0.
*END STEP
*STEP, PERT
*STATIC
*DLOAD, OP=NEW
 ELEMS,CENTRIF,6.E2,0.,0.,0.,0.,1.,0.
*END STEP
*STEP, PERT
*STATIC
*DLOAD, OP=NEW
 ELEMS,GRAV,400.,0.,-1.,0.
*END STEP
*STEP, PERT
*STATIC
*DLOAD, OP=NEW
 1,HP1,3000.,3.,0.
*END STEP
*STEP, PERT
*STATIC
*DLOAD, OP=NEW
 1,HP2,3000.,3.,0.
*END STEP
*STEP, PERT
*STATIC
*DLOAD, OP=NEW
 2,HP2,3000.,3.,0.
*END STEP
*STEP, PERT
*STATIC
*DLOAD, OP=NEW
 2,HP3,3000.,3.,0.
*END STEP
*STEP, PERT
*STATIC
*DLOAD, OP=NEW
 1,P1,1000.
*END STEP
*STEP, PERT
*STATIC
*DLOAD, OP=NEW
 1,P2,2000.
*END STEP
*STEP, PERT
*STATIC
*DLOAD, OP=NEW
 2,P2,3000.
*END STEP
*STEP, PERT
*STATIC
*DLOAD, OP=NEW
 2,P3,3000.
*END STEP
*STEP
*COUPLED TEMPERATURE-DISPLACEMENT, STEADY STATE
*BOUNDARY, OP=NEW
 ALL, 1,2
 BOTTOM, 11
 REFND,3,5
*DLOAD,OP=NEW
*DFLUX,OP=NEW
 1, BF, .3
 2, BF, .3
*ENERGY FILE
*OUTPUT,HISTORY,FREQUENCY=1
*ENERGY OUTPUT,VARIABLE=PRESELECT
*EL FILE
 LOADS,FLUXS
 FILM,RAD
*OUTPUT,FIELD,OP=NEW
*NODE OUTPUT
 NT,
 RFL,
*NODE FILE
 NT,
 RFL,
*EL PRINT
 FLUXS
 FILM,RAD
*NODE PRINT
 NT,
 RFL,
*END STEP
*STEP
*COUPLED TEMPERATURE-DISPLACEMENT, STEADY STATE
*BOUNDARY, OP=NEW
 All, 1,2
 Top, 11
 REFND,3,5
*DFLUX,OP=NEW
 1, S1, .3
*END STEP
*STEP
*COUPLED TEMPERATURE-DISPLACEMENT, STEADY STATE
*BOUNDARY, OP=NEW
 All, 1,2
 Left, 11
 REFND,3,5
*DFLUX,OP=NEW
 1, S2, .3
*END STEP
*STEP
*COUPLED TEMPERATURE-DISPLACEMENT, STEADY STATE
*BOUNDARY, OP=NEW
 All, 1,2
 Bottom, 11
 REFND,3,5
*DFLUX,OP=NEW
 2, S2, .3
*END STEP
*STEP
*COUPLED TEMPERATURE-DISPLACEMENT, STEADY STATE
*BOUNDARY, OP=NEW
 All, 1,2
 Right, 11
 REFND,3,5
*DFLUX,OP=NEW
 2, S3, .3
*END STEP
*STEP
*COUPLED TEMPERATURE-DISPLACEMENT, STEADY STATE
*BOUNDARY, OP=NEW
 All, 1,2
 Top, 11
 REFND,3,5
*DFLUX,OP=NEW
*FILM
 1, F1, 75., .103
*END STEP
*STEP
*COUPLED TEMPERATURE-DISPLACEMENT, STEADY STATE
*BOUNDARY,OP=NEW
 All, 1,2
 Left, 11
 REFND,3,5
*FILM,OP=NEW
 1, F2, 75., .103
*END STEP
*STEP
*COUPLED TEMPERATURE-DISPLACEMENT, STEADY STATE
*BOUNDARY,OP=NEW
 All, 1,2
 Right, 11
 REFND,3,5
*FILM,OP=NEW
 2, F3, 75., .103
*END STEP
*STEP
*COUPLED TEMPERATURE-DISPLACEMENT, STEADY STATE
*BOUNDARY,OP=NEW
 All, 1,2
 Bottom, 11
 REFND,3,5
*FILM,OP=NEW
 2, F2, 75., .103
*END STEP
*STEP
*COUPLED TEMPERATURE-DISPLACEMENT, STEADY STATE
 1., 1.
*BOUNDARY,OP=NEW
 All, 1,2
 Top, 11
 REFND,3,5
*FILM,OP=NEW
*RADIATE, OP=NEW
 1, R1, 75., 1.E-06
*END STEP
*STEP
*COUPLED TEMPERATURE-DISPLACEMENT, STEADY STATE
 1., 1.
*BOUNDARY,OP=NEW
 All, 1,2
 Left, 11
 REFND,3,5
*RADIATE, OP=NEW
 1, R2, 75., 1.E-06
*END STEP
*STEP
*COUPLED TEMPERATURE-DISPLACEMENT, STEADY STATE
 1., 1.
*BOUNDARY,OP=NEW
 All, 1,2
 Bottom, 11
 REFND,3,5
*RADIATE, OP=NEW
 2, R2, 75., 1.E-06
*END STEP
*STEP
*COUPLED TEMPERATURE-DISPLACEMENT, STEADY STATE
 1., 1.
*BOUNDARY,OP=NEW
 All, 1,2
 Right, 11
 REFND,3,5
*RADIATE,OP=NEW
 2, R3, 75., 1.E-06
*END STEP