Changeset 9610 for issm/trunk/test/Par/ISMIPA.par
- Timestamp:
- 09/06/11 11:11:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
issm/trunk/test/Par/ISMIPA.par
r9481 r9610 7 7 8 8 disp(' creating drag'); 9 md. drag_coefficient=200*ones(md.numberofnodes,1); %q=1.9 md.friction.coefficient=200*ones(md.numberofnodes,1); %q=1. 10 10 %Take care of iceshelves: no basal drag 11 11 pos=find(md.elementoniceshelf); 12 md. drag_coefficient(md.elements(pos,:))=0;13 md. drag_p=ones(md.numberofelements,1);14 md. drag_q=ones(md.numberofelements,1);12 md.friction.coefficient(md.elements(pos,:))=0; 13 md.friction.p=ones(md.numberofelements,1); 14 md.friction.q=ones(md.numberofelements,1); 15 15 16 16 disp(' creating flow law paramter');
Note:
See TracChangeset
for help on using the changeset viewer.