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	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