Changeset 58 for trunk/src/struct2nc_toolbox.m

Timestamp:

Mar 19, 2010, 9:56:38 PM (14 years ago)

Author:

sommeria

Message:

bug correceted for reading variable attributes

File:

• trunk/src/struct2nc_toolbox.m (modified) (1 diff)

trunk/src/struct2nc_toolbox.m

@@ -111 +111 @@
             nc{ListVarName{ivar}}(:) = VarVal;
         end
-        %write variable attributes
-        if testattr
-            for ivarattr=1:length(VarAttribute)  
-                if isstruct(VarAttribute{ivarattr})
-                    attr_names=fields(VarAttribute{ivarattr});
-                    for iattr=1:length(attr_names)
-                        eval(['attr_val=VarAttribute{ivar}.' attr_names{iattr} ';']);
-                        if ischar(attr_val) && ~isequal(attr_val,'')
-                            eval(['nc{''' ListVarName{ivar} '''}.' attr_names{iattr} '=''' attr_val ''';'])
-                        elseif isnumeric(attr_val)&& ~isempty(attr_val)
-                             eval(['nc{''' ListVarName{ivar} '''}.' attr_names{iattr} '=attr_val ;'])
-                        end
-                    end
+    end
+end
+%write variable attributes
+if testattr
+    for ivar=1:length(VarAttribute)  %loop on the attributes of variable ivar
+        if isstruct(VarAttribute{ivar})
+            attr_names=fields(VarAttribute{ivar});
+            for iattr=1:length(attr_names)
+                eval(['attr_val=VarAttribute{ivar}.' attr_names{iattr} ';']);
+                if ischar(attr_val) && ~isequal(attr_val,'')
+                    eval(['nc{''' ListVarName{ivar} '''}.' attr_names{iattr} '=''' attr_val ''';'])
+                elseif isnumeric(attr_val)&& ~isempty(attr_val)
+                     eval(['nc{''' ListVarName{ivar} '''}.' attr_names{iattr} '=attr_val ;'])
                 end
             end
-         end
+        end
     end
-end
+ end
+
 
 close(nc);