| 1 | dimitri | 1.1 | % cd ~/mitgcm/bbl/MITgcm | 
| 2 | dimitri | 1.2 | lon=0:.48:11.6; lat=-70:.16:-67.7; dpt=72:144:3600; | 
| 3 |  |  | Depth=readbin('run/Depth.data',[25 15]); | 
| 4 |  |  | colormap(cmap), cx=[29.99 30.1]; | 
| 5 |  |  |  | 
| 6 |  |  | % find bottom | 
| 7 |  |  | kbot=ones(25,15); | 
| 8 |  |  | s1=35+readbin(['run.bbl/SALTanom.' myint2str(216,10) '.data'],[25 15 25]); | 
| 9 |  |  | for k=2:25 | 
| 10 |  |  | kbot(find(s1(:,:,k)>0))=k; | 
| 11 |  |  | end | 
| 12 | dimitri | 1.1 |  | 
| 13 |  |  | %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% | 
| 14 |  |  | % compare baseline, downslope, and bbl | 
| 15 | dimitri | 1.2 | colormap(cmap), cx=[29.99 30.1]; | 
| 16 |  |  | s1=zeros(25,15,25); s2=s1; s3=s1; | 
| 17 | dimitri | 1.1 | for ts=216:216:21600 | 
| 18 | dimitri | 1.2 | s1(:,:,1:25)=35+readbin(['run/SALTanom.' myint2str(ts,10) '.data'],[25 15 25]); | 
| 19 |  |  | s2(:,:,1:25)=35+readbin(['run.down_slope/SALTanom.' myint2str(ts,10) '.data'],[25 15 25]); | 
| 20 |  |  | s3(:,:,1:25)=35+readbin(['run.bbl/SALTanom.' myint2str(ts,10) '.data'],[25 15 25]); | 
| 21 | dimitri | 1.1 | clf, subplot(311) | 
| 22 | dimitri | 1.2 | mypcolor(lat,-dpt/1e3,squeeze(s1(10,:,:))'); caxis(cx), thincolorbar | 
| 23 | dimitri | 1.1 | title(['baseline salinity section on day ' int2str(ts*1200/60/60/24)]) | 
| 24 | dimitri | 1.2 | hold on, plot(lat,-Depth(10,:)/1e3,'r.-'), ylabel('depth (km)') | 
| 25 | dimitri | 1.1 | subplot(312) | 
| 26 | dimitri | 1.2 | mypcolor(lat,-dpt/1e3,squeeze(s2(10,:,:))'); caxis(cx), thincolorbar | 
| 27 | dimitri | 1.1 | title(['downslope salinity section on day ' int2str(ts*1200/60/60/24)]) | 
| 28 | dimitri | 1.2 | hold on, plot(lat,-Depth(10,:)/1e3,'r.-'), ylabel('depth (km)') | 
| 29 | dimitri | 1.1 | subplot(313) | 
| 30 | dimitri | 1.2 | mypcolor(lat,-dpt/1e3,squeeze(s3(10,:,:))'); caxis(cx), thincolorbar | 
| 31 | dimitri | 1.1 | title(['bbl salinity section on day ' int2str(ts*1200/60/60/24)]) | 
| 32 | dimitri | 1.2 | hold on, plot(lat,-Depth(10,:)/1e3,'r.-'), ylabel('depth (km)') | 
| 33 |  |  | xlabel('latitude (deg)'), pause(.1) | 
| 34 | dimitri | 1.1 | end | 
| 35 |  |  |  | 
| 36 |  |  | %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% | 
| 37 |  |  | % look at some diagnostics from bbl integration | 
| 38 |  |  | for ts=216:216:21600 | 
| 39 |  |  | s1=35+readbin(['run.bbl/SALTanom.' myint2str(ts,10) '.data'],[25 15 25]); | 
| 40 | dimitri | 1.2 | clf, subplot(321), mypcolor(lat,-dpt/1e3,squeeze(s1(10,:,:))'); caxis(cx), thincolorbar | 
| 41 | dimitri | 1.1 | title(['salinity section on day ' int2str(ts*1200/60/60/24)]) | 
| 42 |  |  | s2=kbot; for i=1:25, for j=1:15, s2(i,j)=s1(i,j,kbot(i,j)); end, end | 
| 43 | dimitri | 1.2 | subplot(322), mypcolor(s2'); caxis(cx), thincolorbar | 
| 44 |  |  | title('salinity of bottom grid box') | 
| 45 | dimitri | 1.1 | s3=readbin(['run.bbl/BBLsalt.' myint2str(ts,10) '.data'],[25 15]); | 
| 46 | dimitri | 1.2 | subplot(323), mypcolor(s3'); caxis(cx), thincolorbar | 
| 47 |  |  | title('salinity of bbl') | 
| 48 | dimitri | 1.1 | subplot(324), mypcolor(s3'-s2'); thincolorbar | 
| 49 |  |  | title('bbl salinity minus bottom salinity') | 
| 50 | dimitri | 1.2 | tendS=readbin(['run.bbl/BBLtendS.' myint2str(ts,10) '.data'],[25 15]); | 
| 51 |  |  | subplot(325), mypcolor(tendS'); caxis([-1 1]*3e-9), thincolorbar | 
| 52 |  |  | title('bottom salinity tendency due to bbl'), pause(.1) | 
| 53 |  |  | end | 
| 54 |  |  |  | 
| 55 |  |  | %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% | 
| 56 |  |  | % check that tendency integrates to zero | 
| 57 |  |  | RAC=readbin('run.bbl/RAC.data',[25 15]); | 
| 58 |  |  | hFacC=readbin('run.bbl/hFacC.data',[25 15 25]); | 
| 59 |  |  | for i=1:25 | 
| 60 |  |  | for j=1:15 | 
| 61 |  |  | RAC(i,j)=RAC(i,j)*hFacC(i,j,kbot(i,j)); | 
| 62 |  |  | end | 
| 63 |  |  | end | 
| 64 |  |  | for ts=216:216:21600 | 
| 65 |  |  | eta=readbin(['run.bbl/BBLeta.' myint2str(ts,10) '.data'],[25 15]); | 
| 66 |  |  | tendS=readbin(['run.bbl/BBLtendS.' myint2str(ts,10) '.data'],[25 15]); | 
| 67 |  |  | tmp=RAC.*tendS; | 
| 68 |  |  | disp([ts sum(tmp(:))]), pause(1) | 
| 69 | dimitri | 1.1 | end |