Changeset 27212

Timestamp:

08/17/22 13:29:17 (3 years ago)

Author:

Eric.Larour

Message:

CHG: new InputToP0Constant routine.

Location:

issm/branches/trunk-larour-SLPS2022/src/c/classes

Files:

• FemModel.cpp (modified) (1 diff)
• FemModel.h (modified) (1 diff)

issm/branches/trunk-larour-SLPS2022/src/c/classes/FemModel.cpp

@@ -1761 +1761 @@
         *pV=total_ice_volume;
 
+}/*}}}*/
+void FemModel::InputToP0(int inputenum,int outputenum){/*{{{*/
+
+        IssmDouble average;
+
+        /*Collapse input to P0, by doing the average. We need to have the elements 
+         * to do so, so loop onto elements: */
+        for(Object* & object : this->elements->objects){
+                Element* element = xDynamicCast<Element*>(object);
+                Input*  input = element->GetInput(inputenum);
+                input->GetInputAverage(&average);
+                element->AddInput(outputenum,&average,P0Enum);
+        }
 }/*}}}*/
 void FemModel::MassFluxx(IssmDouble* pmass_flux){/*{{{*/

issm/branches/trunk-larour-SLPS2022/src/c/classes/FemModel.h

@@ -116 +116 @@
                 void IceVolumex(IssmDouble* pV, bool scaled);
                 void IceVolumeAboveFloatationx(IssmDouble* pV, bool scaled);
+                void InputToP0(int inputenum,int outputenum);
                 void InputMakeDiscontinuous(int enum_in);
                 void MassFluxx(IssmDouble* presponse);