&TITLE Spar Wind Test
&dimen -DIMEN FEET KIPS
&device  -oecho n  -g_default device
&default   -WATER 64.0 -DEPTH 1930
&parameter -drgtub 1e3 1.44 1e8 1.44 -period 28
$
$****************************************         read model
$
INMODEL
&Apply -perc @ 100 -perc wind 0
&instate -locate 0 0 -650 0 0 0
$
$****************************************         Mooring Description
$
con_line ex
$
$****************************************         report mooring props.
$
&status g_conn -hard
&status f_conn
&status cl_flex -hard
conn
   table ml1
      report
      end
end
$
$****************************************         set weight
$
&weight -compute cspar 311.2 203.1 203.1 24.0
$
$****************************************         wind environment
$
&set pw =    1061 353 212 151 117 95 78 66 57 50 44 39 35 31 28 \
             26.1 23.8 21.8 20 17.3 16.9 15.6 14.4 13.3 12.3 11.4 \
             10.5 9.7 9.0 8.3 7.7 7.1 6.5 6.0 5.6 5.1 4.7 4.3 3.9 \
             3.6 3.2 2.9 2.6 2.4 2.1 1.9 1.6 1.4 1.2 1.0
&env test -time 300 2.5  -wind 78.2 0 -w_spec api 1/.025 -p_wind %pw
&stat e_wind_time
$
$****************************************         find equi
$
&stat config
&stat force
&status f_conn
&equi -tol 1e-5 -maxit 1000 -omega .25
&stat force
&status f_conn
&status env -hard
&status -hard
&status config -hard
&status f_conn -hard
&status force -hard
$
$****************************************         sresponse
$
freq_resp
    sres test -period %pw -head 0 -fix yes
    equ_sum
    fr_point
       report
       end
    st_cfor @
       report
       end
end
$
$****************************************         time domain wind
$
TDOM -newmark yes
$
$****************************************         report
$
prcpost
   trajecto -cg
      stati 1 5 6 7
      plot 1 5 6 7 -rax 8 9 10 -no
   end
end
$
$****************************************         wave environment
$
&env test -time 300 2.5  -sea regular 0 10 28
$
$****************************************         time domain wave
$
TDOM -newmark yes
$
$****************************************         report
$
prcpost
   trajecto -cg
      stati 1 5 6 7
      plot 1 5 6 7 -rax 8 9 10 -no
   end
end
$
$****************************************         all done
$
&fini