Skip to content

GitLab

Commit 7e900e94 authored by Jürgen Matzka's avatar Jürgen Matzka
Browse files

updated porgrams incl wng2014.blv to wng207.blv

parent 6b25b023
Expand all Hide whitespace changes
Inline Side-by-side
IAGA2002_Kyoto_transfer_Katrin.m
View file @ 7e900e94
......@@ -21,8 +21,8 @@
% attachment: same file
clear all
startdate = jd2000(2018, 05, 17); % HERE START DATE FOR non-online
enddate = jd2000(2018, 05, 17); % HERE END DATE FOR non-online
startdate = jd2000(2018, 05, 23); % HERE START DATE FOR non-online
enddate = jd2000(2018, 05, 23); % HERE END DATE FOR non-online
station = 'VNA1';
%station = 'WNG1';
......
cdf_supplementing.m
View file @ 7e900e94
......@@ -51,8 +51,8 @@ supplementer = 'WNG2g'; % VON HIER DATEN HOLEN
% reading of SUP files!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! COULD BE
% VERY EASY
start_supp = jd2000(2014, 10, 20, 11 + 55 / 60) %Stunde Minute/60 INKLUSIVE
end___supp = jd2000(2014, 10, 20, 12 + 20 / 60) %Stunde Minute/60 EXKLUSIVE
start_supp = jd2000(2015, 07, 20, 06 + 40 / 60) %Stunde Minute/60 INKLUSIVE
end___supp = jd2000(2015, 07, 20, 07 + 10 / 60) %Stunde Minute/60 EXKLUSIVE
% chooses data investigation interval to determine linear relationship
% or user select a start and end data
......
cdf_supplementing_from_SUP_GFZ.m
View file @ 7e900e94
......@@ -47,12 +47,12 @@ supplementer1 = 'file'; % supplementer ist stationsname z. Bsp. 'THL4d'
% der SUP-Datei geholt., z. Bsp. 'NGK6g' aus
% 'definitive_NGK6g'
start_day = jd2000(2014, 01, 01);
end_day = jd2000(2017, 12, 31);
start_day = jd2000(2015, 07, 19);
end_day = jd2000(2015, 07, 21);
plotfigures = 0; % 1 = 4 Bilder pro Tag, nur bei max 3 Tagen? setzen.
plotfigures = 0; % 1 = 4 Bilder pro Interval, nur bei max 3 Tagen? setzen.
SUP_file = 'O:\jmat\cfg\SUP_WNG0g.2014.txt';
SUP_file = ['O:\jmat\cfg\SUP_' station '.2014.txt';]
......
def2iaf.m
View file @ 7e900e94
......@@ -29,7 +29,7 @@ station = 'WNG1';
%calculate IAF files for timeinterval:
timeinterval = [2014; 9; 2]; %start year, start month, number of months
timeinterval = [2017; 6; 1]; %start year, start month, number of months
% works for 2011 data onwards--
......@@ -59,6 +59,7 @@ end
if strcmp(station(1:3), 'WNG') % Hauptsystem ist WNG1, use6 ist WNG0
use6 = [2014, 1, 17, 0, 2014, 1, 24, 0
2014, 5, 15, 0, 2014, 5, 21, 0
2018, 3, 16, 0 2018, 4, 5, 0
3000, 1, 1, 0, 3000, 1, 2, 0];%
end
if strcmp(station(1:3), 'NGK') % Hauptsystem in NGK0, use6 ist NGK1
......
plot_baseline_universal.m
View file @ 7e900e94
This diff is collapsed.
plot_baseline_universal_adopted.m
View file @ 7e900e94
......@@ -138,10 +138,13 @@ if strcmp(station, 'WNG0g')
%
%
H0alines = {
5113 18184.00 'p' ''
5114 18184.00 'p' '2014-01-01'
5435.75 18184.00 'p' ''
5435.75 18093.00 'p' 'datum_Sensor_ausgetauscht'
5113 18184.00 'p' ''
5114 18184.00 'p' '2014-01-01'
5435.75 18184.00 'p' ''
5435.75 18093.00 'p' 'datum_Sensor_ausgetauscht'
6575 18093.00 'p' '2018-01-01'
6600 18091.00 'p' '2018-01-26'
6665 18092.90 'p' '2018-03-17'
}; % REMEMBER for QD: default is the first day of the next month!!!
D0alines = {
5113 0.63400 'p' ''
......@@ -154,6 +157,10 @@ if strcmp(station, 'WNG0g')
5114 45984.50 'p' '2014-01-01'
5435.75 45984.50 'p' 'datum_Sensor_ausgetauscht'
5435.75 46142.00 'p' ''
6210 46142.00 'p' '2017-01-01'
6574 46142.00 'p' '2017-12-31'
6634 46143.00 'p' '2018-03-01'
6665 46144.00 'p' '2018-04-01'
}; % REMEMBER for QD: default is the first day of the next month!!!
end
......@@ -443,16 +450,20 @@ if strcmp(station, 'NGK1g')
H0alines = {
5113 18864.00 'p' ''
5114 18864.00 'p' '2014-01-01'
5479 18864.20 'p' ''
5479 18864.20 'p' '2015-01-01'
5844 18864.20 'p' '2016-01-01'
}; % REMEMBER for QD: default is the first day of the next month!!!
D0alines = {
5113 2.22800 'p' ''
5114 2.22800 'p' '2014-01-01'
5479 2.22800 'p' ''
5113 2.22400 'p' ''
5114 2.22400 'p' '2014-01-01'
5479 2.22400 'p' '2015,01,01'
5844 2.22000 'p' '2016,01,01'
}; % REMEMBER for QD: default is the first day of the next month!!!
Z0alines = {
5113 45419.00 'p' ''
5114 45419.00 'p' '2014-01-01'
5114 45419.00 'p' '2014-01-01'
5479 45418.50 'p' '2015-01-01'
5844 45418.50 'p' '2016-01-01'
}; % REMEMBER for QD: default is the first day of the next month!!!
end
......@@ -481,18 +492,24 @@ if strcmp(station, 'SMA0g')
%
H0alines = {
3653 27230.00 'p' '2010-01-01'
5114 27552.00 'p' '2014-01-01'
6680 27552.00 'p' '2018-04-16'
5114 27559.00 'p' '2014-01-01'
6680 27559.00 'p' '2018-04-16'
6704.375 27559.00 'p' '2018-05-10 Stromunterbrechung, neue Basis'
6704.375 27559.00 'p' '2018-05-10 Stromunterbrechung, neue Basis'
}; % REMEMBER for QD: default is the first day of the next month!!!
D0alines = {
3653 -5.305 'p' '2010-01-01'
5114 -4.99 'p' '2014-01-01'
6680 -4.99 'p' '2018-04-16'
3653 -5.3050 'p' '2010-01-01'
5114 -5.0033 'p' '2014-01-01'
6680 -5.0033 'p' '2018-04-16'
6704.375 -5.0033 'p' '2018-05-10 Stromunterbrechung, neue Basis'
6704.375 -4.9967 'p' '2018-05-10 Stromunterbrechung, neue Basis'
}; % REMEMBER for QD: default is the first day of the next month!!!
Z0alines = {
3653 36075.00 'p' '2010-01-01'
5114 35780.00 'p' '2014-01-01'
6680 35780.00 'p' '2018-04-16'
5114 35788.10 'p' '2014-01-01'
6680 35788.10 'p' '2018-04-16'
6704.375 35788.10 'p' '2018-05-10 Stromunterbrechung, neue Basis'
6704.375 35787.70 'p' '2018-05-10 Stromunterbrechung, neue Basis'
}; % REMEMBER for QD: default is the first day of the next month!!!
end
......@@ -761,12 +778,24 @@ if strcmp(station, 'TTB1l')
}; % REMEMBER for QD: default is the first day of the next month!!!
end % if TTB
if strcmp(station, 'VSS0g')
%
% NOTE:
%
%
H0alines = {
5844 18420.00 'p' 'vorläufig'
6131 18420.00 'p' '2016-10-14'
}; % REMEMBER for QD: default is the first day of the next month!!!
D0alines = {
5844 -22.4205 'p' 'vorläufig'
6131 -22.4205 'p' '2016-10-14'
}; % REMEMBER for QD: default is the first day of the next month!!!
Z0alines = {
5844 -14341.14 'p' 'vorläufig'
6131 -14341.14 'p' '2016-10-14'
}; % REMEMBER for QD: default is the first day of the next month!!!
end % if VSS
if strcmp(station, 'TDC1d')
%
......
read_temperature_10days.m
View file @ 7e900e94
......@@ -9,11 +9,11 @@ close all
wievieleTage = 20;
%station_array = ['WNG1'; 'WNG0'; 'NGK1'; 'NGK0'; 'VNA1'; 'TDC1'; 'BFO1';'SMA0'];
station_array = ['WNG1'; 'WNG0'; 'NGK1'; 'NGK0'; 'VNA1'; 'TDC1'; 'BFO1';'SMA0'];
%station_array = ['WNG1'; 'WNG0';];
%station_array = ['NGK6'; 'TTB0';]
%station_array = ['TDC1';]
station_array = ['SMA0';]
%station_array = ['SMA0';]
[year1, month1, day1] = datevec(date)
enddate = jd2000(year1, month1, day1);
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment