matlab_class/gcmfaces_devel/example_reformat.m


%%%%%%%%%%%%%%%%%%%%%%%%
%format conversions
if myenv.verbose>0;
    gcmfaces_msg('* call convert2array : convert from gcmfaces to array format');
end;
obsArray=convert2array(obsMap);%put in gcmfaces format
if myenv.verbose>0;
    gcmfaces_msg('* call convert2array : convert back to gcmfaces');
end;
obsMap2=convert2array(obsArray);%put in gcmfaces format
if myenv.verbose>0;
    gcmfaces_msg('* call convert2gcmfaces : convert from gcmfaces to file format');
end;
obsOut=convert2gcmfaces(obsMap);        %put in gcm input format
if myenv.verbose>0;
    gcmfaces_msg('* summarizing data formats:');
    aa=whos('obs*');
    aaa=aa(4); bb=['[' num2str(aaa.size(1)) 'x' num2str(aaa.size(2)) ']'];
    bb=fprintf('   %8s %8s %12s    : data points (vector)\n',aaa.name,aaa.class,bb);
    aaa=aa(2); bb=['[' num2str(aaa.size(1)) 'x' num2str(aaa.size(2)) ']'];
    bb=fprintf('   %8s %8s %12s    : gridded data (gcmfaces)\n',aaa.name,aaa.class,bb);
    aaa=aa(1); bb=['[' num2str(aaa.size(1)) 'x' num2str(aaa.size(2)) ']'];
    bb=fprintf('   %8s %8s %12s    : array format\n',aaa.name,aaa.class,bb);
    aaa=aa(3); bb=['[' num2str(aaa.size(1)) 'x' num2str(aaa.size(2)) ']'];
    bb=fprintf('   %8s %8s %12s    : output format\n',aaa.name,aaa.class,bb);
end;

1
2	%%%%%%%%%%%%%%%%%%%%%%%%
3	%format conversions
4	if myenv.verbose>0;
5	gcmfaces_msg('* call convert2array : convert from gcmfaces to array format');
6	end;
7	obsArray=convert2array(obsMap);%put in gcmfaces format
8	if myenv.verbose>0;
9	gcmfaces_msg('* call convert2array : convert back to gcmfaces');
10	end;
11	obsMap2=convert2array(obsArray);%put in gcmfaces format
12	if myenv.verbose>0;
13	gcmfaces_msg('* call convert2gcmfaces : convert from gcmfaces to file format');
14	end;
15	obsOut=convert2gcmfaces(obsMap); %put in gcm input format
16	if myenv.verbose>0;
17	gcmfaces_msg('* summarizing data formats:');
18	aa=whos('obs*');
19	aaa=aa(4); bb=['[' num2str(aaa.size(1)) 'x' num2str(aaa.size(2)) ']'];
20	bb=fprintf(' %8s %8s %12s : data points (vector)\n',aaa.name,aaa.class,bb);
21	aaa=aa(2); bb=['[' num2str(aaa.size(1)) 'x' num2str(aaa.size(2)) ']'];
22	bb=fprintf(' %8s %8s %12s : gridded data (gcmfaces)\n',aaa.name,aaa.class,bb);
23	aaa=aa(1); bb=['[' num2str(aaa.size(1)) 'x' num2str(aaa.size(2)) ']'];
24	bb=fprintf(' %8s %8s %12s : array format\n',aaa.name,aaa.class,bb);
25	aaa=aa(3); bb=['[' num2str(aaa.size(1)) 'x' num2str(aaa.size(2)) ']'];
26	bb=fprintf(' %8s %8s %12s : output format\n',aaa.name,aaa.class,bb);
27	end;
28