Changeset 17330 for issm/trunk-jpl/src/c/classes/Elements/Element.cpp

Timestamp:

02/21/14 08:58:17 (11 years ago)

Author:

seroussi

Message:

BUG: fixed set FS basal boundary conditions for flow line models

File:

• issm/trunk-jpl/src/c/classes/Elements/Element.cpp (modified) (1 diff)

issm/trunk-jpl/src/c/classes/Elements/Element.cpp

@@ -347 +347 @@
         for(int iv=0;iv<numnodes;iv++){
                 gauss->GaussNode(this->FiniteElement(),iv);
+                input->GetInputValue(&pvalue[iv],gauss);
+        }
+        delete gauss;
+}
+/*}}}*/
+void Element::GetInputListOnNodesVelocity(IssmDouble* pvalue,int enumtype){/*{{{*/
+
+        _assert_(pvalue);
+
+        int    numnodes = this->GetNumberOfNodesVelocity();
+        Input *input    = this->GetInput(enumtype);
+        if(!input) _error_("Input " << EnumToStringx(enumtype) << " not found in element");
+
+        /* Start looping on the number of vertices: */
+        Gauss* gauss=this->NewGauss();
+        for(int iv=0;iv<numnodes;iv++){
+                gauss->GaussNode(this->VelocityInterpolation(),iv);
                 input->GetInputValue(&pvalue[iv],gauss);
         }