*HEADING
DSLOAD, DSFLUX, SFILM, AND SRADIATE FOR COUPLED TEMP-DISP  [CPS3T]
**
** See ch. 1.4.8 of ABAQUS/Verification Manual
**
*PREPRINT,ECHO=YES,HISTORY=NO,MODEL=NO
*NODE,NSET=ALL
 1, 1.
 2, 8.
 3, 8.,7.
 4, 1.,7.
*NSET,NSET=FIX1
 1,2
*NSET,NSET=FIX2
 2,3
*NSET,NSET=FIX3
 3,4
*NSET,NSET=FIX4
 1,4
*NSET,NSET=QA_TEST
ALL
*ELEMENT, TYPE=CPS3T, ELSET=EALL
 1, 1,2,3
 2, 1,3,4
*SOLID SECTION,MATERIAL=A1, ELSET=EALL
*PHYSICAL CONSTANTS, ABSOLUTE ZERO=-460.,STEFAN BOLTZMANN=.1714E-8
*MATERIAL,NAME=A1
*ELASTIC
 30.E6, .3
*EXPANSION
 0., 
*CONDUCTIVITY
 3.77E-5, 
*SPECIFIC HEAT
 .39, 
*DENSITY
 82.9, 
**
**
*SURFACE,TYPE=ELEMENT,NAME=SIDE11
1,S1
*SURFACE,TYPE=ELEMENT,NAME=SIDE21
2,S1
*SURFACE,TYPE=ELEMENT,NAME=SIDE12
1,S2
*SURFACE,TYPE=ELEMENT,NAME=SIDE22
2,S2
*SURFACE,TYPE=ELEMENT,NAME=SIDE13
1,S3
*SURFACE,TYPE=ELEMENT,NAME=SIDE23
2,S3
*STEP
*DYNAMIC TEMPERATURE-DISPLACEMENT, EXPLICIT
  , 1.E+7
*FIXED MASS SCALING, ELSET=EALL, FACTOR=1.E+14
*************************
*FILE OUTPUT, NUM=1
*NODE FILE,NSET=ALL 
U,NT, 
*************************
*OUTPUT,FIELD, NUMBER INTERVAL=1
*NODE OUTPUT,NSET=QA_TEST
U,NT
*ELEMENT OUTPUT
S,
**************************
***OUTPUT, HISTORY, FREQ=500
***NODE OUTPUT, NSET=ALL
**RF, NT 
*************************
*OUTPUT, HISTORY, FREQ=99999
*ENERGY OUTPUT,VAR=ALL
*************************
*BOUNDARY, OP=NEW, TYPE=VELOCITY
 ALL, 1,2
*BOUNDARY, OP=NEW
 FIX1, 11
*DLOAD, OP=NEW
 1, BX, 100.
 1, BY, 200.
 2, BX, 100.
 2, BX, 100.
*DFLUX, OP=NEW
 1, BF, .3
 2, BF, .3
*END STEP
**
**
*STEP
*DYNAMIC TEMPERATURE-DISPLACEMENT, EXPLICIT
  , 1.E+7
*FIXED MASS SCALING, ELSET=EALL, FACTOR=1.E+14
*BOUNDARY, OP=NEW, TYPE=VELOCITY
 ALL, 1,2
*BOUNDARY, OP=NEW
 FIX1, 11
*DLOAD, OP=NEW
 1, GRAV, 2.4125,0., -1., 0.
 2, GRAV, 2.4125,0., -1., 0.
*DFLUX,OP=NEW
 1, BF, .3
 2, BF, .3
*END STEP
**
**
*STEP
*DYNAMIC TEMPERATURE-DISPLACEMENT, EXPLICIT
  , 1.E+7
*FIXED MASS SCALING, ELSET=EALL, FACTOR=1.E+14
*BOUNDARY, OP=NEW, TYPE=VELOCITY
 ALL, 1,2
*BOUNDARY, OP=NEW
 FIX3, 11
*DLOAD, OP=NEW
 1, GRAV, 2.4125,0., -1., 0.
 2, GRAV, 2.4125,0., -1., 0.
*DFLUX,OP=NEW
*DSFLUX,OP=NEW
 SIDE11, S, .3
*END STEP
**
**
*STEP
*DYNAMIC TEMPERATURE-DISPLACEMENT, EXPLICIT
  , 1.E+7
*FIXED MASS SCALING, ELSET=EALL, FACTOR=1.E+14
*BOUNDARY, OP=NEW, TYPE=VELOCITY
 ALL, 1, 1, .001E-08
 ALL, 2, 2, .0005E-08
*BOUNDARY, OP=NEW
 FIX4, 11
*DSFLUX,OP=NEW
 SIDE12, S, .3
*END STEP
**
**
*STEP
*DYNAMIC TEMPERATURE-DISPLACEMENT, EXPLICIT
  , 1.E+7
