*HEADING
ADAPTIVE MESHING EXAMPLE
Units: N, m
*RESTART,TIMEMARKS=NO,WRITE,NUM=5
*NODE
301,1.,5.
400,28.6,5.
401,1.,5.575
500,28.6,5.575
*NSET,NSET=LEFTLAG
301,401
*NSET,NSET=RIGHTLAG
400,500
*NFILL,NSET=NALLLAG
LEFTLAG,RIGHTLAG,99,1
*ELEMENT,TYPE=CPE4R,ELSET=WATERLAG
101,301,302,402,401
*ELGEN,ELSET=WATERLAG
101,99,1,1,1,
*******************
*NODE
601,1.,9.
700,28.6,9.
701,1.,9.575
800,28.6,9.575
*NSET,NSET=LEFTEU
601,701
*NSET,NSET=RIGHTEU
700,800
*NFILL,NSET=NALLEU
LEFTEU,RIGHTEU,99,1
*ELEMENT,TYPE=CPE4R,ELSET=WATEREU
201,601,602,702,701
*ELGEN,ELSET=WATEREU
201,99,1,1,1,
*ELSET, ELSET=EULER1
201, 
*ELSET, ELSET=EULER2
299, 
*******************
*SOLID SECTION,ELSET=WATEREU,MATERIAL=WATER, CONTROL=SECTEU
*SECTION CONTROLS, NAME=SECTEU,HOURGLASS=STIFFNESS
*SOLID SECTION,ELSET=WATERLAG,MATERIAL=WATER, CONTROL=SECTLAG
*SECTION CONTROLS, NAME=SECTLAG,HOURGLASS=STIFFNESS
*MATERIAL,NAME=WATER
*EOS,TYPE=USUP
1450.6,0.0,0.0,0.0
*DENSITY
983.2, 
*NSET,NSET=OUT
301,401,325,350,375
601,701,625,650,675
*NSET,NSET=QA_TESTOUT
OUT,
*ELSET,ELSET=QA_TESTEALL
WATEREU,
WATERLAG,
*ELSET,ELSET=OUT,GEN
1,10,1
*NSET,NSET=YSYM,GEN
301,400,1
401,500,1
601,700,1
701,800,1
*BOUNDARY
YSYM,YSYMM
*NSET, NSET=EULER
RIGHTEU,LEFTEU
*AMPLITUDE, DEFINITION=SMOOTH STEP,NAME=AMP,TIME=TOTAL TIME
0.0, 57.14, 12.E-4, 492.14,24.E-4, 57.14,1.0, 57.14 
*INITIAL CONDITIONS, TYPE=VELOCITY
NALLLAG,1,57.14
NALLEU,1,57.14
*SURFACE,TYPE=ELEMENT, NAME=EULER2, REGION TYPE=EULERIAN
EULER2,S2
*NSET,NSET=QA_TEST_OUT
OUT,
**
*STEP
*DYNAMIC,EXPLICIT
,60.E-4
*BOUNDARY,TYPE=VELOCITY,AMPLITUDE=AMP
301,1,1,1.0
401,1,1,1.0
601,1,1,1.0
701,1,1,1.0
*FILE OUTPUT, NUMBER=2, TIME MARKS=YES
*NODE FILE,NSET=OUT
U,
**OUTPUT,HISTORY,TIME INTERVAL=1.E-4
***NODE OUTPUT,NSET=OUT
**U,V
***ENERGY OUTPUT
**ALLKE,ALLIE,ALLAE,ALLVD,ALLWK,ETOTAL,
**DT,
*OUTPUT,FIELD,NUMBER INTERVAL=2,VARIABLE=PRESELECT
*OUTPUT,FIELD,NUMBER=4
*ELEMENT OUTPUT,ELSET=QA_TESTEALL
PRESS
*NODE OUTPUT,NSET=QA_TESTOUT
U
*OUTPUT, FIELD, NUMBER INTERVAL=2, TIMEMARKS=YES
*NODE OUTPUT, NSET=QA_TEST_OUT
U,
*OUTPUT,HISTORY,VARIABLE=PRESELECT,TIMEINT=0.003
*END STEP
*STEP
*DYNAMIC, EXPLICIT
,1.15E-2
*BOUNDARY,TYPE=VELOCITY,AMPLITUDE=AMP,REGION TYPE=EULERIAN
601,1,1,1.0
701,1,1,1.0
*ADAPTIVE MESH, ELSET=WATEREU,CONTROLS=UPDATED,FREQUENCY=1,INITIAL MESH SWEEPS=1
*ADAPTIVE MESH CONSTRAINT
EULER,1,1,0.0
*ADAPTIVE MESH CONTROLS,NAME=UPDATED,MOMENTUM ADVECTION=HALF INDEX SHIFT,
MESHING PREDICTOR=PREVIOUS
*FILE OUTPUT, NUMBER=2, TIME MARKS=YES
*NODE FILE,NSET=OUT
U,
*OUTPUT, FIELD, NUMBER INTERVAL=2, TIMEMARKS=YES
*NODE OUTPUT, NSET=QA_TEST_OUT
U,
*OUTPUT,HISTORY,VARIABLE=PRESELECT,TIMEINT=0.00575
*END STEP