llc_hires/llc_4320/check_output.m

pn='~dmenemen/llc_4320/MITgcm/run_485568/';
fld={'Eta','KPPhbl','PhiBot','SIarea','SIheff','SIhsalt', ...
     'SIhsnow','SIuice','SIvice','oceFWflx','oceQnet', ...
     'oceQsw','oceSflux','oceTAUX','oceTAUY', ...
     'Salt','Theta','U','V','W'};
ts=485568:144:976320;
for t=ts, disp(t)
    for f=1:length(fld)
        fnm=[pn fld{f} '.' myint2str(t,10) '.data'];
        D=dir(fnm);
        switch fld{f}
          case{'Salt','Theta','U','V','W'}
            sz=87340032000;
          otherwise
            sz=970444800;
        end
        if D.bytes~=sz
            error(['Wrong file size for ' fnm])
        end
    end
end
1	dimitri	1.1	pn='~dmenemen/llc_4320/MITgcm/run_485568/';
2			fld={'Eta','KPPhbl','PhiBot','SIarea','SIheff','SIhsalt', ...
3			'SIhsnow','SIuice','SIvice','oceFWflx','oceQnet', ...
4			'oceQsw','oceSflux','oceTAUX','oceTAUY', ...
5			'Salt','Theta','U','V','W'};
6			ts=485568:144:976320;
7			for t=ts, disp(t)
8			for f=1:length(fld)
9			fnm=[pn fld{f} '.' myint2str(t,10) '.data'];
10			D=dir(fnm);
11			switch fld{f}
12			case{'Salt','Theta','U','V','W'}
13			sz=87340032000;
14			otherwise
15			sz=970444800;
16			end
17			if D.bytes~=sz
18			error(['Wrong file size for ' fnm])
19			end
20			end
21			end