Changeset 140 for trunk/src/struct2nc.m

Timestamp:

Nov 29, 2010, 9:55:54 AM (14 years ago)

Author:

sommeria

Message:

bug repair in netcdf file reading, dealing with unavailable variables, + cleaning

File:

• trunk/src/struct2nc.m (modified) (2 diffs)

trunk/src/struct2nc.m

@@ -51 +51 @@
         return
     end
-    [Data,errormsg]=check_field_structure(Data);%check the validity of the input field structure
+    [Data,errormsg]=check_field_structure(Data)%check the validity of the input field structure
+    if ~isempty(errormsg)
+        errormsg=['invalid input structure:' errormsg];
+        return
+    end
     ListVarName=Data.ListVarName;
     nc=netcdf.create(flname,'NC_CLOBBER');%,'clobber'); %create the netcdf file with name flname   
@@ -110 +114 @@
             eval(['VarVal=Data.' ListVarName{ivar} ';'])%varval=values of the current variable 
             VarDimIndex=Data.VarDimIndex{ivar}; %indices of the variable dimensions in the list of dimensions
-            siz=size(VarVal);
             VarDimName=Data.VarDimName{ivar};
             if ischar(VarDimName)
                 VarDimName={VarDimName};
             end
+            siz=size(VarVal);
             testrange=(numel(VarDimName)==1 && strcmp(VarDimName{1},ListVarName{ivar}) && numel(VarVal)==2);% case of a coordinate defined on a regular mesh by the first and last values.
             testline=isequal(length(siz),2) && isequal(siz(1),1)&& isequal(siz(2), Data.DimValue(VarDimIndex));%matlab vector