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 | function DXC=tile_fld(PN,fn,nx) |
| 2 | |
| 3 | DXC=zeros(nx,6,nx); |
| 4 | switch fn |
| 5 | case {'DXF','DYF','RA'}, tmp=readbin([PN fn '.bin'],[nx nx],1,'real*8'); |
| 6 | case {'DXC','DYG','RAW'}, tmp=readbin([PN fn '.bin'],[nx+1 nx],1,'real*8'); |
| 7 | case {'DYC','DXG','RAS'}, tmp=readbin([PN fn '.bin'],[nx nx+1],1,'real*8'); |
| 8 | case {'DXV','DYU','RAZ'}, tmp=readbin([PN fn '.bin'],[nx+1 nx+1],1,'real*8'); |
| 9 | otherwise, error('field not recognized') |
| 10 | end |
| 11 | |
| 12 | for i=1:6 |
| 13 | DXC(:,i,:)=tmp(1:nx,1:nx); |
| 14 | end |
| ViewVC Help | |
| Powered by ViewVC 1.1.22 |