function siltprofiler_salinity_plot(A,i0,i1,C)
%%
OPT.export = 0;

 FIG = figure;setfig2screensize

 % A.depth 
 
     % YY  = smooth(A.salinity(i0:i1),0.8,'rloess');
     %YY2 = smooth(A.salinity(i0:i1),0.1);
     % YY3 = smooth(A.salinity(i0:i1),0.9);
      scatter(A.salinity(i0:i1),A.depth(i0:i1),'xg')
     %hold on
      %plot(YY,A.depth(i0:i1),'r','LineWidth',2)
      %plot(YY2,A.depth(i0:i1),'c','LineWidth',2)
      %plot(YY3,A.depth(i0:i1),'b','LineWidth',2)
      %legend('Original Data','Smoothed Data Using ''rloess''',2)

      % lay-out
      grid on
      xlabel (['Salinity [PSU]'])
      ylabel ('Depth [m]')
      grid on
      title({A.name,A.datestr})
      
      txt= [num2str(i0),' - ',num2str(i1),' '];
      text(1,0,txt,'units','normalized','horizontalalignment','right','verticalalignment','bottom')

        
      if OPT.export
      print2screensize([filename(A.name),'_','salinity.png'])
      end
   
   hold off
   
   
try
   close(FIG)
end





