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;
ts=976320:144:1037376;
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	dimitri	1.2	ts=976320:144:1037376;
8	dimitri	1.1	for t=ts, disp(t)
9			for f=1:length(fld)
10			fnm=[pn fld{f} '.' myint2str(t,10) '.data'];
11			D=dir(fnm);
12			switch fld{f}
13			case{'Salt','Theta','U','V','W'}
14			sz=87340032000;
15			otherwise
16			sz=970444800;
17			end
18			if D.bytes~=sz
19			error(['Wrong file size for ' fnm])
20			end
21			end
22			end