Changeset 1753
- Timestamp:
- 08/18/09 14:52:09 (16 years ago)
- Location:
- issm/trunk/src/m/solutions/macayeal
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
issm/trunk/src/m/solutions/macayeal/control.m
r917 r1753 38 38 rho_water=md.rho_water; 39 39 g=md.g; 40 index_icefront=md. segmentonneumann_diag; index_icefront=index_icefront(:,1:2); %we strip the last column, which holds the element number for the boundary segment40 index_icefront=md.pressureload; index_icefront=index_icefront(:,1:2); %we strip the last column, which holds the element number for the boundary segment 41 41 nodes_on_boundary=md.gridonboundary; 42 42 nodes_on_dirichlet=md.gridondirichlet_diag; -
issm/trunk/src/m/solutions/macayeal/diagnostic.m
r917 r1753 36 36 g=md.g; 37 37 viscosity_overshoot=md.viscosity_overshoot; 38 index_icefront=md. segmentonneumann_diag; index_icefront=index_icefront(:,1:2); %we strip the last column, which holds the element number for the boundary segment38 index_icefront=md.pressureload; index_icefront=index_icefront(:,1:2); %we strip the last column, which holds the element number for the boundary segment 39 39 nodes_on_boundary=md.gridonboundary; 40 40 nodes_on_icefront=zeros(nods,1); nodes_on_icefront(index_icefront)=1; 41 node_on_dirichlet=md. gridondirichlet_diag;41 node_on_dirichlet=md.spcvelocity(:,1); 42 42 nodes_on_icesheet=md.gridonicesheet; 43 43 element_on_icesheet=md.elementonicesheet; … … 249 249 specified_velocity=zeros(2*nods,1); 250 250 pos=find(node_on_dirichlet); 251 specified_velocity(pos)=md. dirichletvalues_diag(pos,1)/md.yts;252 specified_velocity(nods+pos)=md. dirichletvalues_diag(pos,2)/md.yts;251 specified_velocity(pos)=md.spcvelocity(pos,1)/md.yts; 252 specified_velocity(nods+pos)=md.spcvelocity(pos,2)/md.yts; 253 253 254 254
Note:
See TracChangeset
for help on using the changeset viewer.