Changeset 13020 for issm/trunk-jpl/src/m/classes/groundingline.m
- Timestamp:
- 08/13/12 14:41:11 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
issm/trunk-jpl/src/m/classes/groundingline.m
r12663 r13020 36 36 md = checkmessage(md,['requesting grounding line migration, but bathymetry is absent!']); 37 37 end 38 pos=find(md.mask.vertexongroundedice); 38 pos=find(md.mask.vertexongroundedice); 39 39 if any(abs(md.geometry.bed(pos)-md.geometry.bathymetry(pos))>10^-10), 40 md = checkmessage(md,['bathymetry not equal to bed on grounded ice 40 md = checkmessage(md,['bathymetry not equal to bed on grounded ice!']); 41 41 end 42 pos=find(md.mask.vertexonfloatingice); 42 pos=find(md.mask.vertexonfloatingice); 43 43 if any(md.geometry.bathymetry(pos)-md.geometry.bed(pos)>10^-9), 44 md = checkmessage(md,['bathymetry superior to bed on floating ice 44 md = checkmessage(md,['bathymetry superior to bed on floating ice!']); 45 45 end 46 46 end … … 55 55 end % }}} 56 56 function marshall(obj,fid) % {{{ 57 WriteData(fid,'data',StringToEnum(obj.migration),'enum',GroundinglineMigrationEnum ,'format','Integer');57 WriteData(fid,'data',StringToEnum(obj.migration),'enum',GroundinglineMigrationEnum(),'format','Integer'); 58 58 WriteData(fid,'object',obj,'fieldname','melting_rate','format','Double'); 59 59 end % }}}
Note:
See TracChangeset
for help on using the changeset viewer.