%mk_ctd_list.m
fid = fopen('ctd.list','w');
fprintf(fid, '%s \n', 'LADCP station no.  CTD station no. CTD cast no.');
%ccsb

ladcp = [3 4 5 6 7  8  9 10 11 12 13];
ctd   = [2 3 5 7 8 10 11 12 13 14 15];
cast  = [1 1 1 1 1  1  1  1  1  1  1];

for ii = 1:length(ladcp);
 fprintf(fid,'%10.0f%20.0f%10.0f\n', ladcp(ii), ctd(ii), cast(ii));
end

%aleutb

ladcp = [14 15 16 17 18 19 20 21 22 23 24 25 26 27];
ctd   = [84 85 86 87 88 89 90 91 92 93 94 95 96 97];
cast  = [ 1  1  2  2  1  1  1  1  1  1  1  1  1  1];

for ii = 1:length(ladcp);
 fprintf(fid,'%10.0f%20.0f%10.0f\n', ladcp(ii), ctd(ii), cast(ii));
end

%sitkab

ladcp = [28   29  30  31  32  33  34];
ctd   = [140 141 142 143 144 145 146];
cast  = [  1   1   1   1   1   1   1];

for ii = 1:length(ladcp);
 fprintf(fid,'%10.0f%20.0f%10.0f\n', ladcp(ii), ctd(ii), cast(ii));
end