Changeset 747 for trunk/src/find_field_cells.m

Timestamp:

Apr 22, 2014, 9:44:39 AM (10 years ago)

Author:

sommeria

Message:

adpatations to 3D fields

File:

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

trunk/src/find_field_cells.m

@@ -257 +257 @@
     DimIndices=[];
     for idim=1:numel(DimCell)
-        ind_dim=find(strcmp(DimCell{idim},ListDimName));%find the dim index in the list of coordinate variables
+        ind_dim=find(strcmp(DimCell{idim},ListDimName));%find the dim index in the list of dimensions ListDimName
         if ~isempty(ind_dim)
-            DimIndices=[DimIndices ind_dim]; %update the list of coord dimensions included in DimCell
-            if check_var && CoordSize(ind_dim)==2 % determine the size of the coordinate in case of coordiante variable limited to lower and upper bounds
+            DimIndices=[DimIndices ind_dim]; %update the list of dim indices included in DimCell
+            if check_var && CoordSize(ind_dim)==2 % determine the size of the coordinate in case of coordinate definition limited to lower and upper bounds
                 if isvector(Data.(ListVarName{ivardim})) 
                     if numel(Data.(ListVarName{ivardim}))>2
@@ -287 +287 @@
         NewNbDim(nbcell)=numel(DimIndices);
         NewCellInfo{nbcell}.CoordType='grid';
-        NewCellInfo{nbcell}.CoordSize=CoordSize;
+        NewCellInfo{nbcell}.CoordSize=CoordSize(DimIndices);
         NewCellInfo{nbcell}.CoordIndex=ListCoordIndex(DimIndices);
     end