*HEADING
 RISER DYNAMIC CHECK OUT -- AIRY THEORY VIA UWAVE ROUTINE 
*NODE  ,NSET=ENDS
1,,1520.
11,0.
*NGEN
1,11
*ELEMENT,TYPE=B21
1,1,2
*ELGEN,ELSET=PIPE
1,10
*ELSET,ELSET=PIPE1,GEN
1,5,1
*ELSET,ELSET=PIPE2,GEN
6,10,1
*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
**             *WAVE,TYPE=AIRY
**             10.,415.108,-54.026,1.
** USER SUBROUTINES DISP AND UWAVE SPECIFIED BELOW
*RESTART,WRITE,FREQUENCY=5
*STEP,NLGEOM
  INITIAL OFFSET
*STATIC
.25E-5,1.E-5
*DLOAD
PIPE,PY,-176.36
*****
**   Aqua Normal drag load
PIPE,FDD,    1., 2.167,  0.7,     1.
**
**   Aqua Inertial drag load
PIPE, FI,    1.,  2.167, 1.5,   0.5
**
*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
*ENERGY PRINT,ELSET=PIPE1
*ENERGY PRINT,ELSET=PIPE2
*ENERGY FILE,ELSET=PIPE1
*ENERGY FILE,ELSET=PIPE2
*EL PRINT,ELSET=PIPE1,TOTALS=YES
ELEN, 
*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, 
*ENERGY PRINT,ELSET=PIPE1
*ENERGY PRINT,ELSET=PIPE2
*ENERGY FILE,ELSET=PIPE1
*ENERGY FILE,ELSET=PIPE2
*EL PRINT,ELSET=PIPE1,TOTALS=YES
ELEN, 
*END STEP