*HEADING
ADAPTIVE MESHING VERIFICATION -
APPLY INITIAL TEMPERATURE DIST
FIX MESH, ROTATE MATERIAL 360 DEGREES
*RESTART,TIMEMARKS=NO,WRITE,NUM=10
*NODE,NSET=ALLN
*NGEN,NSET=BOT
*NGEN,NSET=TOP
*NFILL,NSET=ALLN
BOT,TOP,40,100
*NSET,NSET=LEFT,GEN
*NSET,NSET=RIGHT,GEN
*NSET,NSET=TRACER_NODES,GEN
*ELEMENT,TYPE=CPS4R,ELSET=GRID41
*ELGEN,ELSET=GRID41
*ELSET,ELSET=TOPEDGE,GEN
*ELSET,ELSET=LEFTEDGE,GEN
*ELSET,ELSET=RIGHTEDGE,GEN
*ELSET,ELSET=BOTEDGE,GEN
*ELSET,ELSET=OUT,GEN
*SOLID SECTION,ELSET=GRID41,MATERIAL=MISES
*MATERIAL,NAME=MISES
*ELASTIC
3.0E6,0.3
*PLASTIC
1.E10, .0
*INELASTIC HEAT FRACTION
*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