*HEADING
: DLOAD, DFLUX, FILM, AND RADIATION FOR COUPLED TEMP-DISP  [S4T]
*PREPRINT,ECHO=YES,HISTORY=NO,MODEL=NO
*NODE
1    , 0.        , 0.
3    , 7.        , 0.
7    , 0.        , 7.
9    , 7.        , 7.
*NGEN,NSET=BOTTOM
1    , 3
*NGEN,NSET=TOP
7    , 9
*NGEN,NSET=LEFT
1    , 7    , 3
*NGEN,NSET=RIGHT
3    , 9    , 3
*NSET,NSET=ALL,GENERATE
1    , 9
*NSET,NSET=COR
1,3,9,7
*ELEMENT,TYPE=S4T, ELSET=EALL
1    , 1    , 3    , 9    , 7
*SHELL SECTION,MATERIAL=A1, ELSET=EALL
2.        , 3
*PHYSICAL CONSTANTS,STEFAN BOLTZMANN=1.E-8,ABSOLUTE ZERO=-460.
*MATERIAL,NAME=A1
*ELASTIC
3.E6      , 0.3
*CONDUCTIVITY
 3.77E-5, 
*SPECIFIC HEAT
 .39, 
*DENSITY
 82.9, 
*STEP
*COUPLED TEMPERATURE-DISPL, STEADY STATE
 1., 1.
*EL PRINT
 LOADS,
*NODE PRINT
 RF, 
 NT, 
 RFL, 
*BOUNDARY, OP=NEW
 ALL,1,6
 COR,11
*DFLUX,OP=NEW
 1, BF, .3
*DLOAD
1,BX,1000.
*OUTPUT,HISTORY
*ELEMENT OUTPUT,ELSET=EALL
NFLUX,
*END STEP
*STEP
*COUPLED TEMPERATURE-DISPL, STEADY STATE
 1., 1.
*BOUNDARY, OP=NEW
 ALL, 1,6
 COR, 13
*DFLUX, OP=NEW
 1, SNEG, .3
*DLOAD, OP=NEW
1,BY,2000.
*EL PRINT
 LOADS,
*NODE PRINT
 RF, 
 NT, 
 RFL, 
*END STEP
*STEP
*COUPLED TEMPERATURE-DISPL, STEADY STATE
 1., 1
*BOUNDARY, OP=NEW
 ALL, 1,6
 COR, 11
*DFLUX, OP=NEW
 1, SPOS, .3
*DLOAD, OP=NEW
 1,BZ,3000.
*END STEP
*STEP
*COUPLED TEMPERATURE-DISPL, STEADY STATE
*DFLUX,OP=NEW
*DLOAD, OP=NEW
 1,GRAV,36.188,0,0,1.
*END STEP
*STEP
*COUPLED TEMPERATURE-DISPL, STEADY STATE
 1., 1.
*BOUNDARY,OP=NEW
 ALL, 1,6
 COR, 13
*FILM, OP=NEW
 1, FNEG, 75., .103
*DLOAD, OP=NEW
1,CENT,3000.,0.,0.,0.,0.,1.,0.
*END STEP
*STEP
*COUPLED TEMPERATURE-DISPL, STEADY STATE
 1., 1.
*BOUNDARY,OP=NEW
 ALL, 1,6
 COR, 13
*FILM, OP=NEW
 1, FNEG, 75., .103
*DLOAD, OP=NEW
1,CENTRIF,36.188,0.,0.,0.,0.,1.,0.
*END STEP
*STEP
*COUPLED TEMPERATURE-DISPL, STEADY STATE
 .00000001, .00000001
*BOUNDARY, OP=NEW
 ALL,1,1, .0000001
 ALL,2,2, .00000005
 ALL,3,6
 COR, 11
*FILM, OP=NEW
 1, FPOS, 75., .103
*DLOAD, OP=NEW
 1, CORIO, 5.,  0.,0.,0.,  0.,1.,0.
*END STEP
*STEP
*COUPLED TEMPERATURE-DISPL, STEADY STATE
 1., 1.
*BOUNDARY,OP=NEW
 ALL, 1,6
 COR, 13
*FILM, OP=NEW
*RADIATE, OP=NEW
 1, RNEG, 75., 1.E-6
*DLOAD, OP=NEW
 1,HP,3000.,7.,0.
*END STEP
*STEP
*COUPLED TEMPERATURE-DISPL, STEADY STATE
 1., 1.
*BOUNDARY, OP=NEW
 ALL, 1,6
 COR, 11
*DLOAD, OP=NEW
1,P,1000.
*RADIATE, OP=NEW
 1, RPOS, 75., 1.E-6
*END STEP