$
$*********************************************      basics
$
&device   -oecho n
&title time domain test of wave grids
&dimen -dimen meters m-tons
$
$*********************************************      read model
$
inmodel
&dcptime
&data env
   s_grid reggri regular 100  5 14
end_&data
&data curves m_growth addit  0 100e3 500 100e3
&dcptime time to gen. regular grid
&instate -con  100.
&weight -compute  23 34 34 6.4
medit
   ~pins  fix
   connec pin1 ~pins *1
   connec pin2 ~pins *2
end
&dcptime time for connect
&default -ramp -1 -depth 100
&title regular grid
&env -sea reggri 90 -time  14 .5
tdom
&dcptime time for regular  grid
prcpost
  body_force -force @
  report
  end
end
&dcptime time for reporting
&title with growth
&env -sea reggri 90 -time  14 .5 -m_growth addit
tdom
&dcptime time for with growth
prcpost
  body_force -force @
  report
  end
end
&dcptime time for reporting
$
$*********************************************      all done
$
&fini
