; ;Copyright 1996-2013 United States Government as represented by the ;Administrator of the National Aeronautics and Space Administration. ;All Rights Reserved. ; This software may be used, copied, or redistributed as long as it is not ; sold and this copyright notice is reproduced on each copy made. This ; routine is provided as is without any express or implied warranties ; whatsoever. ; pro cmb_var_i, a tnames = tag_names(a) for i=0,n_elements(tnames)-1 do begin print,' ***********************' print,' ',tnames[i] b = a.(i) c = ' ' print,c,'fieldnam:', b.FIELDNAM if cmb_tag_name_exists('depend_0',b) then $ if b.depend_0 ne '' then print,c,'time dependency:', b.depend_0 if cmb_tag_name_exists('depend_1',b) then $ if b.depend_1 ne '' then print,c,'depend_1:',b.depend_1 if cmb_tag_name_exists('depend_2',b) then $ if b.depend_2 ne '' then print,c,'depend_2:',b.depend_2 if cmb_tag_name_exists('depend_3',b) then $ if b.depend_3 ne '' then print,c,'depend_3:',b.depend_3 print,c,'catdesc :', b.catdesc print,c,'var_notes :', b.var_notes print,c,'units :', b.units endfor end pro cmb_meta_list,cmbmeta tnames = tag_names(cmbmeta) for i=0,n_elements(tnames)-1 do begin print,'***********************' print,tnames[i] cmb_var_i, cmbmeta.(i) endfor end