Example of Fig 4.1

Seasonal means for Winter

function example41
flon = [ 0 360];lonbox=flon;
flat = [ -90 90];latbox=flat;
vlat = [ 34 60 30];
vlon = [ 210 220 280];
ilat = [ 34 41 33];
ilon = [ 56 59 75];

s = [96 48];
lnorm = 'full';
tit = ' Z500 Geopotential Heights';
[zt,ind,fcos]=readz500(latbox,lonbox,'season','jfm','scaling','yes');

[z,sdz]=anomaly(zt,lnorm);


clf;axis on;
% Choose grid
%
%
if s(1) == 96 && s(2) == 48
    llat = [ -87.16    -83.48    -79.78    -76.07    -72.36    -68.65 ...
        -64.94    -61.23    -57.52    -53.81    -50.10    -46.39 ...
        -42.68    -38.97    -35.26    -31.54    -27.83    -24.12 ...
        -20.41    -16.70    -12.99     -9.28     -5.57     -1.86 ...
        1.86      5.57      9.28     12.99     16.70     20.41 ...
        24.12     27.83     31.54     35.26     38.97     42.68 ...
        46.39     50.10     53.81     57.52     61.23     64.94 ...
        68.65     72.36     76.07     79.78     83.48     87.16 ]';
    llon = 0:3.75:(359.+3.76)';

elseif s(1) == 72 && s(2) == 16
    llat = 15:5:90';
    llon = 0:5:(359.+5)';
elseif s(1) == 128 && s(2) == 64
    llat = [  -87.86380     -85.09653     -82.31291     -79.52560 ...
        -76.73690     -73.94751     -71.15775     -68.36775     -65.57760 ...
        -62.78735     -59.99701     -57.20662     -54.41619     -51.62573 ...
        -48.83523     -46.04472     -43.25418     -40.46364     -37.67308 ...
        -34.88251     -32.09193     -29.30135     -26.51076     -23.72016 ...
        -20.92956     -18.13896     -15.34835     -12.55774      -9.76713 ...
        -6.97652      -4.18590      -1.39529       1.39529       4.18590 ...
        6.97652       9.76713      12.55774      15.34835      18.13896 ...
        20.92956      23.72016      26.51076      29.30135      32.09193 ...
        34.88251      37.67308      40.46364      43.25418      46.04472 ...
        48.83523      51.62573      54.41619      57.20662      59.99701 ...
        62.78735      65.57760      68.36775      71.15775      73.94751 ...
        76.73690      79.52560      82.31291      85.09653      87.86380 ]';
    llon = 0:2.8125:(359.+2.82)';
end

%  Coast
load coast;
if lonbox(2) - lonbox(1) < 80;
    dmerid= [];
else
    dmerid=60;
end
if latbox(2) - latbox(1) < 40;
    dpar= [];
else
    dpar=30;
end

subplot(311)
bigtit{1}= 'Test data 500mb Geopotential Heights';
bigtit{2}= 'Test month 1';
sdz=expand(z(:,10),ind,[96 48]);
llmap(sdz,flat,flon,[-2:0.5:2],bigtit,'shading','off');

subplot(312)
bigtit{1}= '';
bigtit{2}= 'Test month 2';
sdz=expand(z(:,20),ind,[96 48]);
llmap(sdz,flat,flon,[-2:0.5:2],bigtit,'shading','off');

size(z);
subplot(615)
indz = find(ind == (ilat(1) -1)* 96 + ilon(1));
plot(1:34,z(indz,:),'k-');
axis([ 0 35 -3.5 3.5]);
title('Pacific');

subplot(616)
indz = find(ind == (ilat(2) -1)* 96 + ilon(2));
plot(1:34,z(indz,:),'k-');
axis([ 0 35 -3.5 3.5 ]);
title('Alaska');

orient tall;
print('-dpdf','-painters','example01.pdf');

return;
Normalization full
Shading is  off 
Reshaping for T30 Gaussian grid
Contouring from a minimum -2.0000 
Contouring to a maximum 2.0000 
Contouring interval is  0.5000 
Contour values are: 
-2.0000 -1.5000 -1.0000 -0.5000 0.0000 0.5000 1.0000 1.5000 2.0000 
Maximum field value 3.1852 
Minimum field value -1.7420 
Shading is  off 
Reshaping for T30 Gaussian grid
Contouring from a minimum -2.0000 
Contouring to a maximum 2.0000 
Contouring interval is  0.5000 
Contour values are: 
-2.0000 -1.5000 -1.0000 -0.5000 0.0000 0.5000 1.0000 1.5000 2.0000 
Maximum field value 3.0291 
Minimum field value -2.1953