      wc=menu('Which cruise?','301','302','303','al9805','sj9507');
      %    wc=5;

      cp=computer;

      if cp(1:3)=='SGI';dirr='/data5/jmanning/drift/';
         strs='/';

      else;dirr='f:\drift\';strs='\';end;

      
    fn=input('input drifter filename (w/out direc or extension): ','s');
    
    if wc<4;
      disp(['Hardcoded to oc',num2str(300+wc)]);
      direc=[dirr,'oc30',num2str(wc),strs];
      disp(' ');
      inext='.jgf';
    elseif wc==4;
      direc=[dirr,'al9805/'];
      inext='.jgf';
    elseif wc==5;
      direc=['/data1/jgofs/sj9507/drift/'];
      inext='.dat';
    end;

    disp(['Hardcoded to look in ',direc,fn,inext])
    fid=fopen([direc,fn,inext]);
    fgetl(fid);
    yy1=fscanf(fid,'%f');
    yy=reshape(yy1,4,length(yy1)/4);
    yy=yy';
    id=find(yy(:,4)~=999);
    yy=yy(id,:);

