[cig-commits] r4984 - in long/3D/Gale/trunk: .
src/StgFEM/plugins/StandardConditionFunctions
walter at geodynamics.org
walter at geodynamics.org
Fri Oct 13 04:35:01 PDT 2006
Author: walter
Date: 2006-10-13 04:35:01 -0700 (Fri, 13 Oct 2006)
New Revision: 4984
Modified:
long/3D/Gale/trunk/
long/3D/Gale/trunk/src/StgFEM/plugins/StandardConditionFunctions/StandardConditionFunctions.c
Log:
r919 at earth: boo | 2006-10-13 04:34:48 -0700
Make StG_FEM_StandardConditionFunctions_AnalyticalTemperatureIC non-functional if erf not available
Property changes on: long/3D/Gale/trunk
___________________________________________________________________
Name: svk:merge
- 3a629746-de10-0410-b17b-fd6ecaaa963e:/cig:917
+ 3a629746-de10-0410-b17b-fd6ecaaa963e:/cig:919
Modified: long/3D/Gale/trunk/src/StgFEM/plugins/StandardConditionFunctions/StandardConditionFunctions.c
===================================================================
--- long/3D/Gale/trunk/src/StgFEM/plugins/StandardConditionFunctions/StandardConditionFunctions.c 2006-10-13 11:31:44 UTC (rev 4983)
+++ long/3D/Gale/trunk/src/StgFEM/plugins/StandardConditionFunctions/StandardConditionFunctions.c 2006-10-13 11:35:01 UTC (rev 4984)
@@ -621,6 +621,10 @@
double lambda, height, width;
double Tu, Tl, Tr, Ts;
+#ifdef NO_ERF
+ printf("StG_FEM_StandardConditionFunctions_AnalyticalTemperatureIC does not work\nbecause erf is not defined.\n");
+ exit(1);
+#else
feVariable = (FeVariable*)FieldVariable_Register_GetByName( context->fieldVariable_Register, "TemperatureField" );
mesh = feVariable->feMesh;
geometry = (BlockGeometry*) mesh->layout->elementLayout->geometry;
@@ -658,7 +662,7 @@
*result = 1.0;
else if ( *result < 0.0 )
*result = 0.0;
-
+#endif
}
void StG_FEM_StandardConditionFunctions_SinusoidalExtension( Node_LocalIndex node_lI, Variable_Index var_I, void* _context, void* _result ) {
More information about the cig-commits
mailing list