&device  -oecho n
&title time domain test of wave grids
&set depth = 100
&set height = 20
&set period = 14
inmodel
&dcptime
&instate -loc    00  00 -%depth%
&weight -compute  23 34 34 6.4
&stat force
medit
   ~cant gspr x 1e3 y 1e4 z 1e3 rx 12e6 ry 12e3 rz 12e3
   &describe body ground
   *g &point(coord *1 -g)
   connec pin1 ~cant *1
end
&instate -move 0 2
&equi
&stat force
&stat f_c
&dcptime time for connect
&title regular sea
&env -sea regular 90 %height% %period% -time  3*%period% .25
$&exec -diag inout 0
tdom $-new .4 .6
&exec -diag none
&dcptime time for regular
prcpost
  traj  -even 0 900 .25
    report locat
    end
  tot_cforce -even 0 900 .25
    report
    end
end
&fini