$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
$  This set of files show how to analyse a water entering jacket leg
$  when the jacket is floating.  The intent is to show a damaged leg
$  situation or intentional flooding during upending.
$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
$  Standard set of opening commands
$
&title test of damaged leg during flotation
&dimen -dimen meters mtons
&device -oecho no -g_default device
$
$   Read in the model
$
inmodel
$
$  Edit the model:
$  The model is read in the with the coordinate system conventional
$  for an inplace analysis.  The part coordinate system is redefined
$  such that the origin is at the top of the structure with X pointing down
$  along the floating face.  Roll (rotation around the x axis) is
$  defined as rotation around the long axis and pitch (rotation around
$  the y axis) is defined rotation around the bottom leg
$  floating near the water surface.
$
medit
   &describe body jacket
   &describe part jacket -move *j8001 *j4001 *j8003 *j4003
end_medit
$
$  Report properties of the jacket leg compartments.
$
&summ
    comp tubtank
end
&status compart -hard
$
$  Place the jacket so that the listed nodes are at the waterline,
$  then see if this is a stable position.
$
&instate -guess *j4003 *j8003 *j8001
&equi
$
$   Report to the log file the body position and the global position
$   of the ends of the legs on the floating face.  This is one way
$   of checking the equilibrium position found.
$   tops of legs start with *J8
$   bottoms of legs start with *J4
$
&type *j8003 &point(coord *j8003 -body) body
&type *j8003 &point(coord *j8003 -global) global
&type
&type *j4003 &point(coord *j4003 -body) body
&type *j4003 &point(coord *j4003 -global) global
&type
&type *j8001 &point(coord *j8001 -body) body
&type *j8001 &point(coord *j8001 -global) global
&type
&type *j4001 &point(coord *j4001 -body) body
&type *j4001 &point(coord *j4001 -global) global
$
$   Report the status of the vent and flooding holes.
$
&status p_hole
&status v_hole
$
$   Perturb the jacket so that the movie shows movement.
$
&instate -move 0 0 0 -2 0
$
$  checking to see which ends of the leg was shoved down.
$
&type *j8003 &point(coord *j8003 -global)
&type *j4003 &point(coord *j4003 -global)
$
$   Define the process length and open the flood valve
$
&env null -time 100  1
&compartment -correct three -percent three 0 -dynam three
$
$   Start the time domain
$
tdom
$
$   Post process
$
prcpost
$
$   Report on the flooding of the compartment legs
$
   tank_bal
    vlist
   plot 1 2 9 16 -rax 5 12 19 -no
   end
$
$   Report on the jacket part system WRT the global coordinate system
$
   traj
      vlist
      plot 1 5 6  -rax 8 10 -no
      plot 1 7 -rax 9  -no
      report
   end
end
$
$   Make a movie
$
&picture bow -render gl -movie mpg 1 1
&fini
