% plot_prof_7_12.m; Ledwell; 9/9/05

figure(3); clf; fig_portrait
[h,a]=plot_profile(7);
A=a/100000;

figure(3)
subplot(3,2,1)
plot(A,h,'o',A,h,'--')
axis([0 3 -50 50])
text(1.5,-40,'Tow 7')
ylabel('Height (m)')

[h,a]=plot_profile(8);
A=a/100000;
figure(3)
subplot(3,2,2)
plot(A,h,'o',A,h,'--')
axis([0 3 -50 50])
text(1.5,-40,'Tow 8')

[h,a]=plot_profile(9);
A=a/100000;
figure(3)
subplot(3,2,3)
plot(A,h,'o',A,h,'--')
axis([0 3 -50 50])
text(1.5,-40,'Tow 9')
text(0.5,40,'Towing Higher')
xlabel(['GC Area x 1E-05'])



