;------------------------------------------------------------------------
;------------------------------------------------------------------------
;Title:		loadliq_f.pro
;Purpose:	To read netCDF files created by liqout_f.pro.
;			These are liquid cloud retrievals from the MMCR package.
;
;I/O format:	.r loadliq_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,rml		;mean radius [microns] "full"
ncdf_varget,fid,3,lwc		;LWC [g/m3] "full"
ncdf_varget,fid,4,lwp		;LWP [g/m2] "full"
ncdf_varget,fid,5,nl		;concentration [1/cm3]
ncdf_varget,fid,6,rml_s		;mean radius [microns] "simple"
ncdf_varget,fid,7,lwc_s		;LWC [g/m3] "simple"
ncdf_varget,fid,8,lwp_s		;LWP [g/m2] "simple"
ncdf_close,fid

end ;prog