matlab_class/gcmfaces_IO/ncputAtt.m

function [nc] = ncputAtt(ncid,varname,attrname,attrvalue);
% add an attribute to a variable in a netcdf file.

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

if isempty(varname),
    if useNativeMatlabNetcdf;
        netcdf.putAtt(ncid,-1,attrname,attrvalue);
    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.putAtt(ncid,varid,attrname,attrvalue);
    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 [nc] = ncputAtt(ncid,varname,attrname,attrvalue);
2			% add an attribute to a variable in a 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.putAtt(ncid,-1,attrname,attrvalue);
10			else;%try to use old mex stuff
11			if ischar(attrvalue)
12			attrvalue(find(double(attrvalue)==10))=[];
13			eval(['ncid.' attrname '=''' attrvalue ''';']);
14			else
15			eval(['ncid.' attrname '=' num2str(attrvalue) ';']);
16			end
17			end;
18			else
19			if useNativeMatlabNetcdf;
20			varid=netcdf.inqVarID(ncid,varname);
21			netcdf.putAtt(ncid,varid,attrname,attrvalue);
22			else;%try to use old mex stuff
23			if strcmp(attrname,'_FillValue'),
24			attrname='FillValue_';
25			end
26			if ischar(attrvalue)
27			attrvalue(find(double(attrvalue)==10))=[];
28			eval(['ncid{''' varname '''}.' attrname '=''' attrvalue ''';']);
29			else
30			eval(['ncid{''' varname '''}.' attrname '=' num2str(attrvalue) ';']);
31			end
32			end;
33			end
34
35
36