load_constants
for i=1:12
  icq4filename=[cal.months{i}, '/F6.HOT.', cal.months{i}, '_nub.icq4'];
  icq5=icq42icq5(icq4filename);
  
  icq5.day=1;
  icq5.month=i;
  icq5.year=2001;
  icq5.step_seconds=60;
  
  % Write icq5
  icq5filename=icq4filename;
  icq5filename(end)='5';
  disp(['Writing ' icq5filename '...'])
  err=write_icq5(icq5,icq5filename);
end