mus_interpolate_Compact2d Function

public pure function mus_interpolate_Compact2d(vel, S, cx, cy) result(phi)

Given the velocity and strain rate (S) at four corner, interpolate the velocity at a given position (cx, cy) vel and S contain values at the following position: [0,0], [1,0], [0,1], [1,1] Checked!

Arguments

TypeIntentOptionalAttributesName
real(kind=rk), intent(in) :: vel(2,4)

velocity (Ux, Uy) of 4 source elements

real(kind=rk), intent(in) :: S(3,4)

Strain rate (Sxx,Syy,Sxy) of 4 source elements

real(kind=rk), intent(in) :: cx

interpolation location within the square it should be in the range of [0,1]

real(kind=rk), intent(in) :: cy

interpolation location within the square it should be in the range of [0,1]

Return Value real(kind=rk)(2)

interpolated velocity


Called by

proc~~mus_interpolate_compact2d~~CalledByGraph proc~mus_interpolate_compact2d mus_interpolate_Compact2d proc~fillcoarser_compact2dincomp fillCoarser_compact2DIncomp proc~fillcoarser_compact2dincomp->proc~mus_interpolate_compact2d proc~fillfiner_compact2dincomp fillFiner_compact2DIncomp proc~fillfiner_compact2dincomp->proc~mus_interpolate_compact2d proc~fillfiner_compact2d fillFiner_compact2D proc~fillfiner_compact2d->proc~mus_interpolate_compact2d

Contents


Variables

TypeVisibilityAttributesNameInitial
real(kind=rk), private :: a0
real(kind=rk), private :: ax
real(kind=rk), private :: ay
real(kind=rk), private :: axx
real(kind=rk), private :: ayy
real(kind=rk), private :: axy
real(kind=rk), private :: b0
real(kind=rk), private :: bx
real(kind=rk), private :: by
real(kind=rk), private :: bxx
real(kind=rk), private :: byy
real(kind=rk), private :: bxy
real(kind=rk), private :: Ux(4)
real(kind=rk), private :: Uy(4)
real(kind=rk), private :: Sxxyy(4)
real(kind=rk), private :: Sxy(4)