function tp(t,p,gnome)
%
%  This function plots out the raw T and P of a float.
%
% ----------------------------------------------------------------
%  Written by Mike Sparrow, while at
%             AINCO - Interocean, Madrid, Spain, in February 1997
% ----------------------------------------------------------------
%
global tjump float temp pres start finish lowpassdone ltemp lpres
if (gnome == 'big'),
 figure('units','cent','Position',[1 1 14 12],'Name','temperature');
 x = (1:length(t));
 days = x/tjump;
 subplot(2,1,1), plot (days,t,'r');
 xlabel('Time/float days');
else,
 global mapfigure
axes('units','cent',...
     'position',[3,4.1,15,2.5],...
     'Box','off');
 x = (1:length(t));
 days = x/tjump;
 plot(days,t,'w');
 grid on;
end
%
ylabel('T/degC');
%
if (gnome =='big'),
 title(str2mat(['Float ' float ', launch day ' start]));
end
%
if (gnome =='big'),
 subplot(2,1,2),plot(days,p,'c');
set (gca,'ydir','reverse');
xlabel('Time/float days');
ylabel('P/dbar');
else,
 global mapfigure
 grid on;
axes('units','cent',...
     'position',[3,0.9,15,2.5]);
plot(days,p,'w');
set (gca,'ydir','reverse');
xlabel('Time/float days');
ylabel('P/dbar');
grid on;
zoom on;
end

