%
global float number timer temp pres lat lon u v wwww
global dataread lowpassdone
global DATAPATH COASTPATH BATHYPATH SOFTPATH
global initharpro
clear global;
clear;
%
harpro;
artpath = which('arpro');
SOFTPATH = artpath(1:length(artpath)-7);
fid1 = fopen([ SOFTPATH 'datapath.dat']);
DATAPATH = deblank(fgetl(fid1));
COASTPATH = deblank(fgetl(fid1));
BATHYPATH = deblank(fgetl(fid1));
eval(['cd ' DATAPATH])
fclose(fid1);
initharpro = 0;
