;$Id:$ pro read_2d_group_lut, grp_id, lut, attributes, channels_used, success_flag, use_log success_flag = 0 @lut_2d_define.pro sds_id = ncdf_varid(grp_id,'obs_table') ncdf_varget, grp_id, sds_id, x & for isfc = 0, attributes.nsfc - 1 do lut[isfc].obs = x[*,*,isfc] sds_id = ncdf_varid(grp_id,'clear_table') ncdf_varget, grp_id, sds_id, x & for isfc = 0, attributes.nsfc - 1 do lut[isfc].clear = x[*,*,isfc] sds_id = ncdf_varid(grp_id,'ice_table') ncdf_varget, grp_id, sds_id, x & for isfc = 0, attributes.nsfc - 1 do lut[isfc].ice = x[*,*,isfc] sds_id = ncdf_varid(grp_id,'water_table') ncdf_varget, grp_id, sds_id, x & for isfc = 0, attributes.nsfc - 1 do lut[isfc].water = x[*,*,isfc] sds_id = ncdf_varid(grp_id,'cloud_fraction') ncdf_varget, grp_id, sds_id, x & for isfc = 0, attributes.nsfc - 1 do lut[isfc].cloud_fraction = x[isfc] sds_id = ncdf_varid(grp_id,'ice_fraction') ncdf_varget, grp_id, sds_id, x & for isfc = 0, attributes.nsfc - 1 do lut[isfc].ice_fraction = x[isfc] sds_id = ncdf_varid(grp_id,'water_fraction') ncdf_varget, grp_id, sds_id, x & for isfc = 0, attributes.nsfc - 1 do lut[isfc].water_fraction = x[isfc] sds_id = ncdf_varid(grp_id,'observation_count') ncdf_varget, grp_id, sds_id, x & for isfc = 0, attributes.nsfc - 1 do lut[isfc].observation_count = x[isfc] sds_id = ncdf_varid(grp_id,'on_flag') ncdf_varget, grp_id, sds_id, x & for isfc = 0, attributes.nsfc -1 do lut[isfc].on_flag = x[isfc] sds_id = ncdf_varid(grp_id,'on_flag') ncdf_varget, grp_id, sds_id, x & for isfc = 0, attributes.nsfc -1 do lut[isfc].on_flag = x[isfc] sds_id = ncdf_varid(grp_id,'channel_wvl') ncdf_varget, grp_id, sds_id, x & channels_used.wvl = x success_flag = 1 if (use_log eq 1) then begin for isfc = 0, attributes.nsfc - 1 do begin idx = where(lut[isfc].clear gt 0.0,cc) if (cc gt 0) then begin lut[isfc].clear[idx] = alog(lut[isfc].clear[idx]) endif idx = where(lut[isfc].ice gt 0.0,cc) if (cc gt 0) then begin lut[isfc].ice[idx] = alog(lut[isfc].ice[idx]) endif idx = where(lut[isfc].water gt 0.0,cc) if (cc gt 0) then begin lut[isfc].water[idx] = alog(lut[isfc].water[idx]) endif endfor endif end