$
$*********************************************      basics
$
&device  -oecho n -g_default device
&title time domain test of wave grids
&set depth = 100
&set height = 40
&set period = 14
$
$****************************************
$
inmodel
$
$****************************************
$
&dcptime
&set grid = regular stokes
&loop name (%grid%)
   &data env
         s_grid G_%name% %name% %depth%  %height% %period%
         &dcptime time to gen. %name% grid
   end_&data
   &summary
      s_grid -data g_%name
   end
&endloop
$
$****************************************
$
&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
&describe interest -assoc *1
$
$****************************************
$
&title regular sea
&parameter  -stretch yes -nonl_sea no
&env -sea regular 90 %height% %period% -time  %period% .1
doit regular
&type Wave Height &env(s_height)
&type Wave Period &env(s_period)
&type Water Depth &env(wat_depth)
&type Wave Crest &env(s_crest)
$&exec -diag detail
&loop name (%grid%)
   &title G_%name% grid
   &env -sea g_%name% 90 -time  %period% .1
   &type Wave Crest &env(s_crest)
   doit g_%name
&endloop
&set  numb = &token(n %time)
&build -br
   time
   regular
   regular grid
   stokes
 
   &loop i 1 %numb
     &set l = &token(%i %time) &token(%i %regular) &token(%i %g_regular) &token(%i %g_stokes)
     %l
   &endloop
 
   vl
   plot 1 2 3 4 -n
end
$
$****************************************
$
&env -sea issc 90 %height% %period% -time  3600 .5
&parameter -stretch yes -nonl_sea no
&set name = Linear Sea
&loop i 1 2
   do_irreg %name
   &parameter -stretch no  -nonl_sea yes
   &set name = Nonlinear Sea
&endloop
$
$****************************************
$
$
$*********************************************      all done
$
&fini
