Changeset 18279
- Timestamp:
- 07/21/14 17:45:01 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
issm/trunk-jpl/src/m/classes/damage.m
r18045 r18279 158 158 md = checkfield(md,'fieldname','damage.penalty_lock','>=',0); 159 159 md = checkfield(md,'fieldname','damage.penalty_threshold','>=',0); 160 end161 162 if (obj.law==1 | obj.law==2),163 160 md = checkfield(md,'fieldname','damage.healing','>=',0); 164 161 md = checkfield(md,'fieldname','damage.c1','>=',0); … … 199 196 fielddisplay(obj,'penalty_threshold','threshold to declare convergence of damage evolution solution (default is 0)'); 200 197 fielddisplay(obj,'penalty_factor','scaling exponent (default is 3)'); 201 end202 203 if (obj.law==1 | obj.law==2),204 198 fielddisplay(obj,'c1','damage parameter 1'); 205 199 fielddisplay(obj,'c2','damage parameter 2'); … … 228 222 WriteData(fid,'object',obj,'fieldname','penalty_lock','format','Integer'); 229 223 WriteData(fid,'object',obj,'fieldname','penalty_factor','format','Double'); 230 end231 232 if (obj.law==1 | obj.law==2),233 224 WriteData(fid,'object',obj,'fieldname','c1','format','Double'); 234 225 WriteData(fid,'object',obj,'fieldname','c2','format','Double');
Note:
See TracChangeset
for help on using the changeset viewer.