Changeset 17367 for issm/trunk-jpl/src/m/classes/damage.m

Timestamp:

02/28/14 12:03:48 (11 years ago)

Author:

cborstad

Message:

CHG: added a model field to choose the type of scalar equivalent stress for a damage evolution solution

File:

• issm/trunk-jpl/src/m/classes/damage.m (modified) (5 diffs)

issm/trunk-jpl/src/m/classes/damage.m

@@ -26 +26 @@
                 c4                  = NaN;
                 healing             = NaN;
+                equiv_stress              = NaN;
         end
         methods
@@ -76 +77 @@
                         obj.c3=0;
                         obj.c4=0;
+                        obj.equiv_stress=0;
 
                 end % }}}
@@ -98 +100 @@
                                 md = checkfield(md,'fieldname','damage.c4','>=',0);
                                 md = checkfield(md,'fieldname','damage.stress_threshold','>=',0);
+                                md = checkfield(md,'fieldname','damage.equiv_stress','numel',[1],'values',[0]);
                         elseif strcmpi(obj.law,'undamaged'),
                                 if (solution==DamageEvolutionSolutionEnum),
@@ -128 +131 @@
                                 fielddisplay(obj,'healing','damage healing parameter 1');
                                 fielddisplay(obj,'stress_threshold','damage stress threshold [Pa]');
+                                fielddisplay(obj,'equiv_stress','0: von Mises');
                         end
 
@@ -151 +155 @@
                                 WriteData(fid,'object',obj,'fieldname','stress_threshold','format','Double');
                                 WriteData(fid,'object',obj,'fieldname','healing','format','Double');
+                                WriteData(fid,'object',obj,'fieldname','equiv_stress','format','Integer');
                         end