; Sample IDL program to read in SBUV data ; X1=fltarr(12) & MR=fltarr(13) P=[0.5,0.7,1.0,1.5,2.0,3.0,4.0,5.0,7.0,10.0,15.0,20.0,30.0] file='/misc/mhdat8/oz79/oz790101.n7s' openr, 5, file print, ' Reading data from ', file n=0 FOR j=0,100 DO BEGIN readf,5, IyrDay,Isec,Alat,Alon,ZA,Iflag,Ref,Toz, $ format='(2I6,F7.2,F7.1,F6.2,I5,F5.2,F6.1)' readf,5, X1, format='(6F7.3)' readf,5, MR, format='(9F5.2)' n=n+1 print, n,IyrDay,Isec,Alat,Alon,Toz print, ' Enter p to plot this scan' print, ' Enter q to quit reading data' whatnow='c' read, whatnow if ( whatnow EQ 'q' or whatnow EQ 'Q' ) then goto, jump1 if ( whatnow EQ 'p' or whatnow EQ 'P' ) then begin plot, /YLOG, MR, P, TITLE='SBUV data',XTITLE='Ozone Mixing Ratio (ppmv)',$ XRANGE=[0, 10], YTITLE='Pressure (mb)', YRANGE=[100, 0.1] XYOUTS, .69, 0.88, 'lat =', /normal, SIZE=0.7, alignment=0.5 XYOUTS, .75, 0.88, alat, /normal, SIZE=0.7, alignment=0.5 XYOUTS, .69, 0.83, 'lon =', /normal, SIZE=0.7, alignment=0.5 XYOUTS, .75, 0.83, alon, /normal, SIZE=0.7, alignment=0.5 endif ENDFOR ; jump1:close, 5 ; set_plot, 'x' ;set_plot, 'win' terminate: z=3 end