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	gforget	1.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