Changeset 382 for trunk/src/struct2nc.m

Timestamp:

Feb 6, 2012, 11:46:39 PM (13 years ago)

Author:

sommeria

Message:

several bugs corrected
function filter_tps introduced (spline thin shell)

File:

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

trunk/src/struct2nc.m

@@ -53 +53 @@
     [Data,errormsg]=check_field_structure(Data);%check the validity of the input field structure
     if ~isempty(errormsg)
-        errormsg=['invalid input structure:' errormsg];
+        errormsg=['error in struct2nc:invalid input structure_' errormsg];
         return
     end
@@ -112 +112 @@
     for ivar=1:length(ListVarName)
         if isfield(Data,ListVarName{ivar})
-            eval(['VarVal=Data.' ListVarName{ivar} ';'])%varval=values of the current variable 
+            VarVal=Data.(ListVarName{ivar}); 
+            %varval=values of the current variable 
             VarDimIndex=Data.VarDimIndex{ivar}; %indices of the variable dimensions in the list of dimensions
             VarDimName=Data.VarDimName{ivar};
@@ -122 +123 @@
             testline=isequal(length(siz),2) && isequal(siz(1),1)&& isequal(siz(2), Data.DimValue(VarDimIndex));%matlab vector
             testcolumn=isequal(length(siz),2) && isequal(siz(1), Data.DimValue(VarDimIndex))&& isequal(siz(2),1);%matlab column vector
-            if ~testrange && ~testline && ~testcolumn && ~isequal(siz,Data.DimValue(VarDimIndex))
-                errormsg=['wrong dimensions declared for ' ListVarName{ivar} ' in struct2nc.m'];
-                break
-            end 
+%             if ~testrange && ~testline && ~testcolumn && ~isequal(siz,Data.DimValue(VarDimIndex))
+%                 errormsg=['wrong dimensions declared for ' ListVarName{ivar} ' in struct2nc.m'];
+%                 break
+%             end 
             if testline || testrange
                 if testrange