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	gforget	1.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