function plot_Validation( hMainFig, hPlotAxes, nPlot, PARA ) % Get tsg application data % ------------------------ tsg = getappdata( hMainFig, 'tsg_data'); switch nPlot % --------------------------------------------------------------------- case 1 erase_Line( hPlotAxes, 1 ); if ~isempty( tsg.(PARA) ) plot_Tsg( hMainFig, hPlotAxes, 1, tsg.DAYD, tsg.(PARA), tsg.([PARA '_QC']),... PARA,'','none','*',2); end % Plot PARA External data (WS, CTD, etc) % there are only _EXT data for SSPS and SSTP variable % --------------------------------------------------- if strcmp( PARA, 'SSJT' ) PARA = 'SSTP'; end if ~isempty( tsg.([PARA '_EXT']) ) % Plot circle for WS data % ----------------------- ind = 1: length( tsg.([PARA '_EXT_TYPE'])); indWS = strmatch( 'WS', tsg.([PARA '_EXT_TYPE']), 'exact'); if ~isempty(ind) plot_Tsg( hMainFig, hPlotAxes, 1,... tsg.DAYD_EXT(indWS), tsg.([PARA '_EXT'])(indWS),... tsg.([PARA '_EXT_QC'])(indWS), ... [PARA '_EXT_1'],'','none','square',5); end % Plot squares for CTD, ARGO, etc. data % ------------------------------------- indEXT = setxor(ind, indWS); if ~isempty(indEXT) plot_Tsg( hMainFig, hPlotAxes, 1, tsg.DAYD_EXT(indEXT),... tsg.([PARA '_EXT'])(indEXT),... tsg.([PARA '_EXT_QC'])(indEXT),... [PARA '_EXT_2'],'','none','o',5); end end % --------------------------------------------------------------------- case 2 erase_Line( hPlotAxes, 2 ); if ~isempty( tsg.(PARA) ) plot_Tsg( hMainFig, hPlotAxes, 2, tsg.DAYD, tsg.(PARA), [],... PARA,'k','none','*',2); end % --------------------------------------------------------------------- case 3 erase_Line( hPlotAxes, 3 ); if ~isempty( tsg.(PARA) ) plot_Tsg( hMainFig, hPlotAxes, 3, tsg.DAYD, tsg.(PARA),[],... PARA,'k','none','*',2); end end axesCommonProp( hPlotAxes ); end