Changeset 56 for trunk/src/RUN_FIX.m

Timestamp:

Mar 17, 2010, 1:30:15 PM (15 years ago)

Author:

sommeria

Message:

uvmat: edit vector button activated
debugging and cleaning after modifications made with the windows version

File:

• trunk/src/RUN_FIX.m (modified) (1 diff)

trunk/src/RUN_FIX.m

@@ -153 +153 @@
     netcdf.close(nc)
 else %old netcdf library
-    nc=netcdf(filename,'write'); %open netcdf file for writing
-    result=redef(nc);
-    if isempty(result), msgbox_uvmat('ERROR','##Bad redef operation.'),end  
-    if iter==1
-        nc.fix=1;
-    elseif iter==2
-        nc.fix2=1;
-    end
-    nc{field.fixflag}=ncfloat(field.nb);
-    fixflag_unit=Field.FF-10*floor(Field.FF/10); %unity term of fix_flag
-    nc{field.fixflag}(:)=fixflag_unit+10*flagmagenta;
-    close(nc);
+    netcdf_toolbox(filename,Field,flagmagenta,iter,field)
 end
+
+function netcdf_toolbox(filename,Field,flagmagenta,iter,field)
+nc=netcdf(filename,'write'); %open netcdf file for writing
+result=redef(nc);
+if isempty(result), msgbox_uvmat('ERROR','##Bad redef operation.'),end  
+if iter==1
+    nc.fix=1;
+elseif iter==2
+    nc.fix2=1;
+end
+nc{field.fixflag}=ncfloat(field.nb);
+fixflag_unit=Field.FF-10*floor(Field.FF/10); %unity term of fix_flag
+nc{field.fixflag}(:)=fixflag_unit+10*flagmagenta;
+close(nc);