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	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	ts=976320:144:1037376;
8	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