Changeset 4285 for issm/trunk/src/c/solutions/balancedvelocities_core.cpp

Timestamp:

06/28/10 23:22:14 (15 years ago)

Author:

Eric.Larour

Message:

Cleanup of Tria, Sing and Beam elements + New flags to stop cores from creating too many results

File:

• issm/trunk/src/c/solutions/balancedvelocities_core.cpp (modified) (3 diffs)

issm/trunk/src/c/solutions/balancedvelocities_core.cpp

@@ -16 +16 @@
         int verbose=0;
         int dim;
+        int solution_type;
 
         /*activate formulation: */
@@ -23 +24 @@
         femmodel->parameters->FindParam(&verbose,VerboseEnum);
         femmodel->parameters->FindParam(&dim,DimEnum);
+        femmodel->parameters->FindParam(&solution_type,SolutionTypeEnum);
 
         _printf_("depth averaging velocity...\n");
@@ -37 +39 @@
 
         if(verbose)_printf_("saving results:\n");
-        InputToResultx(femmodel->elements,femmodel->nodes,femmodel->vertices,femmodel->loads,femmodel->materials,femmodel->parameters,VxEnum);
-        InputToResultx(femmodel->elements,femmodel->nodes,femmodel->vertices,femmodel->loads,femmodel->materials,femmodel->parameters,VyEnum);
+        if(solution_type==BalancedvelocitiesAnalysisEnum){
+                InputToResultx(femmodel->elements,femmodel->nodes,femmodel->vertices,femmodel->loads,femmodel->materials,femmodel->parameters,VxEnum);
+                InputToResultx(femmodel->elements,femmodel->nodes,femmodel->vertices,femmodel->loads,femmodel->materials,femmodel->parameters,VyEnum);
+        }
 
 }