con=
conexiCONtooltips12
In[]:=
cuencas=VertexList[Flatten[con]]
LayeredGraphPlot[con[[278]],VertexLabels->All](*showsgraphofinterconnectedwatershedswithnamesofwatershedsintooltip*)
Out[]=