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	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