$
$*********************************************      SET BASIC PARAMETERS
$
&dimen -DIMEN FEET KIPS
&DEVICE   -oecho no -g_default devi
&TITLE Test of Wave "Runup"
$
$*********************************************      Read Model
$
INMODEL
$
$*********************************************      Set Initial Condition
$
&INSTATE -loc 0  0  0
$
$*********************************************      Define Mooring Lines
$
MEDIT
   ~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
$
$*********************************************     Find Equilibrium
$
&ENV TEST -TIME 100 .5 -ramp -1
$
$*********************************************     loop
$
&loop n ( 1 2 3 4 5 6 )
$
$*********************************************     apply
$
&if %n .eq. 1 &then
   &apply -percent -force #force  100
   &set title = Constant
&elseif %n .eq. 2 &then
   &set title = Linear
   &apply -time #force 0 0 100 100
&elseif %n .eq. 3 &then
   &set title = Periodic
   &apply -periodic #force 0 0 1e-5 10 20 10 20.000 -10 40 -10
&elseif %n .eq. 4 &then
   &set title = Load Group
   &apply -percent -force #force 0 #cow 100 \
          -periodic cow 0 0 1e-5 10 20 10 20.000 -10 40 -10
&elseif %n .eq. 5 &then
   &set start = 30
   &set title = One Hump  @ %start
   &set dur   = 10
   &apply -force @ 0 #force 1 \
          -time  #force 0 0 %start            0   \
                            %start+1e-5      10   \
                            %start+%dur      10   \
                            %start+%dur+1e-5  0
&else
   &set start = 50
   &set title = One Hump  @ %start
   &set dur   = 10
   &apply -time  #force 0 0 %start            0   \
                            %start+1e-5      10   \
                            %start+%dur      10   \
                            %start+%dur+1e-5  0
&endif
&type %title
&title %title
&STATUS Force
$
$*********************************************     Time Domain Post
$
TDOM -new
&DCPTIME Time For Time Domain
$
$*********************************************     Time Domain Post
$
&describe interest -assoc *mla
PRCPOST
  TOT_CFORCE -event
     plot 1 2 -n
     report
     END
END
&DCPTIME Time For Time Post Processing
&set wave = a_pres tbrg -wave_run yes
&endloop
$
$*********************************************     All Done
$
&FINI