disp('***********************START**************************************** ')
disp(['OPEN DATA FILES FOR DAY ',num2str(ddd),' and HOUR ',num2str(hhh)]),
%      opencamp1;     %1    Channel 1
%opencamp1r;     %1    Channel 1          13 fields
rain=0;opencampn;     %1    Channel 1            12 fields  ***Use for files Before P?_00921 
clear CO2 H2O KGillAzu KGillBot KGillTop Tdry Twet lyman tcamp Tref
%      clear accx accy accz ratex ratey ratez tmotion
opengyro;      %6    Channel 3
openmotion;    %2    Channel 5
openship;      %7    Channel 6
openradiom;    %8    Channel 2
opensons;      %3    Channel 0
%      clear Tsonic su sv sw tsons
%      clear heading tgyro
openophir;     %4    Channel 4
fastexrate;
%humflux;
clear Oabsorb Oclear tophir 
clear specsize     
%      opengps;       %5    Channel 7
%      clear gpshead gpshour gpslat gpslon gpsmin gpssec gpsspeed
clear ship_Tair ship_Tsea ship_cog ship_gyro ship_hum ship_sog
clear LongIR1 LongIR2 RHv Solar1 Solar2 Tairv Tsea_snake
disp(['         COMPLETED DAY ',dfx1,'  HOUR ',dfx2]),
disp('***********************END**************************************** ')
