;------------------------------------------------------------------------
;------------------------------------------------------------------------
;Title:		loadliq3.pro
;Purpose:	To read netCDF files created by liq3out.pro.
;			These are liquid cloud retrievals from the MMCR package.
;
;I/O format:	.r loadliq3c
;
;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,rel1		;effective radius [microns] Frisch 95
ncdf_varget,fid,3,lwc		;LWC [g/m3] Frisch 95
ncdf_varget,fid,4,lwp		;LWP [g/m2] Frisch 95
ncdf_varget,fid,5,nl1		;concentration [1/cm3]
ncdf_varget,fid,6,rel2		;effective radius [microns] empirical
ncdf_varget,fid,7,nl2		;concentration [1/cm3] empirical
ncdf_close,fid

end ;prog