$
$***************************************         basic stuff
$
&dimen -dimen feet kips
$
$***************************************         read model
$
inmodel
$
$***************************************         start current
$
&env -curr 10 90 -wind 100 90
&stat env
$
$***************************************         shallow
$
&instat -loc 0 0 0
&stat
&stat force
$
$***************************************         mid draft
$
&instat -loc 0 0 -50
&stat
&stat force
$
$***************************************         tide in
$
&env -curr 10 90 -wind 100 90 -tide 5
&instat -loc 0 0 -50
&stat
&stat force
$
$***************************************         tide out
$
&instat -loc 0 0 -50
&env -curr 10 90 -wind 100 90 -tide -5
&stat
&stat force
$
$***************************************         deep draft
$
&env -curr 10 90 -wind 100 90
&instat -loc 0 0 -101
&stat
&stat force
&fini