Commit 8686e5ff162e2b07ab1cb8e356207c7c8ad04a3a

Authored by Paul Nicot
1 parent 862f313a
Exists in master

ajout de # de spot + flag dans les fichiers output

Showing 1 changed file with 24 additions and 44 deletions   Show diff stats
@@ -9,19 +9,18 @@ function tr_sort(num_spot,mission,debut,h1,fin,h2) @@ -9,19 +9,18 @@ function tr_sort(num_spot,mission,debut,h1,fin,h2)
9 % -» mission = diminutif de la mission (3 caractères en capitale) 9 % -» mission = diminutif de la mission (3 caractères en capitale)
10 % -» debut = année, mois, jour de début de dérive (ex: 20150315) 10 % -» debut = année, mois, jour de début de dérive (ex: 20150315)
11 % -» h1 = heure,min de début de dérive (hhmm) 11 % -» h1 = heure,min de début de dérive (hhmm)
12 -% -» fin = année, mois, jour de fin de dérive  
13 -% -» h2 = heure,min de fin de dérive (hhmm)  
14 -% (facultatif, si non précisé -» données compilées jusqu'à maintenant) 12 +% -» fin* = année, mois, jour de fin de dérive
  13 +% -» h2* = heure,min de fin de dérive (hhmm)
  14 +% (*facultatif, si non précisé -» données compilées jusqu'à maintenant)
15 % 15 %
16 % exemple : sort_spot([23 24],'BDC',20150612,1255,20150623,1835) 16 % exemple : sort_spot([23 24],'BDC',20150612,1255,20150623,1835)
17 % 17 %
18 -% Le fichier brute de données est situé sur Brandypot:  
19 -% /sas/usagers/share_lasso/data/MEOPAR/spots/spots_pos_clean.csv 18 +% Le fichier brute de données est situé sur Mingan:
  19 +% /share/archives/partage_lasso/spot/spots_pos_flag_clean.csv
20 % 20 %
21 -% Enregistrements sous forme de structure sur Brandypot:  
22 -% sas/usagers/share_lasso/data/MEOPAR/drifter 21 +% Enregistrements sous forme de structure sur Mingan:
  22 +% /share/archives/partage_lasso/spot/drifter
23 23
24 -%rootdir = '/sas/usagers/share_lasso/data/MEOPAR';  
25 rootdir = '/share/archives/partage_lasso/spot'; 24 rootdir = '/share/archives/partage_lasso/spot';
26 25
27 fid1 = fopen([ rootdir '/spots_pos_flag_clean.csv']); 26 fid1 = fopen([ rootdir '/spots_pos_flag_clean.csv']);
@@ -29,11 +28,8 @@ header = textscan(fid1,'%s;%s;%s;%s;%s;%s',1); @@ -29,11 +28,8 @@ header = textscan(fid1,'%s;%s;%s;%s;%s;%s',1);
29 spot_clean = textscan(fid1,'%f %f %f %f %s %s','Delimiter',';'); 28 spot_clean = textscan(fid1,'%f %f %f %f %s %s','Delimiter',';');
30 fclose(fid1); 29 fclose(fid1);
31 30
32 -spot = spot_clean{1,1};  
33 -lat = spot_clean{1,2}; lat(find(lat == -99999)) = NaN;  
34 -lon = spot_clean{1,3}; lon(find(lon == -99999)) = NaN;  
35 -nU = spot_clean{1,4}; % temps UNIX  
36 -nM = nU/86400 + datenum(1970,1,1); % temps matlab 31 +% temps matlab
  32 +nM = spot_clean{1,4}/86400 + datenum(1970,1,1);
37 33
38 % date de début de dérive (en heure UTC) 34 % date de début de dérive (en heure UTC)
39 dat1 = num2str(debut); H1 = num2str(h1,'%04i'); 35 dat1 = num2str(debut); H1 = num2str(h1,'%04i');
@@ -60,32 +56,18 @@ for i = 1:length(num_spot); @@ -60,32 +56,18 @@ for i = 1:length(num_spot);
60 56
61 filename = ['s' num2str(num_spot(i),'%03i') '_' mission yr ]; 57 filename = ['s' num2str(num_spot(i),'%03i') '_' mission yr ];
62 58
63 - I = find(spot(:) == num_spot(i));  
64 - tmp = [nM(I) lon(I) lat(I) nU(I)];  
65 -  
66 - K = find(tmp(:,1) > dat1 & tmp(:,1) < dat2);  
67 -  
68 - data = struct('timeM',{0},'lon',{''},'lat',{''},'timeU',{0},...  
69 - 'start',{''},'end',{''},'mission',{''},...  
70 - 'name',{''},'spot',{''});  
71 -  
72 - data.timeM = tmp(K,1);  
73 - data.lon = tmp(K,2);  
74 - data.lat = tmp(K,3);  
75 - data.timeU = tmp(K,4);  
76 -  
77 - data.start = [datestr(data.timeM(1)) ' UTC'];  
78 - if(~exist('fin','var'))  
79 - data.end = [''];  
80 - else  
81 - data.end = [datestr(data.timeM(end)) ' UTC'];  
82 - end  
83 -  
84 - data.spot = [ num_spot(i) ];  
85 - data.mission = [ mission ];  
86 - data.name = [ filename ];  
87 -  
88 - if(~exist([ rootdir '/drifter/' mission '/csv' ])); 59 + K = find(spot_clean{1,1} == num_spot(i) & nM> dat1 & nM < dat2);
  60 +
  61 + data = struct('spot',{''},'lon',{''},'lat',{''},'timeU',{0},...
  62 + 'timeM',{0},'flag',{''});
  63 + data.timeM = nM(K);
  64 + data.lon = spot_clean{1,2}(K);
  65 + data.lat = spot_clean{1,3}(K);
  66 + data.timeU = spot_clean{1,4}(K);
  67 + data.flag = spot_clean{1,6}(K);
  68 + data.spot = spot_clean{1,1}(K);
  69 +
  70 + if(~exist([ rootdir '/drifter/' mission ]));
89 mkdir([ rootdir '/drifter/' mission '/csv' ]); 71 mkdir([ rootdir '/drifter/' mission '/csv' ]);
90 mkdir([ rootdir '/drifter/' mission '/mat' ]); 72 mkdir([ rootdir '/drifter/' mission '/mat' ]);
91 end 73 end
@@ -94,9 +76,7 @@ for i = 1:length(num_spot); @@ -94,9 +76,7 @@ for i = 1:length(num_spot);
94 save(pathname,'data'); 76 save(pathname,'data');
95 77
96 csvname = [ rootdir '/drifter/' mission '/csv/' filename '.csv']; 78 csvname = [ rootdir '/drifter/' mission '/csv/' filename '.csv'];
97 - CSV = struct2cell(data);  
98 - CSV = [ CSV(1,1) CSV(2,1) CSV(3,1) CSV(4,1)];  
99 - CSV = cell2mat(CSV);  
100 - dlmwrite(csvname,CSV,'precision', 11);  
101 - 79 + CSV = struct2table(data);
  80 +
  81 + writetable(CSV,csvname);
102 end 82 end