Changeset 4285 for issm/trunk/src/c/solutions/balancedthickness2_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/balancedthickness2_core.cpp (modified) (3 diffs)

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

@@ -17 +17 @@
         int verbose=0;
         int dim;
+        int solution_type;
 
         /*activate formulation: */
@@ -24 +25 @@
         femmodel->parameters->FindParam(&verbose,VerboseEnum);
         femmodel->parameters->FindParam(&dim,DimEnum);
+        femmodel->parameters->FindParam(&solution_type,SolutionTypeEnum);
 
         _printf_("depth averaging velocity...\n");
@@ -42 +44 @@
 
         if(verbose)_printf_("saving results:\n");
-        InputToResultx(femmodel->elements,femmodel->nodes,femmodel->vertices,femmodel->loads,femmodel->materials,femmodel->parameters,ThicknessEnum);
+        if(solution_type==Balancedthickness2AnalysisEnum){
+                InputToResultx(femmodel->elements,femmodel->nodes,femmodel->vertices,femmodel->loads,femmodel->materials,femmodel->parameters,ThicknessEnum);
+        }
+
 
 }