eddy_flux/c22/plot_c22.m

%=======================================================
%
%  $Id: plot_c22.m,v 1.10 2005/04/20 21:43:11 edhill Exp $
%
%  Ed Hill
%

%  The following are the MatLAB commands used to create the various
%  plots related to eddy fluxes using average velocities and densities
%  (called bouyancy or "b" in many of the variables) from Dimitris'
%  "cube_22" or "c22" integration.

%  ssh eddy
%  cd /r/r0/edhill/eddy_stats/c22

%  matlab -nojvm
%  matlab -nojvm -nodisplay

  clear all
  close all


  %==================================================================
  %  Read the tile00?.mitgrid files
  gvars = { 'XC','YC','DXF','DYF','RA','XG','YG','DXV', ...
            'DYU','RAZ','DXC','DYC','RAW','RAS','DXG','DYG' };

  ne = 510;
  nep1 = ne + 1;
  iface = 1;
  for iface = 1:6
    fname = sprintf('grid/tile%03d.mitgrid', iface);
    gid = fopen(fname, 'r', 'ieee-be');
    tmp = reshape(fread(gid,inf,'real*8',0,'ieee-be'),[nep1,nep1,16]);
    fclose(gid);
    %  surf(tmp(:,:,1)), view(2), shading interp
    %  for jj = 1:length(gvars)
    for jj = 1:7
      comm = sprintf('%s(:,:,%d) = tmp(:,:,%d);', ...
                     [gvars{jj}], iface, jj);
      eval(comm);
    end
  end
  %  surf(XC(:,:,1)), view(2), shading interp
  %  subplot(2,1,1),  a = [1:10];     surf(XC(a,a,1)), view(2)
  %  subplot(2,1,2),  a = [(nep1-10):nep1];  surf(XC(a,a,1)), view(2)
  %  surf(YC(:,:,1)), view(2), shading interp
  %  surf(XG(:,:,1)), view(2), shading interp
  %  surf(YG(:,:,1)), view(2), shading interp
  is = [1:ne];
  vs = { 'XC','YC','DXF','DYF','RA' };
  for i = 1:length(vs)
    eval(sprintf('%s = %s(is,is,:);',vs{i},vs{i}));
  end

  delR = [ ...
      10.00, 10.00, 10.00, 10.00, 10.00, 10.00, 10.00, 10.01, ...
      10.03, 10.11, 10.32, 10.80, 11.76, 13.42, 16.04 , 19.82, 24.85, ...
      31.10, 38.42, 46.50, 55.00, 63.50, 71.58, 78.90, 85.15, 90.18, ...
      93.96, 96.58, 98.25, 99.25,100.01,101.33,104.56,111.33,122.83, ...
      139.09,158.94,180.83,203.55,226.50,249.50,272.50,295.50,318.50, ...
      341.50,364.50,387.50,410.50,433.50,456.50 ];
  R = cumsum(delR) - 0.5*delR;
  
  %==================================================================
  %  Project fields to lower-res 1-degree Lat-Lon and write 
  %  as NetCDF for viewing with Ingrid
  %
  fields_3d = { ...
      'DRHODR', 'RHOANOSQ', 'RHOAnoma', 'SALT', 'SALTSQ', ...
      'THETA', 'THETASQ', 'URHOMASS', ...
      'USLTMASS', 'UTHMASS', 'UVEL', 'UVELMASS', 'UVELSQ', ...
      'UV_VEL_Z', 'VRHOMASS', 'VSLTMASS', 'VTHMASS', ...
      'VVEL', 'VVELMASS', 'VVELSQ', 'WRHOMASS', 'WSLTMASS', ...
      'WTHMASS', 'WU_VEL', 'WVELMASS', 'WVELSQ', 'WV_VEL' };
  fields_2d = { ...
      'ETAN', 'ETANSQ', 'EmPmRtave', 'PHIBOT', 'SFLUX', 'SRELAX', ...
      'TAUX', 'TAUY', 'TFLUX', ...
      'TICE', 'TRELAX', 'UICEtave', 'VICEtave' };
  
  ne = 510;
  nf = 6;
  nz = 50;
  nslab = ne*ne*nf;
  adir = 'ave_1992-2004';
  lat = [-90:90];
  lon = [0:360];
  ir = [ 1 2 3 5 10 15 20 25 30 35 40 50 ];
  
  %  ! rm -f cube_22_at1deg.nc
  nc = netcdf(['cube_22_at1deg.nc'], 'clobber');
  nc.reference = [ 'The cube_22 averages from Dimitris Menemenlis' ...
                   ' regridded to 1-deg Lat-Lon' ];
  nc.author = 'Ed Hill <eh3@mit.edu>';
  nc.date = 'Mar 27, 2005';
  nc('X') = length(lon);
  nc('Y') = length(lat);
  nc('Z') = length(ir);
  nc{'X'} = 'X';
  nc{'Y'} = 'Y';
  nc{'Z'} = 'Z';
  nc{'X'}.uniquename = 'X';
  nc{'X'}.long_name = 'longitude';
  nc{'X'}.gridtype = ncint(1);
  nc{'X'}.units = 'degree_east';
  nc{'Y'}.uniquename = 'Y';
  nc{'Y'}.long_name = 'latitude';
  nc{'Y'}.gridtype = ncint(0);
  nc{'Y'}.units = 'degree_north';
  nc{'Z'}.uniquename = 'Z';
  nc{'Z'}.long_name = 'depth';
  nc{'Z'}.gridtype = ncint(0);
  nc{'Z'}.units = 'm';
  nc{'X'}(:) = lon;
  nc{'Y'}(:) = lat;
  nc{'Z'}(:) = R(ir);
  
  ifld = 5;
  fields = union(fields_2d, fields_3d);
  for ifld = 1:length(fields)
    
    id = fields{ifld};
    if ismember(fields{ifld},fields_3d)
      ir = [ 1 2 3 5 10 15 20 25 30 35 40 50 ];
      nc{ id } = { 'Z' 'Y' 'X' };
    else
      ir = [ 1 ];
      nc{ id } = { 'Y' 'X' };
    end
    nc{ id }.missing_value = ncdouble(NaN);
    nc{ id }.FillValue_ = ncdouble(0.0);

    disp([ '  ' fields{ifld} ' :' ]);

    fname = sprintf('%s/%s.ave',adir,fields{ifld});
    fid = fopen(fname,'r','ieee-be');
    
    ii = 1;
    for ii = 1:length(ir)

      iz = ir(ii);
      disp(sprintf('    iz = %g',iz));
      
      fseek(fid,nslab*4*(iz-1),'bof');
      tmp = fread(fid,nslab,'real*4',0,'ieee-be');
      tr = permute(reshape(tmp,[ 510 6 510 ]),[1 3 2]);
      %  surf(tr(:,:,1)), view(2), shading interp
      xc360 = XC + 180;
      trn = tr;
      trn(find(tr == 0.0)) = NaN;
      clear tmp tr
      %  v = sdac_regrid(xc360,YC,trn,lonm,latm);
      v = ll_regrid(xc360,YC,trn,lon,lat);
      %  surf(lon,lat,v'), caxis([25 40]), view(2), shading interp, colorbar

      if length(ir) == 1
        nc{ id }(:,:) = permute(v,[2 1]);
      else
        nc{ id }(ii,:,:) = permute(v,[2 1]);
      end
      
    end
    
    fclose(fid);
  
  end

  nc = close(nc);


  %  ! ncdump cube_22_at1deg.nc | more
  %  ! scp cube_22_at1deg.nc channel.mit.edu:/home/edhill/INGRID_PEOPLE/EH3/eddy_flux/cube_22/


  %=======================================================
  %  Compute [uvw]'[tsb]'
  
  clear all
  close all
  
  gvars = { 'XC','YC','DXF','DYF','RA','XG','YG','DXV', ...
            'DYU','RAZ','DXC','DYC','RAW','RAS','DXG','DYG' };
  ne = 510;
  nep1 = ne + 1;
  iface = 1;
  for iface = 1:6
    fname = sprintf('grid/tile%03d.mitgrid', iface);
    gid = fopen(fname, 'r', 'ieee-be');
    tmp = reshape(fread(gid,inf,'real*8',0,'ieee-be'),[nep1,nep1,16]);
    fclose(gid);
    %  surf(tmp(:,:,1)), view(2), shading interp
    %  for jj = 1:length(gvars)
    for jj = 1:7
      comm = sprintf('%s(:,:,%d) = tmp(:,:,%d);', ...
                     [gvars{jj}], iface, jj);
      eval(comm);
    end
  end
  %  surf(XC(:,:,1)), view(2), shading interp
  %  subplot(2,1,1),  a = [1:10];     surf(XC(a,a,1)), view(2)
  %  subplot(2,1,2),  a = [(nep1-10):nep1];  surf(XC(a,a,1)), view(2)
  %  surf(YC(:,:,1)), view(2), shading interp
  %  surf(XG(:,:,1)), view(2), shading interp
  %  surf(YG(:,:,1)), view(2), shading interp
  is = [1:ne];
  vs = { 'XC','YC','DXF','DYF','RA' };
  for i = 1:length(vs)
    eval(sprintf('%s = %s(is,is,:);',vs{i},vs{i}));
  end

  delR = [ ...
      10.00, 10.00, 10.00, 10.00, 10.00, 10.00, 10.00, 10.01, ...
      10.03, 10.11, 10.32, 10.80, 11.76, 13.42, 16.04 , 19.82, 24.85, ...
      31.10, 38.42, 46.50, 55.00, 63.50, 71.58, 78.90, 85.15, 90.18, ...
      93.96, 96.58, 98.25, 99.25,100.01,101.33,104.56,111.33,122.83, ...
      139.09,158.94,180.83,203.55,226.50,249.50,272.50,295.50,318.50, ...
      341.50,364.50,387.50,410.50,433.50,456.50 ];
  R = cumsum(delR) - 0.5*delR;

  n1 = ne - 1;
  dux = zeros(size(XC));
  duy = zeros(size(XC));
  dvx = zeros(size(XC));
  dvy = zeros(size(XC));
  dux(:,:,:) = diff(XG(:,1:ne,:),1,1);
  dvx(:,:,:) = diff(XG(1:ne,:,:),1,2);
  duy(:,:,:) = diff(YG(:,1:ne,:),1,1);
  dvy(:,:,:) = diff(YG(1:ne,:,:),1,2);
  dux = dux + 360*double(dux < 180); 
  dux = dux - 360*double(dux > 180);  %  [ min(min(dux)) max(max(dux)) ]
  duy = duy + 360*double(duy < 180);
  duy = duy - 360*double(duy > 180);  %  [ min(min(duy)) max(max(duy)) ]
  dvx = dvx + 360*double(dvx < 180);
  dvx = dvx - 360*double(dvx > 180);  %  [ min(min(dvx)) max(max(dvx)) ]
  dvy = dvy + 360*double(dvy < 180);
  dvy = dvy - 360*double(dvy > 180);  %  [ min(min(dvy)) max(max(dvy)) ]
  dut = sqrt(dux.^2 + duy.^2);
  dvt = sqrt(dvx.^2 + dvy.^2);
  llux = dux ./ dut;
  lluy = duy ./ dut;
  llvx = dvx ./ dvt;
  llvy = dvy ./ dvt;
  clear XC XG YG DXF DYF RA tmp
  clear dux duy dvx dvy

  lpath = 'ave_1992-2004/';
  u__id = fopen( [lpath 'UVEL.ave'], 'r', 'ieee-be');      %   1
  v__id = fopen( [lpath 'VVEL.ave'], 'r', 'ieee-be');      %   2
  u2_id = fopen( [lpath 'UVELSQ.ave'], 'r', 'ieee-be');    %   3
  v2_id = fopen( [lpath 'VVELSQ.ave'], 'r', 'ieee-be');    %   4
  w2_id = fopen( [lpath 'WVELSQ.ave'], 'r', 'ieee-be');    %   5
  um_id = fopen( [lpath 'UVELMASS.ave'], 'r', 'ieee-be');  %   6
  vm_id = fopen( [lpath 'VVELMASS.ave'], 'r', 'ieee-be');  %   7
  wm_id = fopen( [lpath 'WVELMASS.ave'], 'r', 'ieee-be');  %   8
  t__id = fopen( [lpath 'THETA.ave'], 'r', 'ieee-be');     %   9
  t2_id = fopen( [lpath 'THETASQ.ave'], 'r', 'ieee-be');   %  10
  s__id = fopen( [lpath 'SALT.ave'], 'r', 'ieee-be');      %  11
  s2_id = fopen( [lpath 'SALTSQ.ave'], 'r', 'ieee-be');    %  12
  b__id = fopen( [lpath 'RHOAnoma.ave'], 'r', 'ieee-be');  %  13
  b2_id = fopen( [lpath 'RHOANOSQ.ave'], 'r', 'ieee-be');  %  14
  ut_id = fopen( [lpath 'UTHMASS.ave'], 'r', 'ieee-be');   %  15
  vt_id = fopen( [lpath 'VTHMASS.ave'], 'r', 'ieee-be');   %  16
  wt_id = fopen( [lpath 'WTHMASS.ave'], 'r', 'ieee-be');   %  17
  us_id = fopen( [lpath 'USLTMASS.ave'], 'r', 'ieee-be');  %  18
  vs_id = fopen( [lpath 'VSLTMASS.ave'], 'r', 'ieee-be');  %  19
  ws_id = fopen( [lpath 'WSLTMASS.ave'], 'r', 'ieee-be');  %  20
  ub_id = fopen( [lpath 'URHOMASS.ave'], 'r', 'ieee-be');  %  21
  vb_id = fopen( [lpath 'VRHOMASS.ave'], 'r', 'ieee-be');  %  22
  wb_id = fopen( [lpath 'WRHOMASS.ave'], 'r', 'ieee-be');  %  23
  dr_id = fopen( [lpath 'DRHODR.ave'], 'r', 'ieee-be');    %  24
  iids = [ u__id v__id u2_id v2_id w2_id um_id vm_id wm_id ... 
           t__id t2_id s__id s2_id b__id b2_id ...
           ut_id vt_id wt_id us_id vs_id ws_id ...
           ub_id vb_id wb_id dr_id ];

  %  ! rm -rf primes_92_04 ; mkdir primes_92_04
  opath = 'primes_92_04/';
  up2___id = fopen([opath 'up2'], 'wb', 'ieee-be');
  vp2___id = fopen([opath 'vp2'], 'wb', 'ieee-be');
  wp2___id = fopen([opath 'wp2'], 'wb', 'ieee-be');
  tp2___id = fopen([opath 'tp2'], 'wb', 'ieee-be');
  sp2___id = fopen([opath 'sp2'], 'wb', 'ieee-be');
  bp2___id = fopen([opath 'bp2'], 'wb', 'ieee-be');
  uptp__id = fopen([opath 'uptp'], 'wb', 'ieee-be');
  vptp__id = fopen([opath 'vptp'], 'wb', 'ieee-be');
  wptp__id = fopen([opath 'wptp'], 'wb', 'ieee-be');
  upsp__id = fopen([opath 'upsp'], 'wb', 'ieee-be');
  vpsp__id = fopen([opath 'vpsp'], 'wb', 'ieee-be');
  wpsp__id = fopen([opath 'wpsp'], 'wb', 'ieee-be');
  upbp__id = fopen([opath 'upbp'], 'wb', 'ieee-be');
  vpbp__id = fopen([opath 'vpbp'], 'wb', 'ieee-be');
  wpbp__id = fopen([opath 'wpbp'], 'wb', 'ieee-be');
  vpbpdzid = fopen([opath 'vpbp_dbdz'], 'wb', 'ieee-be');
  str___id = fopen([opath 'stress'], 'wb', 'ieee-be');
  dbdy__id = fopen([opath 'dbdy'], 'wb', 'ieee-be');
  K_____id = fopen([opath 'K'], 'wb', 'ieee-be');

  comm = [ 'permute(reshape(fread( id ,nslab,''real*4'',0,' ...
           '''ieee-be''),[ne 6 ne]),[1 3 2]);' ];
  readslab = inline(comm,'id','nslab','ne');
  
  ne = 510;
  nslab = 6 * ne * ne;
  nztot = 50;
  iz = 1;
  for iz = 1:nztot

    disp(sprintf('  iz = %d',iz)); 
    offset = (iz - 1)*nslab*4;
    for iid = 1:length(iids)
      fseek(iids(iid), offset, 'bof');
    end
    t  = readslab(t__id,nslab,ne);   t2 = readslab(t2_id,nslab,ne);
    nan_inds = find(t == 0.0);
    u  = readslab(u__id,nslab,ne);   u2 = readslab(u2_id,nslab,ne);
    v  = readslab(v__id,nslab,ne);   v2 = readslab(v2_id,nslab,ne);
    um = readslab(um_id,nslab,ne);   vm = readslab(vm_id,nslab,ne);
    wm = readslab(wm_id,nslab,ne);   w2 = readslab(w2_id,nslab,ne);
    s  = readslab(s__id,nslab,ne);   s2 = readslab(s2_id,nslab,ne);
    b  = readslab(b__id,nslab,ne);   b2 = readslab(b2_id,nslab,ne);
    %  surf(v2(:,:,1)), view(2), shading interp, colorbar
    vars = { 'u','v','um','vm','wm','u2','v2','w2',...
             's','s2','t','t2','b','b2' };
    for i = 1:length(vars)
      eval(sprintf('%s(nan_inds) = NaN;',vars{i}));
    end
    if (iz < nztot)
      wmp1 = readslab(wm_id,nslab,ne);
    else
      wmp1 = zeros(size(wm));
    end
    wmp05 = (wm + wmp1)/2.0;

    %  "simple squared" quantities
    up2 = u2 - u.^2;
    vp2 = v2 - v.^2;
    wp2 = w2 - wm.^2;
    fwrite(up2___id, up2, 'real*4');
    fwrite(vp2___id, vp2, 'real*4');
    fwrite(wp2___id, wp2, 'real*4');
    clear up2 vp2 wp2 u2 v2 w2
    tp2 = t2 - t.^2;
    sp2 = s2 - s.^2;
    bp2 = b2 - b.^2;
    fwrite(tp2___id, tp2, 'real*4');
    fwrite(sp2___id, sp2, 'real*4');
    fwrite(bp2___id, bp2, 'real*4');
    clear tp2 sp2 bp2 t2 s2 b2
    
    ut = readslab(ut_id,nslab,ne);   vt = readslab(vt_id,nslab,ne);
    us = readslab(us_id,nslab,ne);   vs = readslab(vs_id,nslab,ne);
    ub = readslab(ub_id,nslab,ne);   vb = readslab(vb_id,nslab,ne);
    drhodr = readslab(dr_id,nslab,ne);
    vars = { 'ut','vt','us','vs','ub','vb' };
    for i = 1:length(vars)
      eval(sprintf('%s(nan_inds) = NaN;',vars{i}));
    end
    [ tonu, tonv ] = mass_on_u_v(t);
    [ sonu, sonv ] = mass_on_u_v(s);
    [ bonu, bonv ] = mass_on_u_v(b);
    uptp = ut - um .* tonu;    vptp = vt - vm .* tonv;
    upsp = us - um .* sonu;    vpsp = vs - vm .* sonv;
    upbp = ub - um .* bonu;    vpbp = vb - vm .* bonv;
    %  surf(upbp(:,:,1)), shading interp, view(2)
    %  caxis([-0.1 0.1]), colorbar

    %  llupbp = upbp .* llux + vpbp .* llvx;
    llvpbp = upbp .* lluy + vpbp .* llvy;
    if iz > 1
      %  ave_llupbp = (llupbp + old_llupbp)/2.0;
      ave_llvpbp = (llvpbp + old_llvpbp)/2.0;
      tmp = drhodr;
      %  tmp(find(tmp == 0.0)) = 1.0;
      vpbpdbdz = ave_llvpbp ./ tmp;
      fwrite(vpbpdzid, vpbpdbdz, 'real*4');
      %  \tau_x = 2\Omega sin(\phi) = 4\pi*sin(\phi)/(24*3600)
      fac = 1000 * 4*pi/(24*3600);
      stress = fac * sin(pi*YC/180) .* vpbpdbdz;
      fwrite(str___id, stress, 'real*4');
    end
    %  old_llupbp = llupbp;
    old_llvpbp = llvpbp;
    
    % determine diffusivities
    dbdy = calc_dbdy(b, dut,dvt, lluy,llvy);
    diffus = - vpbp ./ dbdy;

    fwrite(uptp__id, uptp, 'real*4');
    fwrite(vptp__id, vptp, 'real*4');
    fwrite(upsp__id, upsp, 'real*4');
    fwrite(vpsp__id, vpsp, 'real*4');
    fwrite(upbp__id, upbp, 'real*4');
    fwrite(vpbp__id, vpbp, 'real*4');
    clear uptp vptp upsp vpsp upbp vpbp vpbpdbdz
    wt = readslab(wt_id,nslab,ne);  wt(nan_inds) = NaN;
    ws = readslab(ws_id,nslab,ne);  ws(nan_inds) = NaN;
    wb = readslab(wb_id,nslab,ne);  wb(nan_inds) = NaN;
    wptp = wt - wmp05 .* t;
    wpsp = ws - wmp05 .* s;
    wpbp = wb - wmp05 .* b;
    fwrite(wptp__id, wptp, 'real*4');
    fwrite(wpsp__id, wpsp, 'real*4');
    fwrite(wpbp__id, wpbp, 'real*4');
    fwrite(dbdy__id, dbdy, 'real*4');
    fwrite(K_____id, diffus, 'real*4');
  end
  
  clear uptp vptp upsp vpsp ubbp vpbp
  clear wptp wpsp wpbp dbdy diffus
  
  %  save current_state_20050422
  %  load current_state_20050422
  
  do_plots = 0;

  ne = 510;
  nz = 1;
  nr = 50;
  nrm1 = nr - 1;
  nlat = 181;  nlatm1 = nlat - 1;
  %  save indicies for zonal averages
  hvals = linspace(-90,90,nlat);
  i = 2;
  for i = 2:nlat
    inds = find(hvals(i-1)<YC & YC<hvals(i));
    comm = sprintf('inds%04d = uint32(inds);',i-1);
    eval(comm);
  end

  comm = [ 'reshape(fread( id ,nslab,''real*4'',0,' ...
           '''ieee-be''),[ne ne 6]);' ];
  readcubelev = inline(comm,'id','nslab','ne');

  %  Zonally average the ll_upbp,ll_vpbp
  clear acc num
  acc = zeros(nlatm1, nrm1);  acc = NaN;
  num = zeros(size(acc));
  %um_id = fopen( [lpath 'UVELMASS.ave'], 'r', 'ieee-be');  %   6
  %vm_id = fopen( [lpath 'VVELMASS.ave'], 'r', 'ieee-be');  %   7
  zidu  = fopen('primes_92_04/upbp', 'r', 'ieee-be');
  zidv  = fopen('primes_92_04/vpbp', 'r', 'ieee-be');
  for iz = 1:50,
    disp(sprintf('iz = %d',iz));
    fseek(zidu, (iz - 1)*(ne*ne*6)*4, 'bof');
    fseek(zidv, (iz - 1)*(ne*ne*6)*4, 'bof');
    %fseek(um_id, (iz - 1)*(ne*ne*6)*4, 'bof');
    %fseek(vm_id, (iz - 1)*(ne*ne*6)*4, 'bof');
    upbp = readcubelev(zidu,nslab,ne);
    vpbp = readcubelev(zidv,nslab,ne);
    %um = readslab(um_id,nslab,ne);
    %vm = readslab(vm_id,nslab,ne);
    llupbp = upbp .* llux + vpbp .* llvx;
    llvpbp = upbp .* lluy + vpbp .* llvy;
    %llum = um .* llux + vm .* llvx;
    %llvm = um .* lluy + vm .* llvy;
    if do_plots == 1
      figure(1)
      subplot(2,2,1),surf(llupbp(:,:,1))
      view(2),shading interp,caxis([-.02 .02])
      subplot(2,2,2),surf(llvpbp(:,:,1))
      view(2),shading interp,caxis([-.02 .02])
      figure(2)
      subplot(2,2,1),surf(um(:,:,6))
      view(2),shading interp
      subplot(2,2,2),surf(vm(:,:,6))
      view(2),shading interp
      subplot(2,2,3),surf(llum(:,:,6))
      view(2),shading interp
      subplot(2,2,4),surf(llvm(:,:,6))
      view(2),shading interp
      pause(2)
    end
    for jj = 1:nlatm1
      eval( sprintf('clear inds; inds = inds%04d;',jj) );
      tmp = llvpbp(inds);
      %  nzinds = find(tmp ~= 0.0);
      finds = find(isfinite(tmp));
      num(jj,iz) = length(finds);
      acc(jj,iz) = sum(tmp(finds));
    end
  end
  fclose(zidu);   fclose(zidv);
  fclose(um_id);  fclose(vm_id);
  llzvpbp = acc ./ num;
  %  surf(flipud(llzvpbp')), view(2), shading interp, caxis([-.1 .1])
  %  ! rm -f primes_92_04/za_llvpbp.mat
  %  save primes_92_04/za_llvpbp.mat llzvpbp 

  %  zonally average ll_vpbp_dbdz
  clear acc num
  acc = zeros(nlatm1, nrm1);  acc = NaN;
  num = zeros(size(acc));
  zid = fopen('primes_92_04/vpbp_dbdz', 'r', 'ieee-be');
  iz = 1;
  for iz = 1:49,
    disp(sprintf('iz = %d',iz));
    fseek(zid, (iz - 1)*(ne*ne*6)*4, 'bof');
    vpbpdbdz = readcubelev(zid,nslab,ne);
    %  surf(vpbpdbdz(:,:,1)), view(2), shading interp, caxis([-50 50])
    for jj = 1:nlatm1
      eval( sprintf('clear inds; inds = inds%04d;',jj) );
      tmp = vpbpdbdz(inds);
      nzinds = find(isfinite(tmp));
      num(jj,iz) = length(nzinds);
      acc(jj,iz) = sum(tmp(nzinds));
    end
  end
  fclose(zid);
  za_ll_vpbp_dbdz = acc ./ num;
  %  ! rm -f primes_92_04/za_ll_vpbp_dbdz.mat
  %  save primes_92_04/za_ll_vpbp_dbdz.mat za_ll_vpbp_dbdz 
  
  %  zonally average stress
  clear acc num
  acc = zeros(nlatm1, nrm1); acc = NaN;
  num = zeros(size(acc));
  zid = fopen('primes_92_04/stress', 'r', 'ieee-be');
  iz = 1;
  for iz = 1:49,
    disp(sprintf('iz = %d',iz));
    fseek(zid, (iz - 1)*(ne*ne*6)*4, 'bof');
    stress = readcubelev(zid,nslab,ne);
    stress(find(abs(stress) > 40.0)) = NaN;
    if do_plots == 1
      surf(stress(:,:,6)), view(2), shading flat
      caxis([-2 2]), colorbar
      pause(2)
    end
    for jj = 1:nlatm1
      eval( sprintf('clear inds; inds = inds%04d;',jj) );
      tmp = stress(inds);
      nzinds = find(isfinite(tmp));
      num(jj,iz) = length(nzinds);
      acc(jj,iz) = sum(tmp(nzinds));
    end
  end
  fclose(zid);
  za_stress = acc ./ num;
  %  surf(za_stress'), view(2), shading flat, colorbar
  %  ! rm -f primes_92_04/stress.mat
  %  save primes_92_04/stress.mat  za_stress
  
  %  Average the stress over SSH-contours (streamlines) 
  clear num acc
  eta_id = fopen('ave_1992-2004/ETAN.ave', 'r', 'ieee-be');
  comm = [ 'permute(reshape(fread( id ,nslab,''real*4'',0,' ...
           '''ieee-be''),[ne 6 ne]),[1 3 2]);' ];
  readslab = inline(comm,'id','nslab','ne');
  etan = readslab(eta_id,nslab,ne);
  fclose(eta_id);
  %  surf(YC(:,:,1)'), view(2),shading interp,colorbar
  %  surf(etan(:,:,1)'), view(2),shading interp,colorbar
  nssh = 50;
  sshvals = linspace(-2.3,1.2,nssh);
  i = 2;
  for i = 2:nssh
    inds = find(sshvals(i-1)<etan & etan<sshvals(i) & YC<-20);
    comm = sprintf('sshinds%04d = uint32(inds);',i-1);
    eval(comm);
  end
  zid = fopen('primes_92_04/stress', 'r', 'ieee-be');
  acc = zeros((nssh-1),49);  acc = NaN;
  num = zeros(size(acc));
  iz = 1;
  for iz = 1:49,
    disp(sprintf('iz = %d',iz));
    fseek(zid, (iz - 1)*(ne*ne*6)*4, 'bof');
    stress = readcubelev(zid,nslab,ne);
    stress(find(abs(stress) > 40.0)) = NaN;
    for jj = 1:(nssh-1)
      eval( sprintf('clear inds; inds = sshinds%04d;',jj) );
      tmp = stress(inds);
      nzinds = find(isfinite(tmp));
      num(jj,iz) = length(nzinds);
      acc(jj,iz) = sum(tmp(nzinds));
    end
  end
  fclose(zid);
  ssha_stress = acc ./ num;
  %  surf(log(ssha_stress')), view(2),shading interp,colorbar
  %  ! rm -f primes_92_04/ssha_stress.mat
  %  save primes_92_04/ssha_stress.mat  ssha_stress sshvals

  %  Average the b,ull,vll, and vpbpll over SSH-contours (streamlines) 
  clear n_u n_v n_b n_vb a_u a_v a_b a_vb
  a_u = zeros((nssh-1),49);   a_u = NaN;
  a_v = zeros((nssh-1),49);   a_v = NaN;
  a_b = zeros((nssh-1),49);   a_b = NaN;
  a_vb = zeros((nssh-1),49);  a_vb = NaN;
  zid_t = fopen('ave_1992-2004/THETA.ave', 'r', 'ieee-be');
  zid_u = fopen('ave_1992-2004/UVELMASS.ave', 'r', 'ieee-be');
  zid_v = fopen('ave_1992-2004/VVELMASS.ave', 'r', 'ieee-be');
  zid_b = fopen('ave_1992-2004/RHOAnoma.ave', 'r', 'ieee-be');
  zid_ub = fopen('primes_92_04/upbp', 'r', 'ieee-be');
  zid_vb = fopen('primes_92_04/vpbp', 'r', 'ieee-be');
  iz = 1;
  for iz = 1:49,
    disp(sprintf('iz = %d',iz));
    fseek(zid_t, (iz - 1)*(ne*ne*6)*4, 'bof');
    fseek(zid_u, (iz - 1)*(ne*ne*6)*4, 'bof');
    fseek(zid_v, (iz - 1)*(ne*ne*6)*4, 'bof');
    fseek(zid_b, (iz - 1)*(ne*ne*6)*4, 'bof');
    fseek(zid_ub, (iz - 1)*(ne*ne*6)*4, 'bof');
    fseek(zid_vb, (iz - 1)*(ne*ne*6)*4, 'bof');
    t = readslab(zid_t,  nslab,ne);
    u = readslab(zid_u,  nslab,ne);
    v = readslab(zid_v,  nslab,ne);
    b = readslab(zid_b,  nslab,ne);
    maski = find(t == 0.0);
    upbp = readcubelev(zid_ub,  nslab,ne);
    vpbp = readcubelev(zid_vb,  nslab,ne);
    % llupbp = upbp .* llux + vpbp .* llvx;
    llvpbp = upbp .* lluy + vpbp .* llvy;
    llu = u .* llux + v .* llvx;
    llv = u .* lluy + v .* llvy;
    llu(maski) = NaN;  llv(maski) = NaN;  b(maski) = NaN;
    if do_plots == 1
      figure(1), subplot(1,1,1)
      subplot(1,2,1), surf(llu(:,:,1)), view(2), shading flat, colorbar
      subplot(1,2,2), surf(llv(:,:,1)), view(2), shading flat, colorbar
      figure(2), subplot(1,1,1)
      subplot(1,2,1), surf(b(:,:,1)), view(2), shading flat, colorbar
      subplot(1,2,2), surf(llvpbp(:,:,1)), view(2), shading flat, colorbar
      pause(2)
    end
    for jj = 1:(nssh-1)
      eval( sprintf('clear inds; inds = sshinds%04d;',jj) );
      t_u  = llu(inds);
      t_v  = llv(inds);
      t_b  = b(inds);
      t_vb = llvpbp(inds);
      i_u  = find(isfinite( t_u ));
      i_v  = find(isfinite( t_v ));
      i_b  = find(isfinite( t_b ));
      i_vb = find(isfinite( t_vb ));
      n_u(jj,iz)  = length( i_u );
      n_v(jj,iz)  = length( i_v );
      n_b(jj,iz)  = length( i_b );
      n_vb(jj,iz) = length( i_vb );
      a_u(jj,iz)  = sum( t_u( i_u ));
      a_v(jj,iz)  = sum( t_v( i_v ));
      a_b(jj,iz)  = sum( t_b( i_b ));
      a_vb(jj,iz) = sum( t_vb( i_vb ));
    end
  end
  fclose(zid_t);
  fclose(zid_u);   fclose(zid_b);
  fclose(zid_ub);  fclose(zid_vb);
  ssha_llu    = a_u ./ n_u;
  ssha_llv    = a_v ./ n_v;
  ssha_b      = a_b ./ n_b;
  ssha_llvpbp = a_vb ./ n_vb;
  %  ! rm -f primes_92_04/ssha_uv_b_vpbp.mat
  %  save primes_92_04/ssha_uv_b_vpbp.mat  ssha_llu ssha_llv ssha_b ssha_llvpbp


  clear all
  close all
  
  do_plots = 0;
  
  %==================================================================
  %  Read the tile00?.mitgrid files
  gvars = { 'XC','YC','DXF','DYF','RA','XG','YG','DXV', ...
            'DYU','RAZ','DXC','DYC','RAW','RAS','DXG','DYG' };

  ne = 510;
  nep1 = ne + 1;
  iface = 1;
  for iface = 1:6
    fname = sprintf('grid/tile%03d.mitgrid', iface);
    gid = fopen(fname, 'r', 'ieee-be');
    tmp = reshape(fread(gid,inf,'real*8',0,'ieee-be'),[nep1,nep1,16]);
    fclose(gid);
    %  surf(tmp(:,:,1)), view(2), shading interp
    %  for jj = 1:length(gvars)
    for jj = 1:7
      comm = sprintf('%s(:,:,%d) = tmp(:,:,%d);', ...
                     [gvars{jj}], iface, jj);
      eval(comm);
    end
  end
  %  surf(XC(:,:,1)), view(2), shading interp
  %  subplot(2,1,1),  a = [1:10];     surf(XC(a,a,1)), view(2)
  %  subplot(2,1,2),  a = [(nep1-10):nep1];  surf(XC(a,a,1)), view(2)
  %  surf(YC(:,:,1)), view(2), shading interp
  %  surf(XG(:,:,1)), view(2), shading interp
  %  surf(YG(:,:,1)), view(2), shading interp
  is = [1:ne];
  vs = { 'XC','YC','DXF','DYF','RA' };
  for i = 1:length(vs)
    eval(sprintf('%s = %s(is,is,:);',vs{i},vs{i}));
  end

  delR = [ ...
      10.00, 10.00, 10.00, 10.00, 10.00, 10.00, 10.00, 10.01, ...
      10.03, 10.11, 10.32, 10.80, 11.76, 13.42, 16.04 , 19.82, 24.85, ...
      31.10, 38.42, 46.50, 55.00, 63.50, 71.58, 78.90, 85.15, 90.18, ...
      93.96, 96.58, 98.25, 99.25,100.01,101.33,104.56,111.33,122.83, ...
      139.09,158.94,180.83,203.55,226.50,249.50,272.50,295.50,318.50, ...
      341.50,364.50,387.50,410.50,433.50,456.50 ];
  R = cumsum(delR) - 0.5*delR;
  Ri = R(1:(length(R)-1)) ...
       + 0.25*delR(1:(length(R)-1)) + 0.25*delR(2:(length(R)));
  
  n1 = ne - 1;
  dux = zeros(size(XC));
  duy = zeros(size(XC));
  dvx = zeros(size(XC));
  dvy = zeros(size(XC));
  dux(:,:,:) = diff(XG(:,1:ne,:),1,1);
  dvx(:,:,:) = diff(XG(1:ne,:,:),1,2);
  duy(:,:,:) = diff(YG(:,1:ne,:),1,1);
  dvy(:,:,:) = diff(YG(1:ne,:,:),1,2);
  dux = dux + 360*double(dux < 180); 
  dux = dux - 360*double(dux > 180);  %  [ min(min(dux)) max(max(dux)) ]
  duy = duy + 360*double(duy < 180);
  duy = duy - 360*double(duy > 180);  %  [ min(min(duy)) max(max(duy)) ]
  dvx = dvx + 360*double(dvx < 180);
  dvx = dvx - 360*double(dvx > 180);  %  [ min(min(dvx)) max(max(dvx)) ]
  dvy = dvy + 360*double(dvy < 180);
  dvy = dvy - 360*double(dvy > 180);  %  [ min(min(dvy)) max(max(dvy)) ]
  llux = dux ./ sqrt(dux.^2 + duy.^2);
  lluy = duy ./ sqrt(dux.^2 + duy.^2);
  llvx = dvx ./ sqrt(dvx.^2 + dvy.^2);
  llvy = dvy ./ sqrt(dvx.^2 + dvy.^2);

  %==================================================================
  %  Project fields to lower-res 1-degree Lat-Lon and write 
  %  as NetCDF for viewing with Ingrid
  %
  ne = 510;
  nf = 6;
  nz = 50;
  nslab = ne*ne*nf;
  adir = 'primes_92_04';
  lat = [-90:90];
  lon = [0:360];
  ir = [ 1 2 3 5 10 15 20 25 30 35 40 ];
  xc360 = XC + 180;
  
  %  ! rm -f cube_22_primes_at1deg.nc
  nc = netcdf(['cube_22_primes_at1deg.nc'], 'clobber');
  nc.reference = [ 'The cube_22 primes from Dimitris Menemenlis' ...
                   ' regridded to 1-deg Lat-Lon' ];
  nc.author = 'Ed Hill <eh3@mit.edu>';
  nc.date = 'March 27, 2005';
  nc('X') = length(lon);
  nc('Y') = length(lat);
  nc('Z') = length(ir);
  nc('Zc') = length(R);
  nc('Zi') = length(Ri);
  nc{'X'} = 'X';
  nc{'Y'} = 'Y';
  nc{'Z'} = 'Z';
  nc{'Zc'} = 'Zc';
  nc{'Zi'} = 'Zi';
  nc{'X'}.uniquename = 'X';
  nc{'X'}.long_name = 'longitude';
  nc{'X'}.gridtype = ncint(1);
  nc{'X'}.units = 'degree_east';
  nc{'Y'}.uniquename = 'Y';
  nc{'Y'}.long_name = 'latitude';
  nc{'Y'}.gridtype = ncint(0);
  nc{'Y'}.units = 'degree_north';
  nc{'Z'}.uniquename = 'Z';
  nc{'Z'}.long_name = 'depth';
  nc{'Z'}.gridtype = ncint(0);
  nc{'Z'}.units = 'm';
  nc{'Zc'}.uniquename = 'Zc';
  nc{'Zc'}.long_name = 'depth_at_center';
  nc{'Zc'}.gridtype = ncint(0);
  nc{'Zc'}.units = 'm';
  nc{'Zi'}.uniquename = 'Zi';
  nc{'Zi'}.long_name = 'depth_at_interface';
  nc{'Zi'}.gridtype = ncint(0);
  nc{'Zi'}.units = 'm';
  nc{'X'}(:) = lon;
  nc{'Y'}(:) = lat;
  nc{'Z'}(:) = R(ir);
  nc{'Zc'}(:) = R;
  nc{'Zi'}(:) = Ri;

  f_s_3d = { {'tp2'}, {'sp2'}, {'bp2'}, {'vpbp_dbdz'}, ...
             {'stress'}, {'dbdy'}, {'K'} };
  
  ifg = 1;
  for ifg = 1:length(f_s_3d)
    acell = f_s_3d{ifg};
    tname = acell{1};
    disp([ '  ' tname ' :' ]);
    fname = sprintf('%s/%s',adir,tname);
    fid = fopen(fname,'r','ieee-be');
    id = tname;
    nc{ id } = { 'Z' 'Y' 'X' };
    nc{ id }.missing_value = ncdouble(NaN);
    nc{ id }.FillValue_ = ncdouble(0.0);
    ii = 1;
    for ii = 1:length(ir)
      iz = ir(ii);
      disp(sprintf('    iz = %3d   R(iz) = %g',iz,R(iz)));
      
      fseek(fid,nslab*4*(iz-1),'bof');
      tmp = fread(fid,nslab,'real*4',0,'ieee-be');
      tr = reshape(tmp,[ 510 510 6 ]);
      %  surf(tr(:,:,1)), view(2), shading interp
      trn = tr;
      trn(find(tr == 0.0)) = NaN;
      clear tmp tr
      %  v = sdac_regrid(xc360,YC,trn,lonm,latm);
      v = ll_regrid(xc360,YC,trn,lon,lat);
      %  surf(lon,lat,v'), caxis([25 40]), view(2), shading interp, colorbar
      nc{ id }(ii,:,:) = permute(v,[2 1]);
    end
    fclose(fid);
  end

  id = 'sum_up2_vp2';
  nc{ id } = { 'Z' 'Y' 'X' };
  nc{ id }.missing_value = ncdouble(NaN);
  nc{ id }.FillValue_ = ncdouble(0.0);
  fidu = fopen(sprintf('%s/%s',adir,'up2'),'r','ieee-be');
  fidv = fopen(sprintf('%s/%s',adir,'vp2'),'r','ieee-be');
  for ii = 1:length(ir)
    iz = ir(ii);
    disp(sprintf('    iz = %3d   R(iz) = %g',iz,R(iz)));
    fseek(fidu,nslab*4*(iz-1),'bof');
    fseek(fidv,nslab*4*(iz-1),'bof');
    tru = reshape(fread(fidu,nslab,'real*4',0,'ieee-be'),[510 510 6]);
    trv = reshape(fread(fidv,nslab,'real*4',0,'ieee-be'),[510 510 6]);
    trnu = tru;  trnu(find(tru == 0.0)) = NaN;
    trnv = trv;  trnv(find(trv == 0.0)) = NaN;
    clear tmp tru trv
    lluv = ll_regrid(xc360,YC,trnu+trnv,lon,lat);
    nc{ id }(ii,:,:) = permute(lluv,[2 1]);
  end  
  fclose(fidu);
  fclose(fidv);

  f_v_3d = { {'up2','vp2'}, ...
             {'uptp','vptp'}, {'upsp','vpsp'}, {'upbp','vpbp'} };
  for ip = 1:length(f_v_3d)
    cell = f_v_3d{ip};
    idu = cell{1};
    idv = cell{2};
    disp(['  ' idu '  ' idv]);
    nc{ idu } = { 'Z' 'Y' 'X' };
    nc{ idu }.missing_value = ncdouble(NaN);
    nc{ idu }.FillValue_ = ncdouble(0.0);
    nc{ idv } = { 'Z' 'Y' 'X' };
    nc{ idv }.missing_value = ncdouble(NaN);
    nc{ idv }.FillValue_ = ncdouble(0.0);
    fidu = fopen(sprintf('%s/%s',adir,idu),'r','ieee-be');
    fidv = fopen(sprintf('%s/%s',adir,idv),'r','ieee-be');
    for ii = 1:length(ir)
      iz = ir(ii);
      disp(sprintf('    iz = %3d   R(iz) = %g',iz,R(iz)));
      fseek(fidu,nslab*4*(iz-1),'bof');
      fseek(fidv,nslab*4*(iz-1),'bof');
      tru = reshape(fread(fidu,nslab,'real*4',0,'ieee-be'),[510 510 6]);
      trv = reshape(fread(fidv,nslab,'real*4',0,'ieee-be'),[510 510 6]);
      trnu = tru;  trnu(find(tru == 0.0)) = NaN;
      trnv = trv;  trnv(find(trv == 0.0)) = NaN;
      clear tmp tru trv
      llru = trnu .* llux + trnv .* llvx;
      llrv = trnu .* lluy + trnv .* llvy;
      llu = ll_regrid(xc360,YC,llru,lon,lat);
      llv = ll_regrid(xc360,YC,llrv,lon,lat);
      nc{ idu }(ii,:,:) = permute(llu,[2 1]);
      nc{ idv }(ii,:,:) = permute(llv,[2 1]);
    end
  end
  fclose(fidu);
  fclose(fidv);
  nc = close(nc);

  %  ===  zonal and stream-wise averages  ===
  %  save primes_92_04/za_llvpbp.mat llzvpbp 
  %  save primes_92_04/za_ll_vpbp_dbdz.mat za_ll_vpbp_dbdz 
  %  save primes_9b2_04/stress.mat  za_stress
  %  save primes_92_04/ssha_stress.mat  ssha_stress sshvals
  load primes_92_04/za_llvpbp.mat
  load primes_92_04/za_ll_vpbp_dbdz.mat
  load primes_92_04/stress.mat
  load primes_92_04/ssha_stress.mat
  load primes_92_04/ssha_uv_b_vpbp.mat
  
  ssh = sshvals(1:(length(sshvals)-1)) + 0.5*diff(sshvals);
  if do_plots == 1
    surf(ssh,Ri,ssha_b'), view(2), shading flat, colorbar
    surf(ssh,-Ri,ssha_llu'), view(2), shading flat, colorbar
  end

  lat = [-90:90];
  latm = lat(1:(length(lat)-1)) + 0.5*diff(lat);

  %  ! rm -f cube_22_zsa.nc
  nc = netcdf(['cube_22_zsa.nc'], 'clobber');
  nc.reference = [ 'The cube_22 zonal and stream-wise averages.' ];
  nc.author = 'Ed Hill <eh3@mit.edu>';
  nc.date = 'March 27, 2005';
  nc('Y') = length(latm);
  nc('Zc') = length(R);
  nc('Zi') = length(Ri);
  nc('SSH') = length(ssh);
  nc{'Y'} = 'Y';
  nc{'Zc'} = 'Zc';
  nc{'Zi'} = 'Zi';
  nc{'SSH'} = 'SSH';
  nc{'Y'}.uniquename = 'Y';
  nc{'Y'}.long_name = 'latitude';
  nc{'Y'}.gridtype = ncint(0);
  nc{'Y'}.units = 'degree_north';
  nc{'Zc'}.uniquename = 'Zc';
  nc{'Zc'}.long_name = 'depth_at_center';
  nc{'Zc'}.gridtype = ncint(0);
  nc{'Zc'}.units = 'm';
  nc{'Zi'}.uniquename = 'Zi';
  nc{'Zi'}.long_name = 'depth_at_interface';
  nc{'Zi'}.gridtype = ncint(0);
  nc{'Zi'}.units = 'm';
  nc{'SSH'}.uniquename = 'SSH';
  nc{'SSH'}.long_name = 'sea_surface_height';
  nc{'SSH'}.gridtype = ncint(0);
  nc{'SSH'}.units = 'm';
  nc{'Y'}(:) = latm;
  nc{'Zc'}(:) = R;
  nc{'Zi'}(:) = Ri;
  nc{'SSH'}(:) = ssh;

  id = 'llzvpbp';
  nc{ id } = { 'Zc' 'Y' };
  nc{ id }.missing_value = ncdouble(NaN);
  nc{ id }.FillValue_ = ncdouble(0.0);
  nc{ id }(:) = permute(llzvpbp,[2 1]);

  f_i = { {'za_ll_vpbp_dbdz'}, {'za_stress'} };
  for ip = 1:length(f_i)
    cell = f_i{ip};
    id = cell{1};
    disp(['  ' id]);
    nc{ id } = { 'Zi' 'Y' };
    nc{ id }.missing_value = ncdouble(NaN);
    nc{ id }.FillValue_ = ncdouble(0.0);
    eval(sprintf('tmp = %s;', id));
    nc{ id }(:) = permute(tmp,[2 1]);
  end

  f_i = { {'ssha_stress'}, ...
          {'ssha_llu'}, {'ssha_llv'}, {'ssha_b'}, {'ssha_llvpbp'} };
  for ip = 1:length(f_i)
    cell = f_i{ip};
    id = cell{1};
    disp(['  ' id]);
    nc{ id } = { 'Zi' 'SSH' };
    nc{ id }.missing_value = ncdouble(NaN);
    nc{ id }.FillValue_ = ncdouble(0.0);
    eval(sprintf('nc{ id }(:) = permute(%s,[2 1]);',id));
  end

  nc = close(nc);

  %  surf(,,log(ssha_stress')), view(2),shading interp,colorbar

  %  ! scp cube_22_primes_at1deg.nc  channel.mit.edu:/home/edhill/INGRID_PEOPLE/EH3/eddy_flux/cube_22/
  %  ! scp cube_22_zsa.nc channel.mit.edu:/home/edhill/INGRID_PEOPLE/EH3/eddy_flux/cube_22/
  %  ! mv cube_22_primes_at1deg.nc primes_92_04
