detection/rsac2time.m

   1 function [t,varargout]=rsac2time(name)
   2 % convert rsac MODIS/VIIRS file names to time value
   3 str=regexp(name,'\.[0-9]+\.','match');
   4 if isempty(str),
   5     error('NASA time string not found')
   6 end
   7 % detect level data, file name is not *.mat
   8 if name(end) ~= 't'
   9     %name
  10     s1 = regexp(name,'\.[A-0]+\.','match');
  11     s1 = s1{1};
  12     s1 = s1(3:end-1);
  13     s2 = regexp(name,'\.[0-9]+\.','match');
  14     s2 = s2{1};
  15     s2 = [s2(2:end-1),'00'];
  16     str = [s1,s2];
  17 %read *.tif.mat file
  18 else
  19     str=regexp(name,'\.[0-9]+\.','match');
  20     str=str{1};
  21     str=['20',str(2:end-1)];  %yyyydddHHMMSSS
  22 end
  23
  24 t=julian2time(str);
  25 if nargout>1,
  26     varargout{1}=str;
  27 end
  28 end
  29