m_fstr_contact_elem_alag Module Reference

Alag method implementations for contact element calculations. More...

Functions/Subroutines
subroutine, public	getcontactstiffness_alag (cstate, tSurf, ele, mu, mut, fcoeff, symm, stiff, force, smoothing_type, edisp, iter)
subroutine, public	getcontactnodalforce_alag (ctState, tSurf, ndCoord, ndDu, mu, mut, fcoeff, lagrange, ctNForce, ctTForce, cflag, smoothing_type)
subroutine, public	updatecontactmultiplier_alag (ctState, ndLocal, coord, disp, ddisp, mu, mut, fcoeff, tSurf, lgnt, ctchanged, ctNForce, ctTForce, jump_ratio, smoothing_type)
subroutine, public	gettiedstiffness_alag (cstate, tSurf, mu, stiff, force)
subroutine, public	gettiednodalforce_alag (ctState, tSurf, ndu, mu, ctNForce, ctTForce)

Detailed Description

Alag method implementations for contact element calculations.

Function/Subroutine Documentation

getcontactnodalforce_alag()

subroutine, public m_fstr_contact_elem_alag::getcontactnodalforce_alag	(	type(tcontactstate)	ctState,
		type(tsurfelement)	tSurf,
		real(kind=kreal), dimension(:)	ndCoord,
		real(kind=kreal), dimension(:)	ndDu,
		real(kind=kreal), intent(in)	mu,
		real(kind=kreal), intent(in)	mut,
		real(kind=kreal)	fcoeff,
		real(kind=kreal)	lagrange,
		real(kind=kreal), dimension(:)	ctNForce,
		real(kind=kreal), dimension(:)	ctTForce,
		logical	cflag,
		integer(kind=kint), intent(in), optional	smoothing_type
	)

Parameters

	ctstate	type tContactState
	tsurf	surface element structure
[in]	mut	penalty parameters
	fcoeff	friction coefficient
	lagrange	not used for ALagrange (kept for interface compatibility)
	nddu	nodal coordinates (coord+disp+ddisp); nodal displacement increment (ddisp)
	ctnforce	contact normal force vector
	cttforce	contact tangential force vector
	cflag	not used for ALagrange (kept for interface compatibility)
[in]	smoothing_type	kcsNONE or kcsNAGATA

Definition at line 114 of file fstr_contact_elem_alag.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

getcontactstiffness_alag()

subroutine, public m_fstr_contact_elem_alag::getcontactstiffness_alag	(	type(tcontactstate), intent(inout)	cstate,
		type(tsurfelement), intent(in)	tSurf,
		real(kind=kreal), dimension(:,:), intent(in)	ele,
		real(kind=kreal), intent(in)	mu,
		real(kind=kreal), intent(in)	mut,
		real(kind=kreal), intent(in)	fcoeff,
		logical, intent(in)	symm,
		real(kind=kreal), dimension(:,:), intent(out)	stiff,
		real(kind=kreal), dimension(:), intent(out)	force,
		integer(kind=kint), intent(in), optional	smoothing_type,
		real(kind=kreal), dimension(:), intent(in), optional	edisp,
		integer(kind=kint), intent(in)	iter
	)

Parameters

[in,out]	cstate	contact state (inout for projection info)
[in]	tsurf	surface element structure
[in]	ele	coord of surface element
[in]	mut	penalty parameters
[in]	fcoeff	friction coefficient
[in]	symm	symmetricalize
[out]	stiff	contact stiffness
[out]	force	contact force direction
[in]	smoothing_type	kcsNONE or kcsNAGATA
[in]	edisp	displacement increment for friction evaluation
[in]	iter	NR iteration number (for tangent switching)

Definition at line 24 of file fstr_contact_elem_alag.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

gettiednodalforce_alag()

subroutine, public m_fstr_contact_elem_alag::gettiednodalforce_alag	(	type(tcontactstate)	ctState,
		type(tsurfelement)	tSurf,
		real(kind=kreal), dimension(:)	ndu,
		real(kind=kreal), intent(in)	mu,
		real(kind=kreal), dimension(:)	ctNForce,
		real(kind=kreal), dimension(:)	ctTForce
	)

Parameters

	ctstate	type tContactState
	tsurf	surface element structure
	ndu	nodal total displacement (disp+ddisp)
[in]	mu	penalty parameter
	ctnforce	contact force vector
	cttforce	contact force vector (not used for tied)

Definition at line 300 of file fstr_contact_elem_alag.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

gettiedstiffness_alag()

subroutine, public m_fstr_contact_elem_alag::gettiedstiffness_alag	(	type(tcontactstate), intent(in)	cstate,
		type(tsurfelement), intent(in)	tSurf,
		real(kind=kreal), intent(in)	mu,
		real(kind=kreal), dimension(:,:), intent(out)	stiff,
		real(kind=kreal), dimension(:), intent(out)	force
	)

Parameters

[in]	cstate	contact state
[in]	tsurf	surface element structure
[in]	mu	penalty parameter
[out]	stiff	contact stiffness
[out]	force	contact force direction

Definition at line 270 of file fstr_contact_elem_alag.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

updatecontactmultiplier_alag()

subroutine, public m_fstr_contact_elem_alag::updatecontactmultiplier_alag	(	type(tcontactstate), intent(inout)	ctState,
		integer(kind=kint), dimension(:), intent(in)	ndLocal,
		real(kind=kreal), dimension(:), intent(in)	coord,
		real(kind=kreal), dimension(:), intent(in)	disp,
		real(kind=kreal), dimension(:), intent(in)	ddisp,
		real(kind=kreal), intent(in)	mu,
		real(kind=kreal), intent(in)	mut,
		real(kind=kreal), intent(in)	fcoeff,
		type(tsurfelement), intent(in)	tSurf,
		real(kind=kreal), dimension(2), intent(inout)	lgnt,
		logical, intent(inout)	ctchanged,
		real(kind=kreal), dimension(:), intent(out)	ctNForce,
		real(kind=kreal), dimension(:), intent(out)	ctTForce,
		real(kind=kreal), intent(out)	jump_ratio,
		integer(kind=kint), intent(in), optional	smoothing_type
	)

Parameters

[in,out]	ctstate	contact state
[in]	ndlocal	global node numbers (slave + master)
[in]	coord	mesh coordinate
[in]	disp	disp till current step
[in]	ddisp	disp till current substep
[in]	mut	penalty parameters
[in]	fcoeff	friction coefficient
[in]	tsurf	surface element structure (with vertex_normals for Nagata)
[in,out]	lgnt	convergence metrics
[in,out]	ctchanged	contact state changed flag
[out]	ctnforce	contact normal force vector
[out]	cttforce	contact tangential force vector
[out]	jump_ratio	stick trial / slip limit force ratio
[in]	smoothing_type	kcsNONE or kcsNAGATA

Definition at line 188 of file fstr_contact_elem_alag.f90.

Here is the call graph for this function:

Here is the caller graph for this function: