;----------------------------------------------------------------------- PRO profsliders,line field = line.field sliderbase = line.sliderbase widget_control,line.wfsl_lat,/destroy,bad_id=badid widget_control,line.wfsl_lon,/destroy,bad_id=badid widget_control,line.wfsl_slt,/destroy,bad_id=badid widget_control,line.wfsl_wvn,/destroy,bad_id=badid ; ; ------------------ Sliders for selected lats, lons ------------------- ; ; Select latitude: ; lats = *field.lats nlat = n_elements(lats) dlat = lats[1]-lats[0] slat = line.slat slatbase = widget_base(sliderbase) title = 'Select '+field.grid_type+' Latitude' wfsl_slat = cw_fslide(slatbase,minimum=lats[0],maximum=lats[nlat-1],$ delta=dlat,xsize=230,uvalue="SELECT_LAT",format='(f7.2)',value=slat,$ title=title) line.wfsl_lat = wfsl_slat ; ; Select longitude: ; lons = *field.lons nlon = n_elements(lons) dlon = lons[1]-lons[0] slon = line.slon slonbase = widget_base(sliderbase) title='Select '+field.grid_type+' Longitude' wfsl_slon = cw_fslide(slonbase,minimum=lons[0],maximum=lons[nlon-1],$ delta=dlon,xsize=230,uvalue="SELECT_LON",format='(f7.2)',value=slon,$ title=title) IF line.zonalmean EQ 1 OR line.amplitude EQ 1 THEN widget_control, wfsl_slon, sensitive=0 line.wfsl_lon = wfsl_slon ; ; Select local time: ; sltbase = widget_base(sliderbase) sslt = line.sslt dslt = dlon/15. title='Select '+field.grid_type+' Local Time' wfsl_slt = cw_fslide(sltbase,minimum=0.,maximum=24.,$ delta=dslt,xsize=230,uvalue="SELECT_SLT",format='(f5.2)',value=sslt,$ title=title) IF line.zonalmean EQ 1 OR line.amplitude EQ 1 THEN widget_control, wfsl_slt, sensitive=0 line.wfsl_slt = wfsl_slt ; ; Select wavenumber: ; swvnbase = widget_base(sliderbase) swvn = line.wavenumber dwvn = 1 title='Select Amplitude Wavenumber' wfsl_wvn = cw_fslide(swvnbase,minimum=0,maximum=nlon/2,$ delta=dwvn,xsize=230,uvalue="SELECT_WVN",format='(i2)',value=swvn,$ title=title) IF line.amplitude EQ 0 THEN widget_control, wfsl_wvn, sensitive=0 line.wfsl_wvn = wfsl_wvn END