Changeset 104

Timestamp:

04/28/09 15:29:43 (16 years ago)

Author:

Eric.Larour

Message:

No more need for partitioning switch in serial mode

File:

• issm/trunk/src/m/solutions/cielo/diagnostic.m (modified) (3 diffs)

issm/trunk/src/m/solutions/cielo/diagnostic.m

@@ -14 +14 @@
 
         if strcmpi(md.type,'3d'),
-                m_dbv=CreateFemModel(md,analysis_dbv);
-                m_dv=CreateFemModel(md,analysis_dv);
+                md.analysis_type=analysis_dbv; 
+                m_dbv=CreateFemModel(md);
+                md.analysis_type=analysis_dv; 
+                m_dv=CreateFemModel(md);
         end
 
@@ -28 +30 @@
         if strcmpi(md.type,'3d'),
         
-                %swith u_g to workspace partitioning.
-                u_g=SwitchPartitioning(u_g,'workspace',part,tpart,[1 2]); 
-                
                 %extrude velocities for collapsed penta elements
-                u_g=CieloVelocityExtrude(md,u_g);
+                u_g=VelocityExtrude(md,u_g);
 
                 %Compute depth averaged velocity and add it to inputs
@@ -41 +40 @@
                 velocity_average=SwitchPartitioning(velocity_average,'cluster',part,tpart,[1 2]); 
                 
-
                 disp(sprintf('\n%s',['computing basal vertical velocities...']));
                 SetUset(m_dbv);