restore,'c:\!work\sswdb\CS3D\385_all_n2_24\sp_tb_RL_cb24bih_385_all.sav' 
restore,'c:\!work\sswdb\CS3D\freq_24.sav'
restore,'c:\!work\sswdb\CS3D\385_all_n2_24\effh_cube_RL.sav'

x=142
y=270
;b3  8:11

tbr=reform(sp_tb_r(x,y,*))
tbl=reform(sp_tb_l(x,y,*))
effhl=reform(effh_cube_l(x,y,*))
effhr=reform(effh_cube_r(x,y,*))

path='c:\!work\sswdb\CS3D\atmos_1d\'
file='atmos_5000_385_142_270.sav'
restore, path+file
temp=reform(temp_xy)
path2='c:\!work\sswdb\CS3D\tomo\
save, tbr, tbl, effhr, effhl, temp, height, freq, xl, filename=path2+'data_385_142_270.sav'
end