Skip to content

Commit

Permalink
Fix
Browse files Browse the repository at this point in the history
  • Loading branch information
mnabideltares committed Jan 13, 2025
1 parent 0b630c8 commit af1d84d
Showing 1 changed file with 2 additions and 1 deletion.
Original file line number Diff line number Diff line change
Expand Up @@ -270,7 +270,8 @@ class KRATOS_API(GEO_MECHANICS_APPLICATION) TransientPwLineElement : public Elem
mRetentionLawVector[integration_point_index]->CalculateRelativePermeability(RetentionParameters);
fluid_body_vector +=
r_properties[DENSITY_WATER] * RelativePermeability *
prod(prod(shape_function_gradients[integration_point_index], constitutive_matrix), projected_gravity) *
prod(prod(shape_function_gradients[integration_point_index], constitutive_matrix),
ScalarVector(1, projected_gravity[integration_point_index])) *
integration_coefficients[integration_point_index] / r_properties[DYNAMIC_VISCOSITY];
}
return fluid_body_vector;
Expand Down

0 comments on commit af1d84d

Please sign in to comment.