Parent Directory
| 
Revision Log
| 
Revision Graph
Checking in work done with Dimitri on high-resolution cube gridding and parallel
communications.
o code is in a contrib experiment for now so we can continue collaborating
on it. However most code is general and will be moved into main branch once
it is fully hardened.
o There are README files in the contrib root and in the subdirectories that
explain the contents
| 1 | cnh | 1.1 | function [] = displaytiles(A) |
| 2 | % Display tiled field. | ||
| 3 | % | ||
| 4 | % Dimensions of A must be (n,n,6) | ||
| 5 | |||
| 6 | global cmin cmax | ||
| 7 | clf | ||
| 8 | |||
| 9 | cmin=min(min(min(A))); | ||
| 10 | cmax=max(max(max(A))); | ||
| 11 | if isnan(cmin) | ||
| 12 | cmin = 0; | ||
| 13 | end | ||
| 14 | if isnan(cmax) | ||
| 15 | cmax = 1; | ||
| 16 | end | ||
| 17 | if cmin==cmax | ||
| 18 | cmax = cmin+1; | ||
| 19 | end | ||
| 20 | |||
| 21 | subplot(3,4,9) | ||
| 22 | myplot(A(:,:,1)') | ||
| 23 | subplot(3,4,10) | ||
| 24 | myplot(A(:,:,2)') | ||
| 25 | subplot(3,4,6) | ||
| 26 | myplot(A(:,:,3)') | ||
| 27 | subplot(3,4,7) | ||
| 28 | myplot(A(:,:,4)') | ||
| 29 | subplot(3,4,3) | ||
| 30 | myplot(A(:,:,5)') | ||
| 31 | subplot(3,4,4) | ||
| 32 | myplot(A(:,:,6)') | ||
| 33 | |||
| 34 | |||
| 35 | %Colorbar | ||
| 36 | subplot(3,10,30) | ||
| 37 | x=0:1; | ||
| 38 | y=(0:63)'/63*(cmax-cmin)+cmin; | ||
| 39 | pcol(x,y,[y y]); | ||
| 40 | set(gca,'XTickLabel',[]); | ||
| 41 | |||
| 42 | function [] = myplot( Q ) | ||
| 43 | global cmin cmax | ||
| 44 | pcol( Q ); | ||
| 45 | caxis([cmin cmax]) |
| ViewVC Help | |
| Powered by ViewVC 1.1.22 |