pro get_sgpgoes8minnisx1, fname

common sgpgoes8minnisX1_data, hrfrac, jday, num_times, num_longs, num_lats, num_levels, num_views, $
	latitude, longitude, level, view, Cloud_Amount, Visible_Optical_Depth, IR_Optical_Depth, Emissivity, $
	Cloud_Center_Height, Cloud_Top_Height, Cloud_Temperature, Cloud_Thickness, Reflectance, Albedo, $
	Cloud_Center_Temperature, Cloud_Top_Temperature, Visible_Optical_Depth_SD, Cloud_Center_Temperature_SD, $
	Broadband_LW_Flux, Broadband_SW_Albedo, Narrowband_VIS_Albedo, Clear_Temperature, Clear_Temperature_SD, $
	Narrowband_VIS_Albedo_SD, Clear_VIS_Reflectance, Average_Total_Temperature, Solar_Zenith_Angle, $
	Viewing_Zenith_Angle, Relative_Azimuth_Angle

OPENR, 1, strtrim(fname,2), ERROR = err
if err eq 0 then begin

close, 1


cdfid=ncdf_open(fname)	; open the netcdf file

latitude_did=ncdf_dimid(cdfid,'latitude')
longitude_did=ncdf_dimid(cdfid,'longitude')
level_did=ncdf_dimid(cdfid,'level')
view_did=ncdf_dimid(cdfid,'view')
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, latitude_did, char_strng, num_lats
ncdf_diminq, cdfid, level_did, char_strng, num_levels
ncdf_diminq, cdfid, view_did, char_strng, num_views


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

