Documentation of printccm2ncbig

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

Function Synopsis

a = printccm2ncbig

Help text

Listing of function printccm2ncbig

function a = printccm2ncbig

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:92;
  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

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