1 |
|
2 |
nc=32; ncp=nc+1; |
3 |
|
4 |
inpName='tile.mitgrid'; |
5 |
rDir='./'; |
6 |
vvg=zeros(ncp,ncp,16); |
7 |
|
8 |
for n=1:6, |
9 |
%-- read : |
10 |
%- XC YC DXF DYF RA XG YG DXV DYU RAZ DXC DYC RAW RAS DXG DYG: |
11 |
namV=sprintf('LONC.%3.3i.bin',n); |
12 |
var=rdda(namV,[nc nc],1,'real*8','b'); vvg(1:nc,1:nc,1)=var; |
13 |
namV=sprintf('LATC.%3.3i.bin',n); |
14 |
var=rdda(namV,[nc nc],1,'real*8','b'); vvg(1:nc,1:nc,2)=var; |
15 |
namV='DXF.bin'; |
16 |
var=rdda(namV,[nc nc],1,'real*8','b'); vvg(1:nc,1:nc,3)=var; |
17 |
namV='DYF.bin'; |
18 |
var=rdda(namV,[nc nc],1,'real*8','b'); vvg(1:nc,1:nc,4)=var; |
19 |
namV='RA.bin'; |
20 |
var=rdda(namV,[nc nc],1,'real*8','b'); vvg(1:nc,1:nc,5)=var; |
21 |
%-- |
22 |
namV=sprintf('LONG.%3.3i.bin',n); |
23 |
var=rdda(namV,[ncp ncp],1,'real*8','b'); vvg(:,:,6)=var; |
24 |
namV=sprintf('LATG.%3.3i.bin',n); |
25 |
var=rdda(namV,[ncp ncp],1,'real*8','b'); vvg(:,:,7)=var; |
26 |
namV='DXV.bin'; |
27 |
var=rdda(namV,[ncp ncp],1,'real*8','b'); vvg(:,:,8)=var; |
28 |
namV='DYU.bin'; |
29 |
var=rdda(namV,[ncp ncp],1,'real*8','b'); vvg(:,:,9)=var; |
30 |
namV='RAZ.bin'; |
31 |
var=rdda(namV,[ncp ncp],1,'real*8','b'); vvg(:,:,10)=var; |
32 |
%-- |
33 |
namV='DXC.bin'; |
34 |
var=rdda(namV,[ncp nc],1,'real*8','b'); vvg(:,1:nc,11)=var; |
35 |
namV='DYC.bin'; |
36 |
var=rdda(namV,[nc ncp],1,'real*8','b'); vvg(1:nc,:,12)=var; |
37 |
namV='RAW.bin'; |
38 |
var=rdda(namV,[ncp nc],1,'real*8','b'); vvg(:,1:nc,13)=var; |
39 |
namV='RAS.bin'; |
40 |
var=rdda(namV,[nc ncp],1,'real*8','b'); vvg(1:nc,:,14)=var; |
41 |
namV='DXG.bin'; |
42 |
var=rdda(namV,[nc ncp],1,'real*8','b'); vvg(1:nc,:,15)=var; |
43 |
namV='DYG.bin'; |
44 |
var=rdda(namV,[ncp nc],1,'real*8','b'); vvg(:,1:nc,16)=var; |
45 |
%- XC YC DXF DYF RA XG YG DXV DYU RAZ DXC DYC RAW RAS DXG DYG: |
46 |
namF=sprintf([rDir,inpName(1:4),'%3.3i',inpName(5:end)],n); |
47 |
fid=fopen(namF,'w','b'); |
48 |
fwrite(fid,vvg,'real*8'); |
49 |
fclose(fid); |
50 |
s=prod(size(vvg)); |
51 |
fprintf(['write: ',namF,' : size: %i (%ix%ix%i)\n'],s,ncp,ncp,s/ncp/ncp); |
52 |
end |