matlab_class/gcmfaces_IO/ncaddAtt.m

function ncaddAtt(ncid,varname,attrname,attrvalue);
% add an attribute to a variable in an existing netcdf file.

global useNativeMatlabNetcdf; 
if isempty(useNativeMatlabNetcdf); useNativeMatlabNetcdf = ~isempty(which('netcdf.open')); end;

if isempty(varname),
    if useNativeMatlabNetcdf;
        netcdf.reDef(ncid);
        netcdf.putAtt(ncid,-1,attrname,attrvalue);
        netcdf.endDef(ncid);
    else;%try to use old mex stuff
        if ischar(attrvalue)
            attrvalue(find(double(attrvalue)==10))=[];
            eval(['ncid.' attrname '=''' attrvalue ''';']);
        else
            eval(['ncid.' attrname '=' num2str(attrvalue) ';']);
        end
    end;
else
    if useNativeMatlabNetcdf;
        varid=netcdf.inqVarID(ncid,varname);
        netcdf.reDef(ncid);
        netcdf.putAtt(ncid,varid,attrname,attrvalue);
        netcdf.endDef(ncid);
    else;%try to use old mex stuff
        if strcmp(attrname,'_FillValue'),
            attrname='FillValue_';
        end
        if ischar(attrvalue)
            attrvalue(find(double(attrvalue)==10))=[];
            eval(['ncid{''' varname '''}.' attrname '=''' attrvalue ''';']);
        else
            eval(['ncid{''' varname '''}.' attrname '=' num2str(attrvalue) ';']);
        end
    end;
end
    


1	gforget	1.1	function ncaddAtt(ncid,varname,attrname,attrvalue);
2			% add an attribute to a variable in an existing netcdf file.
3
4			global useNativeMatlabNetcdf;
5			if isempty(useNativeMatlabNetcdf); useNativeMatlabNetcdf = ~isempty(which('netcdf.open')); end;
6
7			if isempty(varname),
8			if useNativeMatlabNetcdf;
9			netcdf.reDef(ncid);
10			netcdf.putAtt(ncid,-1,attrname,attrvalue);
11			netcdf.endDef(ncid);
12			else;%try to use old mex stuff
13			if ischar(attrvalue)
14			attrvalue(find(double(attrvalue)==10))=[];
15			eval(['ncid.' attrname '=''' attrvalue ''';']);
16			else
17			eval(['ncid.' attrname '=' num2str(attrvalue) ';']);
18			end
19			end;
20			else
21			if useNativeMatlabNetcdf;
22			varid=netcdf.inqVarID(ncid,varname);
23			netcdf.reDef(ncid);
24			netcdf.putAtt(ncid,varid,attrname,attrvalue);
25			netcdf.endDef(ncid);
26			else;%try to use old mex stuff
27			if strcmp(attrname,'_FillValue'),
28			attrname='FillValue_';
29			end
30			if ischar(attrvalue)
31			attrvalue(find(double(attrvalue)==10))=[];
32			eval(['ncid{''' varname '''}.' attrname '=''' attrvalue ''';']);
33			else
34			eval(['ncid{''' varname '''}.' attrname '=' num2str(attrvalue) ';']);
35			end
36			end;
37			end
38
39
40