Changeset 575 for trunk/src/find_field_cells.m

Timestamp:

Feb 27, 2013, 6:39:32 PM (11 years ago)

Author:

sommeria

Message:

various bugs corrected

File:

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

trunk/src/find_field_cells.m

@@ -1 @@
-%'find_file_indices': test field structure for input in proj_field and plot_field
+%'find_field_cells': test field structure for input in proj_field and plot_field
 %    group the variables  into 'fields' with common dimensions
 %------------------------------------------------------------------------
@@ -27 +27 @@
 % INPUT:
 % Data: structure representing fields, output of check_field_structure
+%            .ListGlobalAttributes
 %            .ListVarName: cell array listing the names (cahr strings) of the variables
 %            .VarDimName: cell array of cells containing the set of dimension names for each variable of .ListVarName
@@ -32 +33 @@
 %                     .VarAttribute{ilist}.key=value, where ilist is the variable
 %                     index, key is the name of the attribute, value its value (char string or number)
-%
+%            .Attr1, .Attr2....
+%        case of actual data:
+%            .Var1, .Var2...
+%        case of data structure, without the  data themselves
+%            .LisDimName: list of dimension names
+%            .DimValue: list of corresponding dimension values
 % HELP: 
 % to get the dimensions of arrays common to the field #icell
@@ -104 +110 @@
 ivar_coord_x=find(strcmp('coord_x',Role));
 % VarDimCell=cell(numel(ivar_coord_x));
-check_select=zeros(1,nbvar);
+check_select=false(1,nbvar);
+check_coord=false(1,nbvar);
 CellInfo=cell(1,numel(ivar_coord_x));
 NbDim=zeros(1,numel(ivar_coord_x));
@@ -197 +204 @@
 ListVarName=Data.ListVarName(~check_select);%list of remaining variables
 VarDimName=Data.VarDimName(~check_select);%dimensions of remaining variables
-check_coord= cellfun(@numel,VarDimName)==1|cellfun(@ischar,VarDimName)==1;% find remaining variables with a single dimension
+check_coord_select= cellfun(@numel,VarDimName)==1|cellfun(@ischar,VarDimName)==1;% find remaining variables with a single dimension
+check_coord(~check_select)=check_coord_select;
 ListCoordIndex=ivar_remain(check_coord);% indices of remaining variables with a single dimension
 ListCoordName=Data.ListVarName(ListCoordIndex);% corresponding names of remaining variables with a single dimension