num_sec_id=ncdf_varid(cdfid,'base_time')
ncdf_varget, cdfid,num_sec_id, base_time
time_offset_id=ncdf_varid(cdfid,'time_offset')
ncdf_varget, cdfid,time_offset_id, time_offset
latitude_id=ncdf_varid(cdfid,'latitude')
ncdf_varget, cdfid,latitude_id, latitude
longitude_id=ncdf_varid(cdfid,'longitude')
ncdf_varget, cdfid,longitude_id, longitude
level_id=ncdf_varid(cdfid,'level')
ncdf_varget, cdfid,level_id, level
view_id=ncdf_varid(cdfid,'view')
ncdf_varget, cdfid,view_id, view
Cloud_Amount_id=ncdf_varid(cdfid,'Cloud_Amount')
ncdf_varget, cdfid,Cloud_Amount_id, Cloud_Amount
Visible_Optical_Depth_id=ncdf_varid(cdfid,'Visible_Optical_Depth')
ncdf_varget, cdfid,Visible_Optical_Depth_id, Visible_Optical_Depth
IR_Optical_Depth_id=ncdf_varid(cdfid,'IR_Optical_Depth')
ncdf_varget, cdfid,IR_Optical_Depth_id, IR_Optical_Depth
Emissivity_id=ncdf_varid(cdfid,'Emissivity')
ncdf_varget, cdfid,Emissivity_id, Emissivity
Cloud_Center_Height_id=ncdf_varid(cdfid,'Cloud_Center_Height')
ncdf_varget, cdfid,Cloud_Center_Height_id, Cloud_Center_Height
Cloud_Top_Height_id=ncdf_varid(cdfid,'Cloud_Top_Height')
ncdf_varget, cdfid,Cloud_Top_Height_id, Cloud_Top_Height_id
Cloud_Temperature_id=ncdf_varid(cdfid,'Cloud_Temperature')
ncdf_varget, cdfid,Cloud_Temperature_id, Cloud_Temperature_id
Cloud_Thickness_id=ncdf_varid(cdfid,'Cloud_Thickness')
ncdf_varget, cdfid,Cloud_Thickness_id, Cloud_Thickness_id
Reflectance_id=ncdf_varid(cdfid,'Reflectance')
ncdf_varget, cdfid,Reflectance_id, Reflectance
Albedo_id=ncdf_varid(cdfid,'Albedo')
ncdf_varget, cdfid,Albedo_id, Albedo_id
Cloud_Center_Temperature_id=ncdf_varid(cdfid,'Cloud_Center_Temperature')
ncdf_varget, cdfid,Cloud_Center_Temperature_id, Cloud_Center_Temperature
Cloud_Center_Temperature_id=ncdf_varid(cdfid,'Cloud_Center_Temperature')
ncdf_varget, cdfid,Cloud_Center_Temperature_id, Cloud_Center_Temperature
Visible_Optical_Depth_SD_id=ncdf_varid(cdfid,'Visible_Optical_Depth_SD')
ncdf_varget, cdfid,Visible_Optical_Depth_SD_id, Visible_Optical_Depth_SD
Cloud_Center_Temperature_SD_id=ncdf_varid(cdfid,'Cloud_Center_Temperature_SD')
ncdf_varget, cdfid,Cloud_Center_Temperature_SD_id, Cloud_Center_Temperature_SD
Broadband_LW_Flux_id=ncdf_varid(cdfid,'Broadband_LW_Flux')
ncdf_varget, cdfid,Broadband_LW_Flux_id, Broadband_LW_Flux
Narrowband_IR_Flux_id=ncdf_varid(cdfid,'Narrowband_IR_Flux')
ncdf_varget, cdfid,Narrowband_IR_Flux_id, Narrowband_IR_Flux
Broadband_SW_Albedo_id=ncdf_varid(cdfid,'Broadband_SW_Albedo')
ncdf_varget, cdfid,Broadband_SW_Albedo_id, Broadband_SW_Albedo
Narrowband_VIS_Albedo_id=ncdf_varid(cdfid,'Narrowband_VIS_Albedo')
ncdf_varget, cdfid,Narrowband_VIS_Albedo_id, Narrowband_VIS_Albedo
Clear_Temperature_id=ncdf_varid(cdfid,'Clear_Temperature')
ncdf_varget, cdfid,Clear_Temperature_id, Clear_Temperature
Clear_Temperature_SD_id=ncdf_varid(cdfid,'Clear_Temperature_SD')
ncdf_varget, cdfid,Clear_Temperature_SD_id, Clear_Temperature_SD
Narrowband_VIS_Albedo_SD_id=ncdf_varid(cdfid,'Narrowband_VIS_Albedo_SD')
ncdf_varget, cdfid,Narrowband_VIS_Albedo_SD_id, Narrowband_VIS_Albedo_SD
Clear_VIS_Reflectance_id=ncdf_varid(cdfid,'Clear_VIS_Reflectance')
ncdf_varget, cdfid,Clear_VIS_Reflectance_id, Clear_VIS_Reflectance
Average_Total_Temperature_id=ncdf_varid(cdfid,'Average_Total_Temperature')
ncdf_varget, cdfid,Average_Total_Temperature_id, Average_Total_Temperature
Solar_Zenith_Angle_id=ncdf_varid(cdfid,'Solar_Zenith_Angle')
ncdf_varget, cdfid,Solar_Zenith_Angle_id, Solar_Zenith_Angle
Viewing_Zenith_Angle_id=ncdf_varid(cdfid,'Viewing_Zenith_Angle')
ncdf_varget, cdfid,Viewing_Zenith_Angle_id, Viewing_Zenith_Angle
Relative_Azimuth_Angle_id=ncdf_varid(cdfid,'Relative_Azimuth_Angle')
ncdf_varget, cdfid,Relative_Azimuth_Angle_id, Relative_Azimuth_Angle

ncdf_close,cdfid

;
;  Calculate Julian Date (jday) and Fractional Hour (hrfrac)
;

ijday_ihrfrac_fm_numsec,base_time,time_offset,hrfrac,jday,yy,mm,dd,hh,mi,ss

endif

return
end