-
Notifications
You must be signed in to change notification settings - Fork 2
Expand file tree
/
Copy pathFig6.m
More file actions
110 lines (92 loc) · 2.93 KB
/
Copy pathFig6.m
File metadata and controls
110 lines (92 loc) · 2.93 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
%plots depth averaged temperature and meander composite surface currents at a series of lags and leads from INALT01 for JGR paper
% N. Malan, Cape Town, October 2017
close all;clear all;clc
load Fig6a.mat
figure(1)
subaxis(2,2,1,'spacinghoriz',0.05,'spacingvert',0.05)
m_proj('mercator','longitude',[18 30],'latitude', [-38 -33])
m_pcolor(lon_s,lat_s,pulse_mean_zaveT)
map=brewermap(15,'*RdYlBu')
colormap(map)
shading interp
colorbar('horiz','position',[.15,.5,.7,.01]);
caxis([-3 3])
m_grid('box','on')
m_gshhs_i('patch',[.7 .7 .7])
hold on
%plot scale vector
m_vec(4,29.75,-37.5,-1,0)
m_text(28.75,-37.25,'1m/s')
f= [1:4:length(lat_s)];
j= [1:4:length(lon_s)]; %Take every 4th arrow for plotting
m_quiver((lon1(f,j)),(lat1(f,j)),pulse_mean_U(f,j),pulse_mean_V(f,j),2,'k')
%add bathymetry
clevs=[-200];
[fat guy]=m_tbase('contour',0:-200:-200,'linewidth',3,'linecolor','k');
clabel(fat,guy,clevs)
load Fig6b.mat
subaxis(2,2,2,'spacinghoriz',0.05,'spacingvert',0.05)
m_proj('mercator','longitude',[18 30],'latitude', [-38 -33])
m_pcolor(lon_s,lat_s,pulse_mean_zaveT)
map=brewermap(15,'*RdYlBu')
colormap(map)
shading interp
caxis([-3 3])
m_grid('box','on')
m_gshhs_i('patch',[.7 .7 .7])
hold on
%plot scale vector
m_vec(4,29.75,-37.5,-1,0)
m_text(28.75,-37.25,'1m/s')
f= [1:4:length(lat_s)];
j= [1:4:length(lon_s)]; %Take every 4th arrow for plotting
m_quiver((lon1(f,j)),(lat1(f,j)),pulse_mean_U(f,j),pulse_mean_V(f,j),2,'k')
%plot scale vector
%add bathymetry
clevs=[-200];
[fat guy]=m_tbase('contour',0:-200:-200,'linewidth',3,'linecolor','k');
clabel(fat,guy,clevs)
load Fig6c.mat
subaxis(2,2,3,'spacinghoriz',0.05,'spacingvert',0.05)
m_proj('mercator','longitude',[18 30],'latitude', [-38 -33])
m_pcolor(lon_s,lat_s,pulse_mean_zaveT)
map=brewermap(15,'*RdYlBu')
colormap(map)
shading interp
caxis([-3 3])
m_grid('box','on')
m_gshhs_i('patch',[.7 .7 .7])
hold on
%plot scale vector
m_vec(4,29.75,-37.5,-1,0)
m_text(28.75,-37.25,'1m/s')
f= [1:4:length(lat_s)];
j= [1:4:length(lon_s)]; %Take every 4th arrow for plotting
m_quiver((lon1(f,j)),(lat1(f,j)),pulse_mean_U(f,j),pulse_mean_V(f,j),2,'k')
%plot scale vector
%add bathymetry
clevs=[-200];
[fat guy]=m_tbase('contour',0:-200:-200,'linewidth',3,'linecolor','k');
clabel(fat,guy,clevs)
load Fig6d.mat
subaxis(2,2,4,'spacinghoriz',0.05,'spacingvert',0.05)
m_proj('mercator','longitude',[18 30],'latitude', [-38 -33])
m_pcolor(lon_s,lat_s,pulse_mean_zaveT)
map=brewermap(15,'*RdYlBu')
colormap(map)
shading interp
caxis([-3 3])
m_grid('box','on')
m_gshhs_i('patch',[.7 .7 .7])
hold on
%plot scale vector
m_vec(4,29.75,-37.5,-1,0)
m_text(28.75,-37.25,'1m/s')
f= [1:4:length(lat_s)];
j= [1:4:length(lon_s)]; %Take every 4th arrow for plotting
m_quiver((lon1(f,j)),(lat1(f,j)),pulse_mean_U(f,j),pulse_mean_V(f,j),2,'k')
%plot scale vector
%add bathymetry
clevs=[-200];
[fat guy]=m_tbase('contour',0:-200:-200,'linewidth',3,'linecolor','k');
clabel(fat,guy,clevs)