% daily-averaged for one year
% define desired region
more off
nx=2160;
region_name='Weddell/Region2';
minlat=-71.5;
maxlat=-61.5;
minlon=-15;
maxlon=50;
kx=1:90;

% extract indices for desired region
prec='real*4';
gdir='~/llc_2160/grid/';
fin=[gdir 'Depth.data'];
[fld fc ix jx]=quikread_llc(fin,nx,1,prec,gdir,minlat,maxlat,minlon,maxlon);
m=length(ix);
n=length(jx);
quikpcolor(double(fld)')

% Get and save grid information
pout=['~dmenemen/llc_2160/regions/' region_name '/grid/'];
eval(['mkdir ' pout])
eval(['cd ' pout])
for fnm={'AngleCS','AngleSN','DXC','DXG','DYC','DYG','Depth', ...
         'RAC','RAS','RAW','RAZ','U2zonDir','V2zonDir', ...
         'XC','XG','YC','YG','hFacC','hFacS','hFacW'}
    fin=[gdir fnm{1} '.data'];
    disp(fin)
    fout=[fnm{1} '_' int2str(m) 'x' int2str(n)];
    switch fnm{1}
      case{'hFacC','hFacS','hFacW'}
        fld=read_llc_fkij(fin,nx,fc,kx,ix,jx);
        fout=[fout 'x' int2str(length(kx))];
      otherwise
        fld=read_llc_fkij(fin,nx,fc,1,ix,jx);
    end
    writebin(fout,fld);
end

% get and save regional U/V/W/S/T
close
pin='~dmenemen/llc_2160/MITgcm/run_day49_624/';
pout=['~dmenemen/llc_2160/regions/' region_name '/'];
for fnm={'U','V','W','Salt','Theta'}
    eval(['mkdir ' pout fnm{1}])
    eval(['cd ' pout fnm{1}])
    for dy=datenum(2011,9,13):datenum(2012,9,12)
        fout=[fnm{1} '_' int2str(m) 'x' int2str(n) 'x' int2str(length(kx)) ...
              '.' datestr(dy,29)];
        for k=1:length(kx)
            fld=zeros(m,n);
            disp([fout ' ' int2str(k) ' ' datestr(now)])
            for hr=1:24
                ts=dte2ts(datestr(dy+hr/24),45,2011,1,17);
                fin=[pin fnm{1} '.' myint2str(ts,10) '.data'];
                fld=fld+read_llc_fkij(fin,nx,fc,kx(k),ix,jx)/24;
            end
            writebin(fout,fld,1,'real*4',k-1);
        end
    end
end