$
$*********************************************      basics
$
&device  -oecho n
&title time domain test of wave grids
&set depth = 100
&set height = 20
&set period = 14
$
$*********************************************      read model
$
inmodel
&dcptime
&set grid = regular stream stokes
&data env
   &loop name (%grid%)
      s_grid G_%name% %name% %depth%  %height% %period%
      &dcptime time to gen. %name% grid
   &endloop
end_&data
&summary
   s_grid -data g_stream
end
&instate -loc   100 100 -%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
&describe interest -asso *1
&title regular sea
&env -sea regular 90 %height% %period% -time  %period% .5
&type Wave Height &env(s_height)
&type Wave Period &env(s_period)
&type Water Depth &env(wat_depth)
&type Wave Crest &env(s_crest)
&dcptime time for reporting
doit regular
&loop name (%grid%)
   &title G_%name% grid
   &env -sea g_%name% 90 -time  %period% .5
   &type Wave Crest &env(s_crest)
   doit g_%name
&endloop
$
$*********************************************      all done
$
&fini
