$
$*********************************************      basics
$
&device  -oecho n
&title time domain test of wave grids
&set depth  = 100
&set height = 20
&set period = 14
&set r_tube = .true.
&set r_tube = .false.
$
$*********************************************      read model
$
inmodel
&data curve c_profile loopcur     0.0  6.10 \
                                300.0  6.10 \
                                500.0  5.30 \
                               1000.0  2.00 \
                               2000.0  0.50 \
                               6000.0  0.50
&data curve c_profile const 0 10
&instate -loc 0 0 -%depth%
$&weight -compute  23 34 34 6.4
&status force
&summ
    load
end
medit
   ~pins  fix
   ~fix2  fix y x
   connec pin1 ~pins *1
   connec pin2 ~fix2 *2
end
&title regular sea
&env -sea regular 90 %height% %period% -time  %period% .5
&status env
tdom
prcpost
  body_force -force @
  report
  end
end
&title regular sea + current
&env -sea regular 90 %height% %period% -time  %period% .5 \
     -cur 10 90
&status force
&status env
tdom
prcpost
  body_force -force @
  report
  end
end
&title regular sea + current + wind
&env -sea regular 90 %height% %period% -time  %period% .5 \
     -cur const 90 \
     -wind 100 90
&status force
&status env
tdom
prcpost
  body_force -force @
  report
  end
end
&title regular sea +  wind + loop
&env -sea regular 90 %height% %period% -time  %period% .5 \
     -cur const 90 loopcur 0 \
     -wind 100 90
&status force
&status env
tdom
prcpost
  body_force -force @
  report
  end
end
$
$*********************************************      all done
$
&fini
