$
$*********************************************      set basics
$
&dimen -DIMEN FEET KIPS
&DEVICE   -oecho no -g_default devi
&TITLE Test of Wave "Runup"
$
$*********************************************      Read Model
$
INMODEL
$
$*********************************************      Set Initial Condition
$
&INSTATE -loc 30 0 -20
&weight -compute 5 32 129 129
$
$*********************************************      Define Mooring Lines
$
MEDIT
   *MLA 400    50   20
   *MLB 400   -50   20
   *MLC   0   -50   20
   *MLD   0    50   20
   ~WIRE fix
   CONNECTOR b  ~WIRE   *MLB
   CONNECTOR d  ~WIRE   *MLC
   CONNECTOR f  ~WIRE   *MLD
   CONNECTOR h  ~WIRE   *MLA
END
$
$*********************************************     Move Anchors
$
&dcptime Time to Connect
$
$*********************************************      Frequency Domain
$
hydro
   g_press -HEADING 90
   a_mdrift tbrg none
end
$
$*********************************************     Find Equilibrium
$
&set perio = 10
&parameter -stretch no -nonl_sea yes
&ENV TEST -sea regul 90 10  %perio -TIME 10 .5 -ramp -1
&STATUS Force
$
$*********************************************     Env. and Time Domain
$
&loop n ( no yes )
   &describe body tbrg -wave_run %n 
   &cutype Using &describe body tbrg -wave_run %n 
   TDOM -new
   &DCPTIME Time For Time Domain
$
$*********************************************     Time Domain Post
$
   &describe interest -assoc *mla
   PRCPOST
     TOT_CFORCE -event
        stati 1 3 4 -heading "Hi There" -mag
        p 1 3 -rax 4 -n
        END
     point *mla -event
        stati 1 2
        p 1 2 -n
        END
   END
   &DCPTIME Time For Time Post Processing
&endloop
$
$*********************************************     All Done
$
&FINI