Changeset 9714 for issm/trunk/src/m/utils/BC/SetMarineIceSheetBC.m
- Timestamp:
- 09/09/11 07:28:59 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
TabularUnified issm/trunk/src/m/utils/BC/SetMarineIceSheetBC.m ¶
r9696 r9714 24 24 end 25 25 nodeinsideicefront=ContourToMesh(md.elements,md.x,md.y,icefrontfile,'node',2); 26 vertexonicefront=double(md. nodeonboundary & nodeinsideicefront);26 vertexonicefront=double(md.mesh.vertexonboundary & nodeinsideicefront); 27 27 else 28 28 %Guess where the ice front is 29 29 vertexonfloatingice=zeros(md.numberofnodes,1); 30 30 vertexonfloatingice(md.elements(find(md.mask.elementonfloatingice),:))=1; 31 vertexonicefront=double(md. nodeonboundary & vertexonfloatingice);31 vertexonicefront=double(md.mesh.vertexonboundary & vertexonfloatingice); 32 32 end 33 pos=find(md. nodeonboundary & ~vertexonicefront);33 pos=find(md.mesh.vertexonboundary & ~vertexonicefront); 34 34 if isempty(pos), 35 35 warning('SetMarineIceSheetBC warning: ice front all around the glacier, no dirichlet found. Dirichlet must be added manually') … … 53 53 54 54 md.hydrology.spcwatercolumn=zeros(md.numberofnodes,2); 55 pos=find(md. nodeonboundary);55 pos=find(md.mesh.vertexonboundary); 56 56 md.hydrology.spcwatercolumn(pos,1)=1; 57 57 58 58 %segment on Neumann (Ice Front) 59 pos=find(vertexonicefront(md. segments(:,1)) | vertexonicefront(md.segments(:,2)));59 pos=find(vertexonicefront(md.mesh.segments(:,1)) | vertexonicefront(md.mesh.segments(:,2))); 60 60 if (md.dim==2) 61 pressureload=md. segments(pos,:);61 pressureload=md.mesh.segments(pos,:); 62 62 elseif md.dim==3 63 pressureload_layer1=[md. segments(pos,1:2) md.segments(pos,2)+md.numberofnodes2d md.segments(pos,1)+md.numberofnodes2d md.segments(pos,3)];63 pressureload_layer1=[md.mesh.segments(pos,1:2) md.mesh.segments(pos,2)+md.numberofnodes2d md.mesh.segments(pos,1)+md.numberofnodes2d md.mesh.segments(pos,3)]; 64 64 pressureload=[]; 65 65 for i=1:md.numlayers-1,
Note:
See TracChangeset
for help on using the changeset viewer.