Documentation of printccm2nc_dan

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

Function Synopsis

a = printccm2nc_dan;

Help text

Listing of function printccm2nc_dan

function a = printccm2nc_dan;

a = []
%for i=1:64
%  for j=1:12
%    if i<10
%      if j<10
%        a = [a ' 0' int2str(j) '-0' int2str(i)];
%      else
%        a = [a ' ' int2str(j) '-0' int2str(i)];
%      end
%    else
%      if j<10
%        a = [a ' 0' int2str(j) '-' int2str(i)];
%      else
%        a = [a ' ' int2str(j) '-' int2str(i)];
%      end
%    end
%  end
%end

cd /home/disk/hayes2/dvimont/ccm/ccm3.6/run/sun/data_oi

a = [' 1981-12']
for i = 82:84;
  for j = 1:12;
    if j<10
      a = [a ' 19' int2str(i) '-0' int2str(j)];
    else
      a = [a ' 19' int2str(i) '-' int2str(j)];
    end
  end
end

for j = 1:11
  if j<10
    a = [a ' 1985-0' int2str(j)];
  else
    a = [a ' 1985-' int2str(j)];
  end
end

a = [a ' 1985x12'];

for i = 86:97
  for j = 1:12
    if j<10
      a = [a ' 19' int2str(i) 'x0' int2str(j)];
    else
      a = [a ' 19' int2str(i) 'x' int2str(j)];
    end
  end
end

for j = 1:6
  a = [a ' 1998x0' int2str(j)];
end

a = ['ccm2nc -v $vars' a ' $outfil']
fname = ['ccm2nc_dan']
fid=fopen(fname,'a')
fprintf(fid,a)
fclose(fid)