function save_image(numFig)
[fileName, dataPath]=uiputfile('*.jpg','Save AIRS image');
%saveas(numFig, [dataPath fileName], 'jpeg');
print(numFig, '-r100', '-djpeg100', [dataPath fileName])
