Skip to content
Open
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
65 changes: 65 additions & 0 deletions SplitLab1.9.0/Tools/getFileAndEQseconds.m
Original file line number Diff line number Diff line change
Expand Up @@ -9,6 +9,19 @@
% Windows user can try a renamer , for example 1-4aren (one-for all renamer)
% http://www.1-4a.com/rename/ perhaps this adress is still valid

%==========================================================================
% July-December 2021
% Yvonne Fröhlich (YF), Karlsruhe Institute of Technology (KIT),
% ORCID: 0000-0002-8566-0619
% Email: [email protected]
% GitHub: https://github.com/yvonnefroehlich/SplitLab-TemporalAlignment
% => modifications to fix extraction of start time by SplitLab
% (unconsidered milliseconds or seconds of start time)
% Publication: Fröhlich, Grund, Ritter (2022) Annals of Geophysics
% https://doi.org/10.4401/ag-8781
%
%==========================================================================

global config

if config.UseHeaderTimes || strcmp(config.FileNameConvention, '*.e; *.n; *.z')
Expand Down Expand Up @@ -46,6 +59,11 @@

else % USE FILENAME

% YF add warning 2021/Nov/28
msgbox( {'When extracting the \bfstart time\rm from the \bffile name\rm be sure that this time is \bf\itreally\rm the exact \bfstart time\rm of the \bftrace!'}, ...
'Check start time' ,'warn', ...
struct('WindowStyle',{'modal'},'Interpreter',{'tex'}) );

switch config.FileNameConvention
case 'RDSEED'
% '2012.169.20.32.00.0150.YV.EURO.00.BHE.M.SAC'
Expand Down Expand Up @@ -89,6 +107,11 @@
% miniSEED format (with commas)
% 'TA.ELFS..LHZ.R.2006,123,153619.SAC'

% YF add warning 2021/Nov/28
msgbox( 'Only correct for traces with start times of \bfzero milliseconds\rm!', ...
'Check milliseconds' ,'warn', ...
struct('WindowStyle',{'modal'},'Interpreter',{'tex'}) );

sizeF = size(F);
num_rows = sizeF(1);
splitArray = {};
Expand All @@ -113,6 +136,11 @@
% 'YV.RR39.00.BH1.M.2012.318.221725.SAC' or also
% 'YV.RUN01.00.BH1.M.2012.318.221725.SAC' ..

% YF add warning 2021/Nov/28
msgbox( 'Only correct for traces with start times of \bfzero milliseconds\rm!', ...
'Check milliseconds' ,'warn', ...
struct('WindowStyle',{'modal'},'Interpreter',{'tex'}) );

sizeF = size(F);
num_rows = sizeF(1);
splitArray = {};
Expand Down Expand Up @@ -142,6 +170,12 @@

case 'SEISAN' % should be soft-coded ..
% SEISAN format '2003-05-26-0947-20S.HOR___003_HORN__BHZ__SAC'

% YF add warning 2021/Nov/28
msgbox( 'Only correct for traces with start times of \bfzero milliseconds\rm!', ...
'Check milliseconds' ,'warn', ...
struct('WindowStyle',{'modal'},'Interpreter',{'tex'}) );

FIyyyy = str2num(F(:,1:4));%#ok
FImonth= str2num(F(:,6:7));%#ok
FIdd = str2num(F(:,9:10));%#ok
Expand All @@ -155,6 +189,12 @@

case 'YYYY.JJJ.hh.mm.ss.stn.sac.e'
% Format: 1999.136.15.25.00.ATD.sac.z

% YF add warning 2021/Nov/28
msgbox( 'Only correct for traces with start times of \bfzero milliseconds\rm!', ...
'Check milliseconds' ,'warn', ...
struct('WindowStyle',{'modal'},'Interpreter',{'tex'}) );

FIyyyy = str2num(F(:,1:4));%#ok
FIddd = str2num(F(:,6:8));%#ok
FIHH = str2num(F(:,10:11));%#ok
Expand All @@ -165,6 +205,12 @@

case 'YYYY.MM.DD.hh.mm.ss.stn.E.sac';
% Format: 2003.10.07-05.07.15.DALA.sac.z

% YF add warning 2021/Nov/28
msgbox( 'Only correct for traces with start times of \bfzero milliseconds\rm!', ...
'Check milliseconds' ,'warn', ...
struct('WindowStyle',{'modal'},'Interpreter',{'tex'}) );

FIyyyy = str2num(F(:,1:4));%#ok
FImonth= str2num(F(:,6:7));%#ok
FIdd = str2num(F(:,9:10));%#ok
Expand All @@ -178,6 +224,12 @@

case 'YYYY.MM.DD-hh.mm.ss.stn.sac.e';
% Format: 2003.10.07-05.07.15.DALA.sac.z

% YF add warning 2021/Nov/28
msgbox( 'Only correct for traces with start times of \bfzero milliseconds\rm!', ...
'Check milliseconds' ,'warn', ...
struct('WindowStyle',{'modal'},'Interpreter',{'tex'}) );

FIyyyy = str2num(F(:,1:4));%#ok
FImonth= str2num(F(:,6:7));%#ok
FIdd = str2num(F(:,9:10));%#ok
Expand All @@ -191,6 +243,12 @@

case 'YYYY_MM_DD_hhmm_stnn.sac.e';
% Format: 2005_03_02_1155_pptl.sac (LDG/CEA data)

% YF add warning 2021/Nov/28
msgbox( 'Only correct for traces with start times of \bfzero seconds\rm!', ...
'Check seconds' ,'warn', ...
struct('WindowStyle',{'modal'},'Interpreter',{'tex'}) );

FIyyyy = str2num(F(:,1:4));%#ok
FImonth= str2num(F(:,6:7));%#ok
FIdd = str2num(F(:,9:10));%#ok
Expand All @@ -203,6 +261,13 @@

case 'stn.YYMMDD.hhmmss.e'
% Format: fp2.030723.213056.X (BroadBand OBS data)

% YF add warning 2021/Nov/28
msgbox( {'Only correct for traces with start times of \bfzero milliseconds\rm!'; ...
'Only correct for \bfyear 2000 or later\rm!'}, ...
'Check milliseconds and year' ,'warn', ...
struct('WindowStyle',{'modal'},'Interpreter',{'tex'}) );

FIyyyy = 2000 + str2num(F(:,5:6));%#ok %only two-digit year identifier => add 2000, assuming no OBS data before 2000
FImonth= str2num(F(:,7:8));%#ok
FIdd = str2num(F(:,9:10));%#ok
Expand Down