Changeset 1763

Timestamp:

08/18/09 15:52:37 (15 years ago)

Author:

seroussi

Message:

prognostic

File:

• issm/trunk/src/c/ModelProcessorx/Prognostic/CreateConstraintsPrognostic.cpp (modified) (5 diffs)

issm/trunk/src/c/ModelProcessorx/Prognostic/CreateConstraintsPrognostic.cpp

@@ -29 +29 @@
         double spc_value;
         
-        double* dirichletvalues_prog=NULL;
-        double* gridondirichlet_prog=NULL;
+        double* spcthickness=NULL;
         
         /*Create constraints: */
@@ -36 +35 @@
 
         /*Fetch data: */
-        ModelFetchData((void**)&gridondirichlet_prog,NULL,NULL,model_handle,"gridondirichlet_prog","Matrix","Mat");
-        ModelFetchData((void**)&dirichletvalues_prog,NULL,NULL,model_handle,"dirichletvalues_prog","Matrix","Mat");
+        ModelFetchData((void**)&spcthickness,NULL,NULL,model_handle,"spcthickness","Matrix","Mat");
 
         count=0;
@@ -48 +46 @@
         #endif
 
-                if ((int)gridondirichlet_prog[i]){
+                if ((int)spcthickness[2*i]){
         
                         /*This grid needs to be spc'd: */
@@ -55 +53 @@
                         spc_node=i+1;
                         spc_dof=1; //we enforce first translation degree of freedom, for temperature
-                        spc_value=dirichletvalues_prog[i];
+                        spc_value=*(spcthickness+2*i+1);
 
                         spc = new Spc(spc_sid,spc_node,spc_dof,spc_value);
@@ -72 +70 @@
 
         /*Free data: */
-        xfree((void**)&gridondirichlet_prog);
-        xfree((void**)&dirichletvalues_prog);
+        xfree((void**)&spcthickness);
         
         cleanup_and_return: