Documentation of create_tenlevel_uocean

Global Index (short | long) | Local contents | Local Index (short | long)

Cross-Reference Information

Listing of script create_tenlevel_uocean

clear
cd /home/disk/hayes2/dvimont/csiro/data
nc = netcdf('ve_L1-10.nc', 'clobber');
nc = close(nc);
nc1 = netcdf('ve_L1-10.nc', 'write')
nc2 = netcdf('ve_A_L1_1000_years.nc', 'nowrite')
nc1 < dim(nc2, 1);
nc1 < dim(nc2, 2);
nc1('depth') = 10;
nc1('year') = 0;
for i = 1:length(var(nc2));
  nc1 < var(nc2, i);
end
nc1.long_name = 'Date of this averages dump';
nc1.title = 'Time averages of surface and slab variables from coupled ocean';
nc1.history = 'See files such as ve_A_L1_1000_years.nc for NCO history';
nc1 = close(nc1);
nc2 = close(nc2);
nc1 = netcdf('ve_L1-10.nc', 'write')
nc2 = netcdf('ve_A_L1_1000_years.nc', 'nowrite')
for i = 1:length(var(nc1));
  v = var(nc1, i);
  a = att(var(nc2, i));
  v < a;
end
nc1 = close(nc1);
nc2 = close(nc2);
nc1 = netcdf('ve_L1-10.nc', 'write')
nc2 = netcdf('ve_A_L1_1000_years.nc', 'nowrite')
for i = 1:length(var(nc1));
  i
  namevar = name(var(nc1, i))
  if (~strcmp(namevar, 'depth') & ~strcmp(namevar, 've') & ~strcmp(namevar, 'year'));
    nc1{namevar}(:) = nc2{namevar}(:);
  end
end
year = nc2{'year'};
nc1{'year'}(1:1000) = year';
nc1 = close(nc1);
nc2 = close(nc2);
nc1 = netcdf('ve_L1-10.nc', 'write')
for i = 1:10;
  i
  filin = ['ve_A_L' num2str(i) '_1000_years.nc'];
  nc2 = netcdf(filin, 'nowrite');
  nc1{'depth'}(i) = nc2{'depth'}(1);
  nc1{'ve'}(:,i,:,:) = nc2{'ve'}(:);
end
nc1 = close(nc1);
nc2 = close(nc2);