matlab_class/gcmfaces_calc/gcmfaces_lines_pairs.m

function [lonPairs,latPairs,names]=gcmfaces_lines_pairs();
% GCMFACES_LINES_PAIRS returns a set of predefined section
%      end points [lonPairs,latPairs,names]=gcmfaces_lines_pairs();

gcmfaces_global;

for iy=1:23;
    
    switch iy;
        case 1; lonPair=[-173 -164]; latPair=[65.5 65.5]; name='Bering Strait';
        case 2; lonPair=[-5 -5]; latPair=[34 40]; name='Gibraltar';
        case 3; lonPair=[-81 -77]; latPair=[28 26]; name='Florida Strait';
        case 4; lonPair=[-81 -79]; latPair=[28 22]; name='Florida Strait W1';
        case 5; lonPair=[-76 -76]; latPair=[21 8]; name='Florida Strait S1';
        case 6; lonPair=[-77 -77]; latPair=[26 24]; name='Florida Strait E1';
        case 7; lonPair=[-77 -77]; latPair=[24 22]; name='Florida Strait E2';
        case 8; lonPair=[-65 -50]; latPair=[66 66]; name='Davis Strait';
        case 9; lonPair=[-35 -20]; latPair=[67 65]; name='Denmark Strait';
        case 10; lonPair=[-16 -7]; latPair=[65 62.5]; name='Iceland Faroe';
        case 11; lonPair=[-6.5 -4]; latPair=[62.5 57]; name='Faroe Scotland';
        case 12; lonPair=[-4 8]; latPair=[57 62];  name='Scotland Norway';
        case 13; lonPair=[-68 -63]; latPair=[-54 -66]; name='Drake Passage';
        case 14; lonPair=[103 103]; latPair=[4 -1]; name='Indonesia W1';
        case 15; lonPair=[104 109]; latPair=[-3 -8]; name='Indonesia W2';
        case 16; lonPair=[113 118]; latPair=[-8.5 -8.5]; name='Indonesia W3';
        case 17; lonPair=[118 127 ]; latPair=[-8.5 -15]; name='Indonesia W4';
        case 18; lonPair=[127 127]; latPair=[-25 -68]; name='Australia Antarctica';
        case 19; lonPair=[38 46]; latPair=[-10 -22]; name='Madagascar Channel';
        case 20; lonPair=[46 46]; latPair=[-22 -69]; name='Madagascar Antarctica';
        case 21; lonPair=[20 20]; latPair=[-30 -69.5]; name='South Africa Antarctica';
        case 22; lonPair=[-76 -72]; latPair=[21 18.5]; name='Florida Strait E3';
        case 23; lonPair=[-72 -72]; latPair=[18.5 10]; name='Florida Strait E4';
    end;
    
    if iy==1; lonPairs=lonPair; latPairs=latPair; names={name};
    else; lonPairs(iy,:)=lonPair; latPairs(iy,:)=latPair; names{iy}=name;
    end;
    
end;

1	function [lonPairs,latPairs,names]=gcmfaces_lines_pairs();
2	% GCMFACES_LINES_PAIRS returns a set of predefined section
3	% end points [lonPairs,latPairs,names]=gcmfaces_lines_pairs();
4
5	gcmfaces_global;
6
7	for iy=1:23;
8
9	switch iy;
10	case 1; lonPair=[-173 -164]; latPair=[65.5 65.5]; name='Bering Strait';
11	case 2; lonPair=[-5 -5]; latPair=[34 40]; name='Gibraltar';
12	case 3; lonPair=[-81 -77]; latPair=[28 26]; name='Florida Strait';
13	case 4; lonPair=[-81 -79]; latPair=[28 22]; name='Florida Strait W1';
14	case 5; lonPair=[-76 -76]; latPair=[21 8]; name='Florida Strait S1';
15	case 6; lonPair=[-77 -77]; latPair=[26 24]; name='Florida Strait E1';
16	case 7; lonPair=[-77 -77]; latPair=[24 22]; name='Florida Strait E2';
17	case 8; lonPair=[-65 -50]; latPair=[66 66]; name='Davis Strait';
18	case 9; lonPair=[-35 -20]; latPair=[67 65]; name='Denmark Strait';
19	case 10; lonPair=[-16 -7]; latPair=[65 62.5]; name='Iceland Faroe';
20	case 11; lonPair=[-6.5 -4]; latPair=[62.5 57]; name='Faroe Scotland';
21	case 12; lonPair=[-4 8]; latPair=[57 62]; name='Scotland Norway';
22	case 13; lonPair=[-68 -63]; latPair=[-54 -66]; name='Drake Passage';
23	case 14; lonPair=[103 103]; latPair=[4 -1]; name='Indonesia W1';
24	case 15; lonPair=[104 109]; latPair=[-3 -8]; name='Indonesia W2';
25	case 16; lonPair=[113 118]; latPair=[-8.5 -8.5]; name='Indonesia W3';
26	case 17; lonPair=[118 127 ]; latPair=[-8.5 -15]; name='Indonesia W4';
27	case 18; lonPair=[127 127]; latPair=[-25 -68]; name='Australia Antarctica';
28	case 19; lonPair=[38 46]; latPair=[-10 -22]; name='Madagascar Channel';
29	case 20; lonPair=[46 46]; latPair=[-22 -69]; name='Madagascar Antarctica';
30	case 21; lonPair=[20 20]; latPair=[-30 -69.5]; name='South Africa Antarctica';
31	case 22; lonPair=[-76 -72]; latPair=[21 18.5]; name='Florida Strait E3';
32	case 23; lonPair=[-72 -72]; latPair=[18.5 10]; name='Florida Strait E4';
33	end;
34
35	if iy==1; lonPairs=lonPair; latPairs=latPair; names={name};
36	else; lonPairs(iy,:)=lonPair; latPairs(iy,:)=latPair; names{iy}=name;
37	end;
38
39	end;
40