;$Id:$ ;-------------------------------------------------------------------------------------- ; set channels on/off ;-------------------------------------------------------------------------------------- chan_on_flag = bytarr(45) chan_on_flag[1] = 1 chan_on_flag[6] = 1 chan_on_flag[20] = 1 chan_on_flag[26] = 1 chan_on_flag[27] = 1 chan_on_flag[29] = 1 chan_on_flag[31] = 1 chan_on_flag[32] = 1 ;-------------------------------------------------------------------------------------- ;-- define table arrays ;-------------------------------------------------------------------------------------- ntables = 7 nchan_tables = 5 table_on_flag = bytarr(ntables) table_read_flag = bytarr(ntables) chan_on_table = bytarr(ntables,nchan_tables) table_rank = bytarr(ntables,nchan_tables) table_name = strarr(ntables) clear_prob = make_array(ntables,/FLOAT,VALUE=missing) water_prob = make_array(ntables,/FLOAT,VALUE=missing) ice_prob = make_array(ntables,/FLOAT,VALUE=missing) sc_prob = make_array(ntables,/FLOAT,VALUE=missing) obs_prob = make_array(ntables,/FLOAT,VALUE=missing) lut=ptrarr(ntables, /allocate_heap) attrs=ptrarr(ntables, /allocate_heap) ;-------------------------------------------------------------------------------------- ;--- define the library of tables ;------------------------------------------------------------------------------------- table_name[0] = 'all_etropo_topa_logbt11std' & table_rank[0] = 3 & chan_on_table[0,*] = [31, 0,0,0,0] table_name[1] = 'all_btd1112_btd8511' & table_rank[1] = 2 & chan_on_table[1,*] = [31,32,29,0,0] table_name[2] = 'all_etropo_bt11bt67covari' & table_rank[2] = 2 & chan_on_table[2,*] = [31,27,0,0,0] table_name[3] = 'day_etropo_emiss375' & table_rank[3] = 2 & chan_on_table[3,*] = [31,20,0,0,0] table_name[4] = 'night_etropo_emiss375' & table_rank[4] = 2 & chan_on_table[4,*] = [31,20,0,0,0] table_name[5] = 'day_etropo_logcod065' & table_rank[5] = 2 & chan_on_table[5,*] = [31, 1,0,0,0] table_name[6] = 'day_ref160_ref138' & table_rank[6] = 2 & chan_on_table[6,*] = [1,26,0,0,0] ;------------------------------------------------------------------------------------- ; turn tables on and off for each sensor ;------------------------------------------------------------------------------------- table_on_flag = make_array(ntables,/BYTE,VALUE=1) ;table_on_flag = [1, 0, 0, 1, 0, 0, 1, 1, 0, 0, 0, 1] ;table_on_flag[*] = 0 ;table_on_flag[0] = 1 ;table_on_flag[2] = 1 ;if (sensor eq 'modis') then table_on_flag = [1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1] ;if (sensor eq 'modis') then table_on_flag = [1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1] ;if (sensor eq 'modis') then table_on_flag = [1, 0, 0, 1, 0, 0, 1, 1, 0, 0, 0, 1]