%p = ['/home/disk/orca3/cloth/oklahoma/cloud2000.IOP.dbz'a(w,21:25) rtime a(w,28:31) '.jpg'];

%print ('-djpeg90',p) ;

output_dir = '/h/usr7/robin/Maeri/29_EXP062001/Ceil/Pavlos/CEILOMETER_RESULTS/datafiles/';

outputfilename = [ num2str(2001),ain2(w,3:6)];
mat_name       = [output_dir outputfilename];
asc_name       = [output_dir outputfilename '.dat'];

figure(2)
set(gcf,'DefaultAxesFonts',16)
imagesc(new_time,Range(3:100),bi(3:100,:))
 set(gca,'ydir','normal');
ylabel('Height (km)');
xlabel('Time (UTC)');
xlim([0 24]);
title(['CEILOMETER : 'file(27:34)]);
colorbar;

p = ['/h/usr7/robin/Maeri/29_EXP062001/Ceil/Pavlos/CEILOMETER_RESULTS/datafiles/explorer.ceilo_bscatter.rsmas.'file(27:34) '.ps'];print ('-dpsc2',p) ;

close(figure(2));


