&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.
inmodel
&data env
    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
   profile const 0 10
end
&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
  tot_cforce
  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
  tot_cforce
  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
  tot_cforce
  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
  tot_cforce
  report
  end
end
&fini