Changeset 1397

Timestamp:

07/28/09 15:13:41 (16 years ago)

Author:

seroussi

Message:

modifications in coupling

Location:

issm/trunk/src/m/classes

Files:

• @icefront/CreatePVector.m (modified) (1 diff)
• @pentaelem/GetB_melange.m (added)
• @pentaelem/GetBprime_melange.m (added)
• @pentaelem/pentaelem.m (modified) (1 diff)
• @triaelem/CreateKMatrix.m (modified) (1 diff)
• @triaelem/triaelem.m (modified) (1 diff)

issm/trunk/src/m/classes/@icefront/CreatePVector.m

@@ -332 +332 @@
         global element_debug  element_debugid
 
-
         if strcmpi(load.type,'segment'),
                 %check that the element is onbed (collapsed formulation) otherwise:pe=0

issm/trunk/src/m/classes/@pentaelem/pentaelem.m

@@ -17 +17 @@
         pentaelem.friction_type=2;
         pentaelem.viscosity_overshoot=0;
+        pentaelem.ontiling=0;
         pentaelem.k=zeros(6,1);
         pentaelem.p=1;

issm/trunk/src/m/classes/@triaelem/CreateKMatrix.m

@@ -472 +472 @@
 end %for ig=1:num_gauss,
 
+%if triaelem.id==1,
+%       disp('tria')
+%       Ke.terms
+%end
 if (element_debug & triaelem.id==element_debugid),
         disp(sprintf('Ke_gg->terms:\n'));

issm/trunk/src/m/classes/@triaelem/triaelem.m

@@ -17 +17 @@
         triaelem.friction_type=2;
         triaelem.viscosity_overshoot=0;
+        triaelem.ontiling=0;
         triaelem.k=zeros(3,1);
         triaelem.p=1;