% ndbc_write -- write required data to ndbc-input file for the NDBC encoder kit
% 
% Last modified:  Time-stamp: <2004-10-12 08:31:39 haines>
% 

% 
% Required fields
% 

fprintf(fid, 'STATION=%s\n', info.station);
fprintf(fid, 'ROUTING_ID=%s\n', info.routing_id);
sample_time_str = sprintf('%04d/%02d/%02d %02d:%02d', Y, M, D, H, Mi);
fprintf(fid, 'DATE=%s\n', sample_time_str);
fprintf(fid, 'WSUNITS=%s\n', info.wsunits);
fprintf(fid, 'MSGFMT=%s\n', info.msgfmt);
fprintf(fid, 'LAT=%s\n', num2str(info.location_lat));
fprintf(fid, 'LON=%s\n', num2str(info.location_lon));

% Data fields
if ~isnan(awspd(j))
  fprintf(fid, 'WSPD=%s\n', num2str(awspd(j)));
end

if ~isnan(awdir(j))
  fprintf(fid, 'WDIR=%s\n', num2str(awdir(j)));
end

if ~isnan(wgust(j))
  fprintf(fid, 'GUST=%s\n', num2str(wgust(j)));
end

if ~isnan(atemp(j))
  fprintf(fid, 'ATMP=%s\n', num2str(atemp(j)));
end

if ~isnan(adewp(j))
  % fprintf(fid, 'RH=%s\n', num2str(rh(j)));
  fprintf(fid, 'DEWPT=%s\n', num2str(adewp(j)));
end

if ~isnan(abaro(j))
  % fprintf(fid, 'SBAR=%s\n', num2str(abaro(j)));
  fprintf(fid, 'BARO=%s\n', num2str(abaro_sealevel(j)));
end

%