| 1 |
nx=4320; |
| 2 |
pn='/nobackupp8/dmenemen/llc/llc_4320/MITgcm/run/'; |
| 3 |
|
| 4 |
%%%%%%%%%%%% |
| 5 |
% compare SST off Peru on November 1, 2011 |
| 6 |
cx=[15 20]; |
| 7 |
n1=1080; |
| 8 |
n2=2160; |
| 9 |
n3=4320; |
| 10 |
ix1=380:590; |
| 11 |
iy1=300:450; |
| 12 |
ix2=760:1180; |
| 13 |
iy2=600:900; |
| 14 |
ix3=1520:2360; |
| 15 |
iy3=1200:1800; |
| 16 |
dte='1-Nov-2011'; |
| 17 |
ts1=dte2ts(dte,90,2010,1,1); |
| 18 |
ts2=dte2ts(dte,45,2011,1,17); |
| 19 |
ts3=dte2ts(dte,25,2011,9,10); |
| 20 |
p1='/nobackupp8/dmenemen/llc/llc_1080/MITgcm/run_2011/'; |
| 21 |
p2='/nobackupp5/dmenemen/llc_2160/MITgcm/run_day49_on/'; |
| 22 |
p3='/nobackupp8/dmenemen/llc/llc_4320/MITgcm/run/'; |
| 23 |
f1=[p1 'T.' myint2str(ts1,10) '.data']; |
| 24 |
f2=[p2 'Theta.' myint2str(ts2,10) '.data']; |
| 25 |
f3=[p3 'Theta.' myint2str(ts3,10) '.data']; |
| 26 |
f=12; |
| 27 |
T1=quikread_llc(f1,n1,1,'real*4',f); |
| 28 |
T2=quikread_llc(f2,n2,1,'real*4',f); |
| 29 |
T3=quikread_llc(f3,n3,1,'real*4',f); |
| 30 |
clf reset |
| 31 |
subplot(131) |
| 32 |
mypcolor(rot90(T1(ix1,iy1),2)'); |
| 33 |
caxis(cx) |
| 34 |
thincolorbar('horiz') |
| 35 |
title('1/12 deg') |
| 36 |
subplot(132) |
| 37 |
mypcolor(rot90(T2(ix2,iy2),2)'); |
| 38 |
caxis(cx) |
| 39 |
thincolorbar('horiz') |
| 40 |
title('1/24 deg') |
| 41 |
subplot(133) |
| 42 |
mypcolor(rot90(T3(ix3,iy3),2)'); |
| 43 |
caxis(cx) |
| 44 |
thincolorbar('horiz') |
| 45 |
title('1/48 deg') |
| 46 |
|
| 47 |
print -dpsc -r600 SST_Peru |
| 48 |
|
| 49 |
%%%%%%%%%%%% |
| 50 |
nm='SIarea'; |
| 51 |
n=1; |
| 52 |
clf reset |
| 53 |
colormap(cmap) |
| 54 |
for ts=10368:144:138384; |
| 55 |
mydisp(ts) |
| 56 |
fn=[pn nm '.' myint2str(ts,10) '.data']; |
| 57 |
if exist(fn) |
| 58 |
fld=[rot90(quikread_llc(fn,nx,1,'real*4',7),1) quikread_llc(fn,nx,1,'real*4',8)]; |
| 59 |
clf |
| 60 |
quikpcolor(rot90(fld(:,1:5000),1)'); |
| 61 |
caxis([0.9 1]) |
| 62 |
title('llc4320 fractional sea ice concentration') |
| 63 |
thincolorbar |
| 64 |
text(3400,760,ts2dte(ts,25,2011,9,10),'color','w') |
| 65 |
eval(['print -dtiff -r135 ' pn 'figs/' nm myint2str(n,4)]); |
| 66 |
n=n+1; |
| 67 |
end |
| 68 |
end |
| 69 |
|
| 70 |
%%%%%%%%%%%% |
| 71 |
nm='SIarea'; |
| 72 |
n=1; |
| 73 |
clf reset |
| 74 |
colormap(cmap) |
| 75 |
ts=3600; |
| 76 |
fn=[pn nm '.' myint2str(ts,10) '.data']; |
| 77 |
fld=[rot90(quikread_llc(fn,nx,1,'real*4',7),1) quikread_llc(fn,nx,1,'real*4',8)]; |
| 78 |
clf |
| 79 |
quikpcolor(rot90(fld(:,1:5000),1)') |
| 80 |
caxis([0.9 1]) |
| 81 |
title('llc4320, sea ice concentration (m)') |
| 82 |
thincolorbar |
| 83 |
|
| 84 |
%%%%%%%%%%%% |
| 85 |
p1='/nobackupp8/dmenemen/llc/llc_1080/MITgcm/run_2011/'; |
| 86 |
n1=1080; |
| 87 |
t1=599040; |
| 88 |
f1=[p1 'T.' myint2str(t1,10) '.data']; |
| 89 |
fld1=zeros(n1*4,n1); |
| 90 |
fld1(1:n1,:)=quikread_llc(f1,n1,1,'real*4',2); |
| 91 |
fld1((n1+1):(2*n1),:)=quikread_llc(f1,n1,1,'real*4',5); |
| 92 |
fld1((2*n1+1):(3*n1),:)=rot90(quikread_llc(f1,n1,1,'real*4',9),2); |
| 93 |
fld1((3*n1+1):(4*n1),:)=rot90(quikread_llc(f1,n1,1,'real*4',12),2); |
| 94 |
|
| 95 |
p2='/nobackupp5/dmenemen/llc_2160/MITgcm/run_day49_73/'; |
| 96 |
n2=2160; |
| 97 |
t2=466080; |
| 98 |
f2=[p2 'Theta.' myint2str(t2,10) '.data']; |
| 99 |
fld2=zeros(n2*4,n2); |
| 100 |
fld2(1:n2,:)=quikread_llc(f2,n2,1,'real*4',2); |
| 101 |
fld2((n2+1):(2*n2),:)=quikread_llc(f2,n2,1,'real*4',5); |
| 102 |
fld2((2*n2+1):(3*n2),:)=rot90(quikread_llc(f2,n2,1,'real*4',9),2); |
| 103 |
fld2((3*n2+1):(4*n2),:)=rot90(quikread_llc(f2,n2,1,'real*4',12),2); |
| 104 |
|
| 105 |
p3='/nobackupp8/dmenemen/llc/llc_4320/MITgcm/run/'; |
| 106 |
n3=4320; |
| 107 |
t3=26928; |
| 108 |
f3=[p3 'Theta.' myint2str(t3,10) '.data']; |
| 109 |
fld3=zeros(n3*4,n3); |
| 110 |
fld3(1:n3,:)=quikread_llc(f3,n3,1,'real*4',2); |
| 111 |
fld3((n3+1):(2*n3),:)=quikread_llc(f3,n3,1,'real*4',5); |
| 112 |
fld3((2*n3+1):(3*n3),:)=rot90(quikread_llc(f3,n3,1,'real*4',9),2); |
| 113 |
fld3((3*n3+1):(4*n3),:)=rot90(quikread_llc(f3,n3,1,'real*4',12),2); |
| 114 |
|
| 115 |
cx=[0 30]; |
| 116 |
clf reset |
| 117 |
colormap(cmap) |
| 118 |
subplot(311) |
| 119 |
mypcolor(fld1'); |
| 120 |
caxis(cx) |
| 121 |
thincolorbar |
| 122 |
title('llc_1080 SST, 17 September 2011') |
| 123 |
subplot(312) |
| 124 |
mypcolor(fld2'); |
| 125 |
caxis(cx) |
| 126 |
thincolorbar |
| 127 |
title('llc_2160 SST, 16 September 2011') |
| 128 |
subplot(313) |
| 129 |
mypcolor(fld3'); |
| 130 |
caxis(cx) |
| 131 |
thincolorbar |
| 132 |
title('llc_4320 SST, 17 September 2011') |
| 133 |
|
| 134 |
print -dpsc -r600 Theta_17sep2011 |
| 135 |
|
| 136 |
%%%%%%%%%%%% |
| 137 |
nx=4320; |
| 138 |
p1='/nobackupp8/dmenemen/llc/llc_4320/MITgcm/run_day1/'; |
| 139 |
pn='/nobackupp8/dmenemen/llc/llc_4320/MITgcm/run/'; |
| 140 |
nm='Theta'; |
| 141 |
f=2; iy=1300:1900; ix=2600:3400; |
| 142 |
clf reset |
| 143 |
colormap(cmap) |
| 144 |
ts=180; |
| 145 |
fn=[p1 nm '.' myint2str(ts,10) '.data']; |
| 146 |
fld=quikread_llc(fn,nx,1,'real*4',f); |
| 147 |
subplot(211) |
| 148 |
mypcolor(fld(ix,iy)'); |
| 149 |
caxis([10 20]) |
| 150 |
thincolorbar |
| 151 |
ts=14976; |
| 152 |
fn=[pn nm '.' myint2str(ts,10) '.data']; |
| 153 |
fld=quikread_llc(fn,nx,1,'real*4',f); |
| 154 |
subplot(212) |
| 155 |
mypcolor(fld(ix,iy)'); |
| 156 |
caxis([10 20]) |
| 157 |
thincolorbar |
| 158 |
|
| 159 |
print -dpsc -r600 Theta |
| 160 |
|
| 161 |
%%%%%%%%%%%% |
| 162 |
pn='/nobackupp8/dmenemen/llc/llc_4320/MITgcm/run/'; |
| 163 |
nm='Theta'; |
| 164 |
nx=4320; |
| 165 |
clf reset |
| 166 |
colormap(cmap) |
| 167 |
ts=136368; |
| 168 |
fn=[pn nm '.' myint2str(ts,10) '.data']; |
| 169 |
fld=quikread_llc(fn,nx); |
| 170 |
fld(find(~fld))=-3; |
| 171 |
quikplot_llc(fld) |
| 172 |
caxis([-3 31]) |
| 173 |
axis([0 17281 1600 15121]) |
| 174 |
title(['llc4320 ' ts2dte(ts,45,2011,1,17) ', Sea Surface Temperature (deg C)']) |
| 175 |
thincolorbar |
| 176 |
eval(['print -dpsc -r600 Theta4320_' int2str(ts)]) |
| 177 |
|
| 178 |
%%%%%%%%%%%% |
| 179 |
nm='KPPhbl'; |
| 180 |
n=1; |
| 181 |
clf reset |
| 182 |
colormap(cmap) |
| 183 |
for ts=92240:80:140720; |
| 184 |
mydisp(ts) |
| 185 |
fn=[pn nm '.' myint2str(ts,10) '.data']; |
| 186 |
fld=quikread_llc(fn,nx); |
| 187 |
clf |
| 188 |
quikplot_llc(log10(fld)) |
| 189 |
caxis([0 3]) |
| 190 |
axis([0 8641 800 7561]) |
| 191 |
title('llc2160, log10(PBL)') |
| 192 |
thincolorbar |
| 193 |
text(1000,1000,ts2dte(ts,45,2011,1,17),'color','w') |
| 194 |
eval(['print -dtiff -r135 ' pn 'figs/' nm myint2str(n,4)]); |
| 195 |
n=n+1; |
| 196 |
end |
| 197 |
|
| 198 |
%%%%%%%%%%%% |
| 199 |
nm='Eta'; |
| 200 |
n=1; |
| 201 |
clf reset |
| 202 |
for ts=92240:80:140720; |
| 203 |
mydisp(ts) |
| 204 |
fn=[pn nm '.' myint2str(ts,10) '.data']; |
| 205 |
fld=quikread_llc(fn,nx); |
| 206 |
clf |
| 207 |
quikplot_llc(fld) |
| 208 |
caxis([-1 1]*3) |
| 209 |
axis([0 8641 800 7561]) |
| 210 |
title('llc2160, sea surface height (m)') |
| 211 |
thincolorbar |
| 212 |
text(1000,1000,ts2dte(ts,45,2011,1,17)) |
| 213 |
eval(['print -dtiff -r135 ' pn 'figs/' nm myint2str(n,4)]); |
| 214 |
n=n+1; |
| 215 |
end |
| 216 |
|
| 217 |
%%%%%%%%%%%% |
| 218 |
nm='Theta'; |
| 219 |
n=1; |
| 220 |
clf reset |
| 221 |
colormap(cmap) |
| 222 |
ts=4464; |
| 223 |
fn=[pn nm '.' myint2str(ts,10) '.data']; |
| 224 |
fld=quikread_llc(fn,nx); |
| 225 |
clf |
| 226 |
quikplot_llc(fld) |
| 227 |
caxis([-2.5 30.5]) |
| 228 |
axis([0 17281 1600 15121]) |
| 229 |
title('llc4320, sea surface temperature (deg C)') |
| 230 |
thincolorbar |
| 231 |
print -dpsc -r600 Theta4320_4464 |
| 232 |
|
| 233 |
%%%%%%%%%%%% |
| 234 |
nm='W'; |
| 235 |
kx=68; |
| 236 |
n=1; |
| 237 |
clf reset |
| 238 |
colormap(cmap) |
| 239 |
for ts=92240:80:140720; |
| 240 |
mydisp(ts) |
| 241 |
fn=[pn nm '.' myint2str(ts,10) '.data']; |
| 242 |
fld=quikread_llc(fn,nx,kx); |
| 243 |
clf |
| 244 |
quikplot_llc(fld*1000) |
| 245 |
caxis([-1 1]*8) |
| 246 |
axis([0 8641 800 7561]) |
| 247 |
title('llc2160, Wvel at 2 km depth (mm/s)') |
| 248 |
thincolorbar |
| 249 |
text(1000,1000,ts2dte(ts,45,2011,1,17),'color','k') |
| 250 |
eval(['print -dtiff -r135 ' pn 'figs/' nm myint2str(n,4)]); |
| 251 |
n=n+1; |
| 252 |
end |
| 253 |
|
| 254 |
%%%%%%%%%%%% |
| 255 |
% W2000 in EqWPac |
| 256 |
nm='W'; |
| 257 |
kx=68; |
| 258 |
n=1; |
| 259 |
clf reset |
| 260 |
colormap(cmap) |
| 261 |
for ts=92240:80:140720; |
| 262 |
mydisp(ts) |
| 263 |
fn=[pn nm '.' myint2str(ts,10) '.data']; |
| 264 |
fld=quikread_llc(fn,nx,kx,'real*4',9); |
| 265 |
clf |
| 266 |
quikpcolor(1000*rot90(fld,2)') |
| 267 |
caxis([-1 1]*5) |
| 268 |
title('llc2160, Wvel at 2 km depth (mm/s)') |
| 269 |
thincolorbar |
| 270 |
text(620,540,ts2dte(ts,45,2011,1,17),'color','k') |
| 271 |
eval(['print -dtiff -r135 ' pn 'figs/' nm 'WPac' myint2str(n,4)]); |
| 272 |
n=n+1; |
| 273 |
end |
| 274 |
|
| 275 |
%%%%%%%%%%%% |
| 276 |
nm='Salt'; |
| 277 |
n=1; |
| 278 |
clf reset |
| 279 |
colormap(cmap) |
| 280 |
for ts=92240:80:140720; |
| 281 |
mydisp(ts) |
| 282 |
fn=[pn nm '.' myint2str(ts,10) '.data']; |
| 283 |
fld=quikread_llc(fn,nx); |
| 284 |
clf |
| 285 |
quikplot_llc(fld) |
| 286 |
caxis([28 38]) |
| 287 |
axis([0 8641 800 7561]) |
| 288 |
title('llc2160, sea surface salinity (g/kg)') |
| 289 |
thincolorbar |
| 290 |
text(1000,1000,ts2dte(ts,45,2011,1,17),'color','w') |
| 291 |
eval(['print -dtiff -r135 ' pn 'figs/' nm myint2str(n,4)]); |
| 292 |
n=n+1; |
| 293 |
end |
| 294 |
|
| 295 |
%%%%%%%%%%%% |
| 296 |
nm='PhiBot'; |
| 297 |
fld1=0; |
| 298 |
n=1; |
| 299 |
for ts=92240:80:140720; |
| 300 |
mydisp(ts) |
| 301 |
fn=[pn nm '.' myint2str(ts,10) '.data']; |
| 302 |
fld1=fld1+quikread_llc(fn,nx); |
| 303 |
n=n+1; |
| 304 |
end |
| 305 |
fld1=fld1/n; |
| 306 |
n=1; |
| 307 |
clf reset |
| 308 |
colormap(cmap) |
| 309 |
for ts=92240:80:140720; |
| 310 |
mydisp(ts) |
| 311 |
fn=[pn nm '.' myint2str(ts,10) '.data']; |
| 312 |
fld=quikread_llc(fn,nx)-fld1; |
| 313 |
clf |
| 314 |
quikplot_llc(fld/9.81) |
| 315 |
caxis([-2 2]) |
| 316 |
axis([0 8641 800 7561]) |
| 317 |
title('llc2160, bottom pressure (m)') |
| 318 |
thincolorbar |
| 319 |
text(1000,1000,ts2dte(ts,45,2011,1,17)) |
| 320 |
eval(['print -dtiff -r135 ' pn 'figs/' nm myint2str(n,4)]); |
| 321 |
n=n+1; |
| 322 |
end |
| 323 |
|
| 324 |
%%%%%%%%%%%% |
| 325 |
% Eta perturbation |
| 326 |
nm='Eta'; |
| 327 |
fld1=0; |
| 328 |
fld2=0; |
| 329 |
n=1; |
| 330 |
for ts=92240:80:140720; |
| 331 |
mydisp(ts) |
| 332 |
fn=[pn nm '.' myint2str(ts,10) '.data']; |
| 333 |
fld=quikread_llc(fn,nx); |
| 334 |
fld1=fld1+fld; |
| 335 |
fld2=fld2+fld.^2; |
| 336 |
n=n+1; |
| 337 |
end |
| 338 |
fld1=fld1/n; |
| 339 |
fld2=fld2/n; |
| 340 |
writebin([pn 'EtaMean.data'],fld1); |
| 341 |
writebin([pn 'EtaMeanSquare.data'],fld2); |
| 342 |
clf reset |
| 343 |
colormap(cmap) |
| 344 |
quikplot_llc(sqrt(fld2-fld1.^2)*2*sqrt(2)) |
| 345 |
caxis([0 3]) |
| 346 |
thincolorbar |
| 347 |
axis([0 8641 800 7561]) |
| 348 |
title('Global Eta range (m): 2*sqrt(2)*std(Eta)') |
| 349 |
eval(['print -dtiff -r135 ' pn 'figs/' nm 'Range']); |
| 350 |
n=1; |
| 351 |
for ts=92240:80:140720; |
| 352 |
mydisp(ts) |
| 353 |
fn=[pn nm '.' myint2str(ts,10) '.data']; |
| 354 |
fld=quikread_llc(fn,nx)-fld1; |
| 355 |
clf |
| 356 |
quikplot_llc(fld) |
| 357 |
caxis([-1 1]*2) |
| 358 |
axis([0 8641 800 7561]) |
| 359 |
title('llc2160, Eta perturbation (m)') |
| 360 |
thincolorbar |
| 361 |
text(1000,1000,ts2dte(ts,45,2011,1,17)) |
| 362 |
eval(['print -dtiff -r135 ' pn 'figs/' nm 'Pert' myint2str(n,4)]); |
| 363 |
n=n+1; |
| 364 |
end |
| 365 |
|
| 366 |
%%%%%%%%%%%% |
| 367 |
% Theta perturbation |
| 368 |
nm='Theta'; |
| 369 |
fld1=0; |
| 370 |
n=1; |
| 371 |
for ts=92240:80:140720; |
| 372 |
mydisp(ts) |
| 373 |
fn=[pn nm '.' myint2str(ts,10) '.data']; |
| 374 |
fld1=fld1+quikread_llc(fn,nx); |
| 375 |
n=n+1; |
| 376 |
end |
| 377 |
fld1=fld1/n; |
| 378 |
n=1; |
| 379 |
clf reset |
| 380 |
colormap(cmap) |
| 381 |
for ts=92240:80:140720; |
| 382 |
mydisp(ts) |
| 383 |
fn=[pn nm '.' myint2str(ts,10) '.data']; |
| 384 |
fld=quikread_llc(fn,nx)-fld1; |
| 385 |
clf |
| 386 |
quikplot_llc(fld) |
| 387 |
caxis([-1 1]*1.5) |
| 388 |
axis([0 8641 800 7561]) |
| 389 |
title('llc2160, Theta perturbation (deg C)') |
| 390 |
thincolorbar |
| 391 |
text(1000,1000,ts2dte(ts,45,2011,1,17)) |
| 392 |
eval(['print -dtiff -r135 ' pn 'figs/' nm 'Pert' myint2str(n,4)]); |
| 393 |
n=n+1; |
| 394 |
end |
| 395 |
|
| 396 |
%%%%%%%%%%%% |
| 397 |
% Theta 12-hour difference |
| 398 |
nm='Theta'; |
| 399 |
n=1; |
| 400 |
clf reset |
| 401 |
colormap(cmap) |
| 402 |
for ts=93200:80:140720; |
| 403 |
mydisp(ts) |
| 404 |
fn1=[pn nm '.' myint2str(ts-960,10) '.data']; |
| 405 |
fn2=[pn nm '.' myint2str(ts,10) '.data']; |
| 406 |
fld=quikread_llc(fn2,nx)-quikread_llc(fn1,nx); |
| 407 |
clf |
| 408 |
quikplot_llc(fld) |
| 409 |
caxis([-1 1]) |
| 410 |
axis([0 8641 800 7561]) |
| 411 |
title('llc2160, Theta 12-hour difference (deg C)') |
| 412 |
thincolorbar |
| 413 |
text(1000,1000,ts2dte(ts,45,2011,1,17)) |
| 414 |
eval(['print -dtiff -r135 ' pn 'figs/' nm 'Diff' myint2str(n,4)]); |
| 415 |
n=n+1; |
| 416 |
end |
| 417 |
|
| 418 |
%%%%%%%%%%%% |
| 419 |
nm1='U'; nm2='V'; |
| 420 |
clf reset |
| 421 |
colormap(cmap) |
| 422 |
ts=140720; |
| 423 |
fn1=[pn nm1 '.' myint2str(ts,10) '.data']; |
| 424 |
fn2=[pn nm2 '.' myint2str(ts,10) '.data']; |
| 425 |
fl1=quikread_llc(fn1,nx); |
| 426 |
fl2=quikread_llc(fn2,nx); |
| 427 |
fld=sqrt(fl1.^2+fl2.^2); |
| 428 |
clf |
| 429 |
quikplot_llc(fld) |
| 430 |
caxis([0 1]) |
| 431 |
axis([0 8641 800 7561]) |
| 432 |
title('llc2160, ocean surface speed (m/s)') |
| 433 |
thincolorbar |
| 434 |
text(1000,1000,ts2dte(ts,45,2011,1,17),'color','w') |
| 435 |
eval(['print -dpsc ' pn 'figs/HiResSpeed']); |
| 436 |
|
| 437 |
%%%%%%%%%%%% |
| 438 |
nm1='U'; nm2='V'; |
| 439 |
n=1; |
| 440 |
clf reset |
| 441 |
colormap(cmap) |
| 442 |
for ts=92240:80:140720; |
| 443 |
mydisp(ts) |
| 444 |
fn1=[pn nm1 '.' myint2str(ts,10) '.data']; |
| 445 |
fn2=[pn nm2 '.' myint2str(ts,10) '.data']; |
| 446 |
fl1=quikread_llc(fn1,nx); |
| 447 |
fl2=quikread_llc(fn2,nx); |
| 448 |
fld=sqrt(fl1.^2+fl2.^2); |
| 449 |
clf |
| 450 |
quikplot_llc(fld) |
| 451 |
caxis([0 1]) |
| 452 |
axis([0 8641 800 7561]) |
| 453 |
title('llc2160, ocean surface speed (m/s)') |
| 454 |
thincolorbar |
| 455 |
text(1000,1000,ts2dte(ts,45,2011,1,17),'color','w') |
| 456 |
eval(['print -dtiff -r135 ' pn 'figs/Speed' myint2str(n,4)]); |
| 457 |
n=n+1; |
| 458 |
end |
| 459 |
|
| 460 |
%%%%%%%%%%%% |
| 461 |
% circum-Greenland speed |
| 462 |
nm1='U'; nm2='V'; |
| 463 |
n=1; |
| 464 |
clf reset |
| 465 |
orient landscape |
| 466 |
wysiwyg |
| 467 |
colormap(cmap) |
| 468 |
for ts=92240:80:140720; |
| 469 |
mydisp(ts) |
| 470 |
fn1=[pn nm1 '.' myint2str(ts,10) '.data']; |
| 471 |
fn2=[pn nm2 '.' myint2str(ts,10) '.data']; |
| 472 |
fl1=sqrt(quikread_llc(fn1,nx,1,'real*4',7).^2+quikread_llc(fn2,nx,1,'real*4',7).^2); |
| 473 |
fl2=sqrt(quikread_llc(fn1,nx,1,'real*4',11).^2+quikread_llc(fn2,nx,1,'real*4',11).^2); |
| 474 |
fl3=sqrt(quikread_llc(fn1,nx,1,'real*4',3).^2+quikread_llc(fn2,nx,1,'real*4',3).^2); |
| 475 |
fld=zeros(nx*2,'single'); |
| 476 |
fld(1:nx,(nx+1):end)=rot90(fl1,2); |
| 477 |
fld(1:nx,1:nx)=rot90(fl2,2); |
| 478 |
fld((nx+1):end,(nx+1):end)=rot90(fl1,1); |
| 479 |
fld((nx+1):end,1:nx)=fl3; |
| 480 |
clf |
| 481 |
quikpcolor(fld') |
| 482 |
caxis([0 1]*.8) |
| 483 |
axis([940 3080 1490 2620]) |
| 484 |
title('llc2160, ocean surface speed (m/s)') |
| 485 |
thincolorbar |
| 486 |
text(1900,2200,ts2dte(ts,45,2011,1,17),'color','w') |
| 487 |
eval(['print -dtiff -r135 ' pn 'figs/GreenSpeed' myint2str(n,4)]); |
| 488 |
n=n+1; |
| 489 |
end |
| 490 |
|
| 491 |
%%%%%%%%%%%% |
| 492 |
% circum-Greenland speed, 15-m |
| 493 |
nm1='U'; nm2='V'; |
| 494 |
k=9; % 14.68 m depth |
| 495 |
n=1; |
| 496 |
clf reset |
| 497 |
orient landscape |
| 498 |
wysiwyg |
| 499 |
colormap(cmap) |
| 500 |
for ts=92240:80:140720; |
| 501 |
mydisp(ts) |
| 502 |
fn1=[pn nm1 '.' myint2str(ts,10) '.data']; |
| 503 |
fn2=[pn nm2 '.' myint2str(ts,10) '.data']; |
| 504 |
fl1=sqrt(quikread_llc(fn1,nx,k,'real*4',7).^2+quikread_llc(fn2,nx,k,'real*4',7).^2); |
| 505 |
fl2=sqrt(quikread_llc(fn1,nx,k,'real*4',11).^2+quikread_llc(fn2,nx,k,'real*4',11).^2); |
| 506 |
fl3=sqrt(quikread_llc(fn1,nx,k,'real*4',3).^2+quikread_llc(fn2,nx,k,'real*4',3).^2); |
| 507 |
fld=zeros(nx*2,'single'); |
| 508 |
fld(1:nx,(nx+1):end)=rot90(fl1,2); |
| 509 |
fld(1:nx,1:nx)=rot90(fl2,2); |
| 510 |
fld((nx+1):end,(nx+1):end)=rot90(fl1,1); |
| 511 |
fld((nx+1):end,1:nx)=fl3; |
| 512 |
clf |
| 513 |
quikpcolor(fld') |
| 514 |
caxis([0 1]*.8) |
| 515 |
axis([940 3080 1490 2620]) |
| 516 |
title('llc2160, current speed at 15 m depth (m/s)') |
| 517 |
thincolorbar |
| 518 |
text(1900,2200,ts2dte(ts,45,2011,1,17),'color','w') |
| 519 |
eval(['print -dtiff -r135 ' pn 'figs/GreenSpeed15m' myint2str(n,4)]); |
| 520 |
n=n+1; |
| 521 |
end |
| 522 |
|
| 523 |
%%%%%%%%%%%% |
| 524 |
nm1='oceTAUX'; nm2='oceTAUY'; |
| 525 |
n=1; |
| 526 |
clf reset |
| 527 |
colormap(cmap) |
| 528 |
for ts=92240:80:140720; |
| 529 |
mydisp(ts) |
| 530 |
fn1=[pn nm1 '.' myint2str(ts,10) '.data']; |
| 531 |
fn2=[pn nm2 '.' myint2str(ts,10) '.data']; |
| 532 |
fl1=quikread_llc(fn1,nx); |
| 533 |
fl2=quikread_llc(fn2,nx); |
| 534 |
fld=sqrt(fl1.^2+fl2.^2); |
| 535 |
clf |
| 536 |
quikplot_llc(fld) |
| 537 |
caxis([0 1]/2) |
| 538 |
axis([0 8641 800 7561]) |
| 539 |
title('llc2160, ocean surface stress (Pa)') |
| 540 |
thincolorbar |
| 541 |
text(1000,1000,ts2dte(ts,45,2011,1,17),'color','w') |
| 542 |
eval(['print -dtiff -r135 ' pn 'figs/Stress' myint2str(n,4)]); |
| 543 |
n=n+1; |
| 544 |
end |
| 545 |
|
| 546 |
%%%%%%%%%%%% |
| 547 |
nm='SIheff'; |
| 548 |
n=1; |
| 549 |
clf reset |
| 550 |
colormap(cmap) |
| 551 |
for ts=92240:80:140720; |
| 552 |
mydisp(ts) |
| 553 |
fn=[pn nm '.' myint2str(ts,10) '.data']; |
| 554 |
fld=quikread_llc(fn,nx,1,'real*4',7); |
| 555 |
clf |
| 556 |
quikpcolor(rot90(fld,2)') |
| 557 |
caxis([0 10]) |
| 558 |
title('llc2160, effective sea ice thickness (m)') |
| 559 |
thincolorbar |
| 560 |
text(1500,400,ts2dte(ts,45,2011,1,17),'color','w') |
| 561 |
eval(['print -dtiff -r135 ' pn 'figs/' nm myint2str(n,4)]); |
| 562 |
n=n+1; |
| 563 |
end |
| 564 |
|
| 565 |
%%%%%%%%%%%% |
| 566 |
ts=140704; |
| 567 |
pn='/nobackupp5/dmenemen/llc_2160/MITgcm/run_crash/'; |
| 568 |
fn=[pn 'Theta.' myint2str(ts,10) '.data']; |
| 569 |
for k=1:90 |
| 570 |
fld=quikread_llc(fn,nx); |
| 571 |
disp([k minmax(fld)]) |
| 572 |
end |
Parent Directory
| 
Revision Log
| 
Revision Graph