rajout du cas ou une seule donnee externe est disponible: correction constante...

rajout du cas ou une seule donnee externe est disponible: correction constante a (EXT-TSG) et erreur mise a -1

tsg_util/corTsgLinear.m

@@ -157,6 +157,27 @@ if dateMax > dateMin
         end
       end
  
+      % Case with 1 sample only: the TSG time series is shifted by the 
+      % TSG/SAMPLE difference and the error is put to -1
+      % --------------------------------------------------------------------------
+    elseif ~isempty(ind2) && length(ind2) == 1
+        
+      % The correction is applied to the TSG between dateMin and dateMax 
+      % only on measurements with keptCode Quality Codes
+      % ------------------------------------------------------------------------
+       dtTsgQCkept=[];
+       for icode = 1 : length( keptCode )
+        dtTsg = find( tsg.DAYD    >= dateMin  & tsg.DAYD <= dateMax &...
+                      tsg.([PARA{1} '_QC']) == keptCode( icode ));
+
+        if ~isempty( dtTsg )
+          dtTsgQCkept=[dtTsgQCkept; dtTsg];
+          tsg.([PARA{1} '_ADJUSTED'])(dtTsg) = tsg.(PARA{2})(dtTsg) + tsg.EXT_DIF(ind(ind2));
+          tsg.([PARA{1} '_ADJUSTED_ERROR'])(dtTsg) = -1;
+          tsg.([PARA{1} '_ADJUSTED_QC'])(dtTsg) = tsg.([PARA{1} '_QC'])(dtTsg);
+        end
+       end
+
     end
 
     % The error minimum cannot be lower than the sensor accuracy