*FIXED MASS SCALING, ELSET=EALL, FACTOR=1.E+14
*BOUNDARY, OP=NEW, TYPE=VELOCITY
 ALL, 1,1, -.001E-08
 ALL, 2,2, -.0005E-08
*BOUNDARY, OP=NEW
 FIX1, 11
*DLOAD, OP=NEW
*DSLOAD, OP=NEW
 SIDE11, P, 100.
 SIDE12, P, 200.
 SIDE22, P, 300.
 SIDE23, P, 400.
*DSFLUX,OP=NEW
 SIDE22, S, .3
*END STEP
**
**
*STEP
*DYNAMIC TEMPERATURE-DISPLACEMENT, EXPLICIT
  , 1.E+7
*FIXED MASS SCALING, ELSET=EALL, FACTOR=1.E+14
*BOUNDARY, OP=NEW, TYPE=VELOCITY
 ALL, 1,2
*BOUNDARY, OP=NEW
 FIX2, 11
*DSLOAD, OP=NEW
 SIDE11, P, 100.
 SIDE12, P, 200.
 SIDE22, P, 300.
 SIDE23, P, 400.
*DSFLUX,OP=NEW
 SIDE23, S, .3
*END STEP
**
**
*STEP
*DYNAMIC TEMPERATURE-DISPLACEMENT, EXPLICIT
  , 1.E+5
*FIXED MASS SCALING, ELSET=EALL, FACTOR=1.E+10
*BOUNDARY, OP=NEW, TYPE=VELOCITY
 ALL, 1,2
*BOUNDARY, OP=NEW
 FIX3, 11
*DSFLUX,OP=NEW
*SFILM
 SIDE11, F, 75., .103
*END STEP
**
**
*STEP
*DYNAMIC TEMPERATURE-DISPLACEMENT, EXPLICIT
  , 1.E+5
*FIXED MASS SCALING, ELSET=EALL, FACTOR=1.E+10
*SFILM,OP=NEW
 SIDE12, F, 75., .103
*BOUNDARY,OP=NEW, TYPE=VELOCITY
 ALL, 1,2
*BOUNDARY, OP=NEW
 FIX4, 11
*END STEP
**
**
*STEP
*DYNAMIC TEMPERATURE-DISPLACEMENT, EXPLICIT
  , 1.E+5
*FIXED MASS SCALING, ELSET=EALL, FACTOR=1.E+10
*SFILM,OP=NEW
 SIDE22, F, 75., .103
*BOUNDARY,OP=NEW, TYPE=VELOCITY
 ALL, 1,2
*BOUNDARY, OP=NEW
 FIX1, 11
*END STEP
**
**
*STEP
*DYNAMIC TEMPERATURE-DISPLACEMENT, EXPLICIT
  , 1.E+5
*FIXED MASS SCALING, ELSET=EALL, FACTOR=1.E+10
*DSLOAD, OP=NEW
*SFILM,OP=NEW
 SIDE23, F, 75., .103
*BOUNDARY,OP=NEW, TYPE=VELOCITY
 ALL, 1,2
*BOUNDARY, OP=NEW
 FIX2, 11
*END STEP
**
**
*STEP
*DYNAMIC TEMPERATURE-DISPLACEMENT, EXPLICIT
  , 1.E+7
*FIXED MASS SCALING, ELSET=EALL, FACTOR=1.E+14
*SFILM,OP=NEW
*SRADIATE, OP=NEW
 SIDE11, R, 75., 2.9172E-5
*BOUNDARY,OP=NEW, TYPE=VELOCITY
 ALL, 1,2
*BOUNDARY, OP=NEW
 FIX3, 11
*END STEP
**
**
*STEP
*DYNAMIC TEMPERATURE-DISPLACEMENT, EXPLICIT
  , 1.E+7
*FIXED MASS SCALING, ELSET=EALL, FACTOR=1.E+14
*SRADIATE, OP=NEW
 SIDE12, R, 75., 2.9172E-5
*BOUNDARY,OP=NEW, TYPE=VELOCITY
 ALL, 1,2
*BOUNDARY, OP=NEW
 FIX4, 11
*END STEP
**
**
*STEP
*DYNAMIC TEMPERATURE-DISPLACEMENT, EXPLICIT
  , 1.E+7
*FIXED MASS SCALING, ELSET=EALL, FACTOR=1.E+14
*SRADIATE, OP=NEW
 SIDE22, R, 75., 2.9172E-5
*BOUNDARY,OP=NEW, TYPE=VELOCITY
 ALL, 1,2
*BOUNDARY, OP=NEW
 FIX1, 11
*END STEP
**
**
*STEP
*DYNAMIC TEMPERATURE-DISPLACEMENT, EXPLICIT
  , 1.E+7
*FIXED MASS SCALING, ELSET=EALL, FACTOR=1.E+14
*SRADIATE,OP=NEW
 SIDE23, R, 75., 2.9172E-5
*BOUNDARY,OP=NEW, TYPE=VELOCITY
 ALL, 1,2
*BOUNDARY, OP=NEW
 FIX2, 11
*END STEP