| 1 |
%author : Gael Forget |
| 2 |
%date : 07/25/2005 |
| 3 |
%object : display information from a doubtful profiler |
| 4 |
%remark : works with the outputs of profiles_prep_write_nc |
| 5 |
|
| 6 |
%parameters of the check : |
| 7 |
cur_pnum='1900278'; %identification number of the instrument |
| 8 |
date_ref=[2004 8 1 0 0 0]; %reference date to be plot as a black line |
| 9 |
caxis_anoms=[1 0.2]; %limits for the colors for T and S misfits |
| 10 |
depth_max=2500; %maximum depth ploted |
| 11 |
|
| 12 |
eval(['!grep ' cur_pnum ' /net/altix3700/raid4/gforget/ARGO/ifremer/ar_greylist.txt']); |
| 13 |
|
| 14 |
global dataIsLoaded; |
| 15 |
|
| 16 |
repr='/net/altix3700/raid4/gforget/ARGO/ifremer/ECCOformat/'; |
| 17 |
filename='ARGOifremerEDW'; |
| 18 |
%load the data: |
| 19 |
if isempty(dataIsLoaded) |
| 20 |
|
| 21 |
model_time0=jul_0h([2002 01 01 06 00 00]); |
| 22 |
|
| 23 |
eval(['ncload ' repr filename 'CHECK.nc prof_T prof_S;']); prof_Tequi=prof_T; prof_Sequi=prof_S; |
| 24 |
eval(['ncload ' repr filename '.nc']); |
| 25 |
eval(['ncload ' repr filename 'CHECK.nc prof_Tweight prof_Sweight prof_Ttest prof_Stest;']); |
| 26 |
|
| 27 |
prof_descr(prof_descr==32)=0; prof_descr=char(prof_descr); |
| 28 |
bb=prof_descr'; cc=size(bb); |
| 29 |
prof_descr2=reshape(bb,1,cc(1)*cc(2)); |
| 30 |
|
| 31 |
prof_date00=prof_YYYYMMDD; |
| 32 |
prof_date00=prof_date00-1e4*floor(prof_date00*1e-4); prof_date=[1e-4*(prof_YYYYMMDD-prof_date00) floor(prof_date00*1e-2)]; |
| 33 |
prof_date00=prof_date00-1e2*floor(prof_date00*1e-2); prof_date=[prof_date prof_date00]; |
| 34 |
prof_date00=prof_HHMMSS; |
| 35 |
prof_date00=prof_date00-1e4*floor(prof_date00*1e-4); prof_date=[prof_date 1e-4*(prof_HHMMSS-prof_date00) floor(prof_date00*1e-2)]; |
| 36 |
prof_date00=prof_date00-1e2*floor(prof_date00*1e-2); prof_date=[prof_date prof_date00]; |
| 37 |
prof_date=(jul_0h(prof_date)-model_time0); |
| 38 |
|
| 39 |
dataIsLoaded=1; |
| 40 |
end |
| 41 |
|
| 42 |
|
| 43 |
dd=horzcat(cur_pnum,char(zeros(1,size(prof_descr,2)-length(cur_pnum)))); |
| 44 |
ee=strfind(prof_descr2,dd); ee=(ee-1)/30+1; |
| 45 |
list_prof=ee(find(ee==round(ee))); |
| 46 |
[tmp3,tmp4]=sort(prof_date(list_prof)); list_prof=list_prof(tmp4); |
| 47 |
|
| 48 |
%preparation of the plot : |
| 49 |
xplot=prof_date(list_prof)*ones(1,length(depth)); yplot=-ones(length(list_prof),1)*depth'; |
| 50 |
tmp_axis=[min(xplot(:,1)) max(xplot(:,1)) -depth_max 0]; |
| 51 |
date_ref=jul_0h(date_ref)-model_time0; |
| 52 |
|
| 53 |
|
| 54 |
%the plot itself : |
| 55 |
figure; set(gcf,'Units','normalized'); set(gcf,'Position',[0.1 0.3 0.8 0.6]); |
| 56 |
colormap(jet(16)); suptitle(['profiler nb ' cur_pnum]); |
| 57 |
|
| 58 |
zplot=prof_T(list_prof,:); zplot(zplot<-1000)=NaN; |
| 59 |
subplot(3,2,1); pcolor(xplot,yplot,zplot); colorbar; shading flat; |
| 60 |
axis(tmp_axis);title('observed temperature'); |
| 61 |
hold on;plot([date_ref date_ref],[-depth_max 0],'k','LineWidth',2); |
| 62 |
ylabel('depth'); |
| 63 |
zplot=zplot-prof_Tequi(list_prof,:); zplot(prof_Tequi(list_prof,:)<-1000)=NaN; |
| 64 |
subplot(3,2,3); pcolor(xplot,yplot,zplot); caxis([-1 1]*caxis_anoms(1)); colorbar; shading flat; |
| 65 |
axis(tmp_axis); title('observed temperature anomaly'); |
| 66 |
hold on;plot([date_ref date_ref],[-depth_max 0],'k','LineWidth',2); |
| 67 |
ylabel('depth'); |
| 68 |
zplot=prof_Ttest(list_prof,:); zplot(zplot<-1000)=NaN; |
| 69 |
subplot(3,2,5); pcolor(xplot,yplot,zplot); caxis([0 8]); colorbar; shading flat; |
| 70 |
axis(tmp_axis);title('data rejected (values>0)'); |
| 71 |
hold on;plot([date_ref date_ref],[-depth_max 0],'k','LineWidth',2); |
| 72 |
xlabel('day'); ylabel('depth'); |
| 73 |
|
| 74 |
zplot=prof_S(list_prof,:); zplot(zplot<-1000)=NaN; |
| 75 |
subplot(3,2,2); pcolor(xplot,yplot,zplot); colorbar; shading flat; |
| 76 |
axis(tmp_axis);title('observed salinity'); |
| 77 |
hold on;plot([date_ref date_ref],[-depth_max 0],'k','LineWidth',2); |
| 78 |
ylabel('depth'); |
| 79 |
zplot=zplot-prof_Sequi(list_prof,:); zplot(prof_Sequi(list_prof,:)<-1000)=NaN; |
| 80 |
subplot(3,2,4); pcolor(xplot,yplot,zplot); caxis([-1 1]*caxis_anoms(2)); colorbar; shading flat; |
| 81 |
axis(tmp_axis); title('observed salinity anomaly'); |
| 82 |
hold on;plot([date_ref date_ref],[-depth_max 0],'k','LineWidth',2); |
| 83 |
ylabel('depth'); |
| 84 |
zplot=prof_Stest(list_prof,:); zplot(zplot<-1000)=NaN; |
| 85 |
subplot(3,2,6); pcolor(xplot,yplot,zplot); caxis([0 7]); colorbar; shading flat; |
| 86 |
axis(tmp_axis);title('data rejected (values>0)'); |
| 87 |
hold on;plot([date_ref date_ref],[-depth_max 0],'k','LineWidth',2); |
| 88 |
xlabel('day'); ylabel('depth'); |
| 89 |
|
| 90 |
|
Parent Directory
| 
Revision Log
| 
Revision Graph