*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.
 81,   1., -1.
8001, -1.,  1. 
8081,  1.,  1.
*NGEN,NSET=BOT
1,81,1
*NGEN,NSET=TOP
8001,8081,1
*NFILL,NSET=ALLN
BOT,TOP,80,100
*NSET,NSET=LEFT,GEN
1,8001,100
*NSET,NSET=RIGHT,GEN
81,8081
*NSET,NSET=TRACER_NODES,GEN
4002,4040,1
*ELEMENT,TYPE=CPS4R,ELSET=GRID41
1, 1,2,102,101
*ELGEN,ELSET=GRID41
1, 80,1,1,  80,100,100
*ELSET,ELSET=TOPEDGE,GEN
7901,7980,1
*ELSET,ELSET=LEFTEDGE,GEN
1,7901,100
*ELSET,ELSET=RIGHTEDGE,GEN
80,7980,100
*ELSET,ELSET=BOTEDGE,GEN
1,80,1
*ELSET,ELSET=OUT,GEN
4217,4228,1
4317,4328,1
4417,4428,1
4517,4528,1
4617,4628,1
4717,4728,1
4817,4828,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_81x81.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