Documentation of sun_to_alpha_precip

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

Listing of script sun_to_alpha_precip

clear
cd /home/disk/hayes2/dvimont/ccm/ccm3.6/run/sun/ct/data
filin = 'wct.nc';
nc = netcdf(filin, 'nowrite');
  precl = nc{'PRECL'}(:);
  precc = nc{'PRECC'}(:);
nc = close(nc);
precln = zeros(size(precl));
preccn = zeros(size(precc));
precln(find(precl > 1e-15)) = precl(find(precl > 1e-15));
preccn(find(precc > 1e-15)) = precc(find(precc > 1e-15));
filin = 'wct.nc';
nc = netcdf(filin, 'write');
  nc{'PRECL'}(:) = precln;
  nc{'PRECC'}(:) = preccn;
nc = close(nc);