Searched defs:SetSolidCouplingBCs (Results 1 – 1 of 1) sorted by relevance
4755 SUBROUTINE SetSolidCouplingBCs(Model, Solver, Displacement) subroutine4759 TYPE(Model_t), INTENT(IN) :: Model !< The current model structure4760 TYPE(Solver_t), INTENT(INOUT) :: Solver !< The shell solver4761 TYPE(Variable_t), POINTER, INTENT(INOUT) :: Displacement !< The variable of 3-D elasticity 4763 TYPE(Mesh_t), POINTER :: Mesh4787 CALL Warn('SetSolidCouplingBCs', 'Structure coupling possible in 3D only') argument