$
$*********************************************      basics
$
&device   -oecho n
&title time domain test of wave grids
&dimen -dimen feet kips
$
$*********************************************      read model
$
inmodel
&env -wind 100  -w_profile power 1/1000.
&set variation = No Profile
&loop l 1 2
   &loop  k 1 6
      &set depth  = &number(real 1-100*(%k-1) )
      &set length = &number(real 400+(%depth) )
      &instate -loc 0 0 %depth
      &type Wind Profile = %variation - Tube Length = %length
      &stat force
   &endloop
   &env -wind 100  -w_profile power 1/7
   &set variation = 1/7 Power
&endloop
$
$*********************************************      all done
$
&fini
