pro get_sgpgoes8minnisX1, fname

common sgpgoes8minnisX1_data, hrfrac, jday, num_times, num_longs, num_lats,



cdfid=ncdf_open(fname)	; open the netcdf file

latitude_did=ncdf_dimid(cdfid,'latitude ')
longitude_did=ncdf_dimid(cdfid,'longitude')
time_did=ncdf_dimid(cdfid,'time')


ncdf_diminq, cdfid, time_did, char_strng, num_times
ncdf_diminq, cdfid, longitude_did, char_strng, num_longs
ncdf_diminq, cdfid, longitude_did, char_strng, num_lats


; get the id's of the variables to be read

num_sec_id=ncdf_varid(cdfid,'base_time')
time_offset_id=ncdf_varid(cdfid,'time_offset')
latitude_id=ncdf_varid(cdfid,'latitude')
longitude_id=ncdf_varid(cdfid,'longitude')
Cloud_Amount_id=ncdf_varid(cdfid,'Cloud_Amount')
Visible_Optical_Depth_id=ncdf_varid(cdfid,'Visible_Optical_Depth')
IR_Optical_Depth_id=ncdf_varid(cdfid,'IR_Optical_Depth')
Emissivity_id=ncdf_varid(cdfid,'Emissivity')
Cloud_Center_Height_id=ncdf_varid(cdfid,'Cloud_Center_Height')
Cloud_Top_Height_id=ncdf_varid(cdfid,'Cloud_Top_Height')
Cloud_Temperature_id=ncdf_varid(cdfid,'Cloud_Temperature')
Cloud_Thickness_id=ncdf_varid(cdfid,'Cloud_Thickness')
Reflectance_id=ncdf_varid(cdfid,'Reflectance')
Albedo_id=ncdf_varid(cdfid,'Albedo')
Cloud_Center_Temperature_id=ncdf_varid(cdfid,'Cloud_Center_Temperature')
Cloud_Top_Temperature_id=ncdf_varid(cdfid,'Cloud_Top_Temperature')
Visible_Optical_Depth_SD_id=ncdf_varid(cdfid,'Visible_Optical_Depth_SD')