Changeset 586 for trunk/src/proj_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/proj_field.m (modified) (1 diff)

trunk/src/proj_field.m

@@ -2187 +2187 @@
 
 %% transfer coordinate unit
+if isfield(ProjData,'CoordUnit')
+    ProjData=rmfield(ProjData,'CoordUnit');% do not transfer by default (to avoid x/y=1 for profiles)
+end
 if isfield(FieldData,'CoordUnit')
     if isfield(ObjectData,'CoordUnit') && ~strcmp(FieldData.CoordUnit,ObjectData.CoordUnit)
         errormsg=[ObjectData.Type ' in ' ObjectData.CoordUnit ' coordinates, while field in ' FieldData.CoordUnit ];
         return
-    else
+    elseif strcmp(ObjectData.Type,'plane')|| strcmp(ObjectData.Type,'volume')
          ProjData.CoordUnit=FieldData.CoordUnit;
     end