ply_calcDiff_leg_y_vec Subroutine

public subroutine ply_calcDiff_leg_y_vec(legCoeffs, legCoeffsDiff, mPd, nVars, elemLength)

Compute the derivative in Y direction for 3D Legendre polynomial.


real(kind=rk), intent(in) :: legCoeffs(:,:)
real(kind=rk), intent(inout) :: legCoeffsDiff(:,:)

Modal expansion of the derivative of legCoeffs in terms of Legendre modal coefficients. * First index is the number of modal coefficients. * Second index is the number of variable components

integer, intent(in) :: mPd
integer, intent(in) :: nVars

The number of varibales to differentiate

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

The physical length of the element to build the derivatives for.

Called by

proc~~ply_calcdiff_leg_y_vec~~CalledByGraph proc~ply_calcdiff_leg_y_vec ply_calcDiff_leg_y_vec proc~ply_calcdiff_leg ply_calcDiff_leg proc~ply_calcdiff_leg->proc~ply_calcdiff_leg_y_vec



integer, private :: iVar
integer, private :: dofPos
integer, private :: dofPosPrev
integer, private :: iDeg
integer, private :: iDeg1
integer, private :: iDeg2
integer, private :: iDeg3
real(kind=rk), private :: derivative((mpd+1)**2,mpd+1)