&device  -oecho n
&title time domain test of wave grids
&set depth = 100
&set height = 20
&set period = 14
inmodel
&dcptime
&set grid = regular stream stokes
&instate -loc   00 00 -%depth%
&weight -compute  23 34 34 6.4
medit
   ~pins  fix
   ~fix2  fix y x
   connec pin1 ~pins *1
   connec pin2 ~fix2 *2
end
&dcptime time for connect
&title regular sea
&env -sea regular 90 %height% %period% -time  3*%period% .25
tdom
&dcptime time for regular
prcpost
  traj  -even 0 900 .25
    report locat
    end
  tot_cforce -even 0 900 .25
     report
     end
end
&fini