;------------------------------------------------------------------------
;------------------------------------------------------------------------
;Title:		loadiceext_f.pro
;Purpose:	To read netCDF files created by iceextout_f.pro.
;			These are ice cloud retrievals from the MMCR package.
;
;I/O format:	.r loadiceext_f
;
;Author:	Matthew Shupe
;Date:		1/7/00
;Modified:	1/7/00
;------------------------------------------------------------------------
;------------------------------------------------------------------------
filename=file[0]

print,'Loading ',filename
fid=ncdf_open(filename)
ncdf_varget,fid,0,time		;time [decimal hour]
ncdf_varget,fid,1,height	;height [km]
ncdf_varget,fid,2,dsr		;mean layer mass median diameter [microns]
ncdf_varget,fid,3,size		;mass median diameter [microns]
ncdf_varget,fid,4,zsrr		;beam average radar reflectivity [dBZ]
ncdf_varget,fid,5,tol		;total cloud amount [km]
ncdf_varget,fid,6,tclear	;equivalent clear sky temperature [C]
ncdf_varget,fid,7,skytra	;sky transmissivity below cloud
ncdf_varget,fid,8,tbirc		;sky IR brightness temperature [C]
ncdf_varget,fid,9,tbase		;lowest base temp from operator [C]
ncdf_varget,fid,10,ttop		;highest top temp from operator [C]
ncdf_varget,fid,11,tcld		;cloud effective temperature [C]
ncdf_varget,fid,12,tsurf	;surface temperature [C]
ncdf_varget,fid,13,tam		;lower atmosphere temperature [C]
ncdf_close,fid

end ;prog