Changeset 38 for trunk/src/proj_field.m


Ignore:
Timestamp:
Mar 7, 2010, 6:30:11 PM (11 years ago)
Author:
sommeria
Message:

field transforms put in subdir transform_field. cleaning of obsolete functions

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/src/proj_field.m

    r19 r38  
    241241            test3D=1;
    242242        end
    243 %         if length(ivar_U)>1 | length(ivar_V)>1 | length(ivar_W)>1
    244 %                  warndlg_uvmat('multiple vector input in proj_field.m','ERROR')
    245 %                     return
    246 %         end
    247243        if length(ivar_F)>1 | length(ivar_FF)>1
    248                  warndlg_uvmat('multiple flag input in proj_field.m','ERROR')
     244                 msgbox_uvmat('ERROR','multiple flag input in proj_field.m')
    249245                    return
    250         end
    251        
     246        end     
    252247        for ipoint=1:siz(1)
    253248           Xpoint=ObjectData.Coord(ipoint,:);
     
    473468            Coord{idim}=[0.5 DimValue(idim)];
    474469            test_direct(idim)=1;
    475 %             if isfield(FieldData,'VarAttribute')
    476 %                 for ivar=VarIndex
    477 %                     if length(FieldData.VarAttribute)>=ivar & isfield(FieldData.VarAttribute{ivar},Coord_i_str)% if there is a variable  attribute named Coord_1, _2 or _3
    478 %                         eval(['Coord_i=FieldData.VarAttribute{ivar}.' Coord_i_str ';']);%'range x
    479 %                         if isnumeric(Coord_i)
    480 %                              if length(Coord_i)>=2
    481 %                                 Coord{idim}=[Coord_i(1) Coord_i(end)];
    482 %                                 %test_direct(idim)=(Coord{idim}(2)>Coord{idim}(1));
    483 %                              else
    484 %                                 warndlg_uvmat(['two values needed for ' Coord_i_str 'in proj_field.m'],'ERROR')
    485 %                                 return
    486 %                              end
    487 %                          else
    488 %                             warndlg_uvmat(['non numerical coordinate attributes' Coord_i_str 'in proj_field.m'],'ERROR')
    489 %                             return
    490 %                          end
    491 %                          %test_coord(idim)=1;
    492 %                          DCoord_min(idim)=(Coord{idim}(end)-Coord{idim}(1))/(DimValue(idim)-1);
    493 %                     end
    494 %                 end
    495 %             end
    496470        end
    497471        AX=linspace(Coord{2}(1),Coord{2}(2),DimValue(2));
     
    12881262                test_direct_min=DCoord_min(idim)>0;% =1 for increasing values, 0 otherwise
    12891263                if ~isequal(test_direct(idim),test_direct_min)
    1290                      warndlg_uvmat(['non monotonic dimension variable # ' num2str(idim)  ' in proj_field.m'],'ERROR')
     1264                     msgbox_uvmat('ERROR',['non monotonic dimension variable # ' num2str(idim)  ' in proj_field.m'])
    12911265                                return
    12921266                end               
     
    12991273                Coord{idim}=[0.5 DimValue(idim)-0.5];
    13001274                test_direct(idim)=1;
    1301 %                 for ivar=VarIndex
    1302 %                     if  isfield(FieldData.VarAttribute{ivar},Coord_i_str)% if there is a variable  attribute named Coord_1, _2 or _3
    1303 %                          eval(['Coord{idim}=FieldData.VarAttribute{ivar}.' Coord_i_str ';']);%'range x
    1304 %                          if isnumeric(Coord{idim})
    1305 %                              if length(Coord{idim})>=2
    1306 %                                 test_direct(idim)=(Coord{idim}(2)>Coord{idim}(1));
    1307 %                              else
    1308 %                                 warndlg_uvmat(['two values needed for ' Coord_i_str 'in proj_field.m'],'ERROR')
    1309 %                                 return
    1310 %                              end
    1311 %                          else
    1312 %                             warndlg_uvmat(['non numerical coordinate attributes' Coord_i_str 'in proj_field.m'],'ERROR')
    1313 %                             return
    1314 %                          end
    1315 %                          DCoord_min(idim)=(Coord{idim}(end)-Coord{idim}(1))/(DimValue(idim)-1);
    1316 %                     end
    1317 %                 end
    13181275            end
    13191276        end
     
    15571514    if ~isequal(Phi,0) & length(ivar_U)==1
    15581515        if isempty(ivar_V)
    1559             warndlg_uvmat('v velocity component missing in proj_field.m','ERROR')
     1516            msgbox_uvmat('ERROR','v velocity component missing in proj_field.m')
    15601517            return
    15611518        end
Note: See TracChangeset for help on using the changeset viewer.