*HEADING
ADAPTIVE MESHING VERIFICATION - 
APPLY INITIAL TEMPERATURE DIST
FIX MESH, ROTATE MATERIAL 360 DEGREES
*RESTART,TIMEMARKS=NO,WRITE,NUM=10
*NODE,NSET=ALLN
  1,  -1., -1.
 41,   1., -1.
4001, -1.,  1. 
4041,  1.,  1.
*NGEN,NSET=BOT
1,41,1
*NGEN,NSET=TOP
4001,4041,1
*NFILL,NSET=ALLN
BOT,TOP,40,100
*NSET,NSET=LEFT,GEN
1,4001,100
*NSET,NSET=RIGHT,GEN
41,4041
*NSET,NSET=TRACER_NODES,GEN
2001,2020,1
*ELEMENT,TYPE=CPS4R,ELSET=GRID41
1, 1,2,102,101
*ELGEN,ELSET=GRID41
1, 40,1,1,  40,100,100
*ELSET,ELSET=TOPEDGE,GEN
3901,3940,1
*ELSET,ELSET=LEFTEDGE,GEN
1,3901,100
*ELSET,ELSET=RIGHTEDGE,GEN
40,3940,100
*ELSET,ELSET=BOTEDGE,GEN
1,40,1
*ELSET,ELSET=OUT,GEN
1405,1416,1
1505,1516,1
1605,1616,1
1705,1716,1
1805,1816,1
1905,1916,1
2005,2016,1
2105,2116,1
2205,2216,1
2305,2316,1
*SOLID SECTION,ELSET=GRID41,MATERIAL=MISES
*MATERIAL,NAME=MISES
*ELASTIC
3.0E6,0.3
*PLASTIC
1.E10, .0
*INELASTIC HEAT FRACTION
1.0, 
*SPECIFIC HEAT
1.E1, 
*DENSITY
1.E-2, 
*INITIAL CONDITIONS,TYPE=ROTATING VELOCITY
ALLN, 1256.64
0.,0.,0., 0.,0.,1.
*INITIAL CONDITIONS,TYPE=TEMPERATURE,INPUT=ale_rottemp_41x41.inp
*SURFACE,TYPE=ELEMENT,NAME=TOPEDGE,REGION TYPE=EULERIAN
TOPEDGE,S3
*SURFACE,TYPE=ELEMENT,NAME=LEFTEDGE,REGION TYPE=EULERIAN
LEFTEDGE,S4
*SURFACE,TYPE=ELEMENT,NAME=BOTEDGE,REGION TYPE=EULERIAN
BOTEDGE,S1
*SURFACE,TYPE=ELEMENT,NAME=RIGHTEDGE,REGION TYPE=EULERIAN
RIGHTEDGE,S2
*ELSET,ELSET=QA_TEST_OUT
OUT,
**
*STEP
*DYNAMIC,EXPLICIT,ADIABATIC
,.005
*ADAPTIVE MESH,ELSET=GRID41
**
** SURFACE DEFINITIONS
**
*ADAPTIVE MESH CONSTRAINT,CONSTRAINT TYPE=SPATIAL
LEFT,1
RIGHT,1
BOT,2
TOP,2
*OUTPUT,FIELD,NUMBER=10
*ELEMENT OUTPUT
TEMP,
*NODE OUTPUT
U
*TRACER PARTICLE,TRACER SET=TSET,PARTICLE BIRTH STAGES=1
TRACER_NODES,
*OUTPUT,HISTORY,TIME INTERVAL=.00025
*ELEMENT OUTPUT, TRACER SET=TSET
TEMP,
*FILE OUTPUT,NUMBER INTERVAL=1
*EL FILE,ELSET=OUT
TEMP, 
*OUTPUT, FIELD, NUMBER INTERVAL=1
*ELEMENT OUTPUT, ELSET=QA_TEST_OUT
TEMP, 
*OUTPUT,HISTORY,VARIABLE=PRESELECT,TIMEINT=0.005
***OUTPUT,HISTORY,VARIABLE=PRESELECT
*END STEP