function [listd,ilat,ilon,iday,imon,iyr,isign,ilist,yr,mo]=set_data_dir(input_data_dir)
%-------------------------------------------------------
% function [listd,ilat,ilon,iday,imon,iyr,isign,ilist,yr,mo]=set_data_dir(input_data_dir)
%
% input_data_dir: 'ASOF' or '+CTD' or 'SCICEX' or 'BGEP'
% listd: 
%   example: for 'BGEP': 'ctd200321','ctd200416']
% [ilat,ilon,iday,imon,iyr]: index in data table
% [yr,mo]: year and month ranges
%--------------------------------------------------------

list1={'ARK_L9799','ARK_XIV2','ARK_XV3','ARK_XVI2','ARK_XVII1','ARK_XVIII1','ARK_XIX4','ARK_XX2','ARK_XXI1'};
%list2={'ARK_IX_4','ARK_XII'};
list2={'ARK_VIII_2','ARK_IX_4','ARK_XI_1','ARK_XII','ARK_XIII_2','ESOP2',...
       'Oden_c1994','Oden_c1995','Oden_c1996','Oden_c1997','Oden_c1998','Oden_c1999','Oden_c2000'};
list3={'sc93','sc95','sc96','sc97','sc98','sc99','sc00'};
list4={'ctd200321','ctd200416'};

%not sure what "mo" is for, not used at the moment. will have to verify if "mo" is correct

    if(strcmp(input_data_dir,'ASOF')==1);  
        listd=list1;ilat=2;ilon=3;iday=4;imon=5;iyr=6;isign=0;ilist=1;yr=[1997:2005];mo=[8,8,9,7,7,7,9,7,8];
elseif(strcmp(input_data_dir,'AWI')==1);   
        listd=list2;ilat=1;ilon=2;iday=6;imon=5;iyr=4;isign=0;ilist=2;yr=[1993,2000];mo=[8,7];%1993:aug-sep, 1996:jul-sep
elseif(strcmp(input_data_dir,'SCICEX')==1);
        listd=list3;ilat=1;ilon=2;iday=5;imon=4;iyr=8;isign=3;ilist=3;yr=[1993,1995:2000];mo=[8,3,9,9,8,5,10];
elseif(strcmp(input_data_dir,'BGEP')==1);  
        listd=list4;ilat=2;ilon=1;iday=5;imon=4;iyr=3;isign=0;ilist=0;yr=[2003:2004];mo=[8,7];
end;

return
