Changeset 6145

Timestamp:

10/04/10 11:25:33 (14 years ago)

Author:

Mathieu Morlighem

Message:

Added some fields to structtomodel

File:

• issm/trunk/src/m/model/structtomodel.m (modified) (2 diffs)

issm/trunk/src/m/model/structtomodel.m

@@ -18 +18 @@
 
 %some special treatment for models of previous ISSM versions
+
+%Field name change
 if isfield(structmd,'drag'), md.drag_coefficient=structmd.drag; end
 if isfield(structmd,'p'), md.drag_p=structmd.p; end
@@ -23 +25 @@
 if isfield(structmd,'B'), md.rheology_B=structmd.B; end
 if isfield(structmd,'n'), md.rheology_n=structmd.n; end
+if isfield(structmd,'melting'), md.melting_rate=structmd.melting; end
+if isfield(structmd,'accumulation'), md.accumulation_rate=structmd.accumulation; end
+
+%Field class change
 if (isfield(structmd,'type') & ischar(structmd.type)), 
         if strcmpi(structmd.type,'2d'), md.dim=2; end
         if strcmpi(structmd.type,'3d'), md.dim=3; end
 end
+
+%New fields
+if ~isfield(structmd,'upperelements');
+        md.upperelements=transpose(1:md.numberofelements)+md.numberofelements2d;
+        md.upperelements(end-md.numberofelements2d+1:end)=NaN;
+end
+if ~isfield(structmd,'lowerelements');
+        md.lowerelements=transpose(1:md.numberofelements)-md.numberofelements2d;
+        md.lowerelements(1:md.numberofelements2d)=NaN;
+end