*HEADING
 RISER DYNAMIC CHECK OUT --- STOKES 5TH ORDER THEORY   
**In user subroutines UWAVE used for this input file
**exa_riserdynamics_stokes_disp_uwave.inp. LAMBDA and MU (please 
**refer to Equation 6.2.3-7 and Equation 6.2.3-8 in "Stokes wave 
**theory," Section 6.2.3 of the Abaqus Theory Manual) used in the 
**subroutine can be obtained in the data file by running datacheck
**on the input file with *PREPRINT, MODEL=YES
*PREPRINT, ECHO=YES, HISTORY=YES, MODEL=YES, CONTACT=YES
*NODE  ,NSET=ENDS
1,,1520.
11,0.
*NGEN
1,11
*ELEMENT,TYPE=B21
1,1,2
*ELGEN,ELSET=PIPE
1,10
*BEAM GENERAL SECTION,SECTION=PIPE,DENSITY=22.332,ELSET=PIPE
.6667,0.0521
,,-1.
4.32E9,2.16E9
*AQUA
0.,1470.,32.2,1.982
0.,0.,0.,0.
0.844,0.,0.,1470.
*WAVE,TYPE=USER
**20.,9.,35.974,1.
*****
*****
*RESTART,WRITE,FREQUENCY=5
*STEP,NLGEOM
  INITIAL OFFSET
*STATIC
.25E-5,1.E-5
*DLOAD
PIPE,PY,-176.36
**      
**   Aqua Normal drag load on ELSET PIPE
PIPE,FDD,    1., 2.167,  0.7,     1.
**el,FDD, amag0,     D,   Cd, Alphr,  Ampc, Ampw
**
**   Aqua Inertial drag load on ELSET PIPE
PIPE, FI,    1.,  2.167, 1.5,   0.5
**el, FI, amag0,      D,  Cm,    Ca,  Ampw
**
*CLOAD
1,2,5.E5
*BOUNDARY
11,1,2
*BOUNDARY,USER
1,1
*NODE FILE,NSET=ENDS,FREQUENCY=1
U,RF
*PRINT,RESIDUAL=NO
*ENERGY PRINT
*ENERGY FILE
*EL PRINT,FREQUENCY=20
SF, 
*EL FILE,FREQUENCY=20
SF, 
*NODE PRINT,FREQUENCY=5
U,RF
*NODE FILE,FREQUENCY=5
U,RF
*END STEP
*STEP,NLGEOM,INC=200
  DYNAMICS
*DYNAMIC,DIRECT
.125,18.
*EL PRINT,FREQUENCY=10
SF, 
*EL FILE,FREQUENCY=10
SF, 
*END STEP