Changeset 586 for trunk/src/get_field.m

Timestamp:

Mar 13, 2013, 9:12:09 AM (12 years ago)

Author:

sommeria

Message:

tps_coeff_field introduced and several bugs corrected

File:

• trunk/src/get_field.m (modified) (4 diffs)

trunk/src/get_field.m

@@ -406 +406 @@
     set(handles.CheckScalar,'Value',0)
     set(handles.PanelVectors,'Visible','on')
+    set(handles.XVarName,'Visible','on')
+    set(handles.YVarName,'Visible','on')
+    set(handles.X_title,'Visible','on')
+    set(handles.Y_title,'Visible','on')
 end
 
@@ -413 +417 @@
 function scalar_Callback(hObject, eventdata, handles)
 %------------------------------------------------------------------------
+Field=get(handles.get_field,'UserData');
 index=get(handles.scalar,'Value');
 string=get(handles.scalar,'String');
@@ -420 +425 @@
 %eliminate time
 TimeDimName='';%default
-if strcmp(get(handles.TimeDimensionMenu,'Visible'),'on')
-    TimeDimList=get(handles.TimeDimensionMenu,'String');
-    TimeDimIndex=get(handles.TimeDimensionMenu,'Value');
-    TimeDimName=TimeDimList{TimeDimIndex};
-end
+SwitchVarIndexTime=get(handles.SwitchVarIndexTime,'String');
+TimeVarOption=SwitchVarIndexTime{get(handles.SwitchVarIndexTime,'Value')};
+if strcmp(TimeVarOption,'variable')
+    List=get(handles.TimeVarName,'String');
+    TimeVarName=List{get(handles.TimeVarName,'Value')};
+elseif  strcmp(TimeVarOption,'dim index')
+    List=get(handles.TimeVarName,'String');
+    TimeDimName=List{get(handles.TimeVarName,'Value')};
+end
+% A completer
+% if strcmp(get(handles.TimeDimensionMenu,'Visible'),'on')
+%     TimeDimList=get(handles.TimeDimensionMenu,'String');
+%     TimeDimIndex=get(handles.TimeDimensionMenu,'Value');
+%     TimeDimName=TimeDimList{TimeDimIndex};
+% end
 
 %check possible coordinates
@@ -432 +447 @@
 for ilist=1:numel(Field.VarDimName)
     dimnames=Field.VarDimName{ilist}; %list of dimensions for variable #ilist
-    if isequal(dimnames,{TimeDimName})
+    if isequal(dimnames,TimeDimName)
         test_coord(ilist)=0;%mark time variables fo elimination
+    end
+    if ischar(dimnames)
+        dimnames={dimnames};
     end
     for idim=1:numel(dimnames)