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 [a]=permutetiles(b,n) |
| 2 | % a=permutetiles(b) shifts the tile data left by n places around the equator | ||
| 3 | % | ||
| 4 | % ie. n=1, tile 2->1, 4->2, 5->4, 1->5, the tiles 3 and 6 get rotated 90 degs. | ||
| 5 | |||
| 6 | c=b; | ||
| 7 | for k=1:n | ||
| 8 | |||
| 9 | a(:,:,1)=c(:,:,2); | ||
| 10 | a(:,:,2)=c(end:-1:1,:,4)'; | ||
| 11 | a(:,:,3)=c(end:-1:1,:,3)'; | ||
| 12 | a(:,:,4)=c(:,:,5); | ||
| 13 | a(:,:,5)=c(:,end:-1:1,1)'; | ||
| 14 | a(:,:,6)=c(:,end:-1:1,6)'; | ||
| 15 | |||
| 16 | c=a; | ||
| 17 | end | ||
| 18 | a=c; |
| ViewVC Help | |
| Powered by ViewVC 1.1.22 |