matlab_class/gcmfaces_IO/check_mygrid.m


%expected result:
%
%difference in dirGrid
%difference in fileFormat
%difference in RF
%structure LATS_MASKS remains to be checked
%structure LINES_MASKS remains to be checked

clear all;

load mygrid_nctiles.mat;
%load mygrid_new.mat;
mygrid1=mygrid; mygrid=[];
load mygrid_old.mat;
mygrid2=mygrid; mygrid=[];

list1=fieldnames(mygrid1);
list2=fieldnames(mygrid2);
if length(list1)~=length(list2);
 error('missing variables');
end;

for ii=1:length(list1);
 if sum(strcmp(list2,list1{ii}))~=1;
  error('missing variable');
 end;
 tmp1=getfield(mygrid1,list1{ii});
 tmp2=getfield(mygrid2,list1{ii});
 if ischar(tmp1);
   if ~strcmp(tmp1,tmp2); fprintf(['\n difference in ' list1{ii} '\n']); end;
 elseif isstruct(tmp1);
   fprintf(['\n structure ' list1{ii} ' remains to be checked\n']);
   %disp(tmp1); disp(tmp2);
 elseif isnumeric(tmp1);
   if sum(size(tmp1)~=size(tmp2))>0;
     fprintf(['\n size difference in ' list1{ii} '\n']);
   else;
     tmp3=max(abs(tmp1(:)-tmp2(:)));
     tmp4=max(abs(isnan(tmp1(:))-isnan(tmp2(:))));
     if tmp3~=0|tmp4~=0; fprintf(['\n difference in ' list1{ii} '\n']); end;
   end;
 elseif islogical(tmp1)|isa(tmp1,'gcmfaces');
   tmp3=max(abs(tmp1(:)-tmp2(:)));
   tmp4=max(abs(isnan(tmp1(:))-isnan(tmp2(:))));
   if tmp3~=0|tmp4~=0; fprintf(['\n difference in ' list1{ii} '\n']); end; 
 else;
  error('missing type');
 end;
end;

1	gforget	1.1
2			%expected result:
3			%
4			%difference in dirGrid
5			%difference in fileFormat
6			%difference in RF
7			%structure LATS_MASKS remains to be checked
8			%structure LINES_MASKS remains to be checked
9
10			clear all;
11
12			load mygrid_nctiles.mat;
13			%load mygrid_new.mat;
14			mygrid1=mygrid; mygrid=[];
15			load mygrid_old.mat;
16			mygrid2=mygrid; mygrid=[];
17
18			list1=fieldnames(mygrid1);
19			list2=fieldnames(mygrid2);
20			if length(list1)~=length(list2);
21			error('missing variables');
22			end;
23
24			for ii=1:length(list1);
25			if sum(strcmp(list2,list1{ii}))~=1;
26			error('missing variable');
27			end;
28			tmp1=getfield(mygrid1,list1{ii});
29			tmp2=getfield(mygrid2,list1{ii});
30			if ischar(tmp1);
31			if ~strcmp(tmp1,tmp2); fprintf(['\n difference in ' list1{ii} '\n']); end;
32			elseif isstruct(tmp1);
33			fprintf(['\n structure ' list1{ii} ' remains to be checked\n']);
34			%disp(tmp1); disp(tmp2);
35			elseif isnumeric(tmp1);
36			if sum(size(tmp1)~=size(tmp2))>0;
37			fprintf(['\n size difference in ' list1{ii} '\n']);
38			else;
39			tmp3=max(abs(tmp1(:)-tmp2(:)));
40			tmp4=max(abs(isnan(tmp1(:))-isnan(tmp2(:))));
41			if tmp3~=0\|tmp4~=0; fprintf(['\n difference in ' list1{ii} '\n']); end;
42			end;
43			elseif islogical(tmp1)\|isa(tmp1,'gcmfaces');
44			tmp3=max(abs(tmp1(:)-tmp2(:)));
45			tmp4=max(abs(isnan(tmp1(:))-isnan(tmp2(:))));
46			if tmp3~=0\|tmp4~=0; fprintf(['\n difference in ' list1{ii} '\n']); end;
47			else;
48			error('missing type');
49			end;
50			end;
51