BoundaryInterp_Vector3D_t Subroutine

public subroutine BoundaryInterp_Vector3D_t(this)

Arguments

TypeIntentOptionalAttributesName
class(Vector3D_t), intent(inout) :: this

Contents


Source Code

  subroutine BoundaryInterp_Vector3D_t(this)
    implicit none
    class(Vector3D_t),intent(inout) :: this
    ! Local
    integer :: i,j,ii,idir,iel,ivar
    real(prec) :: fbb,fbs,fbe,fbn,fbw,fbt

    do concurrent(i=1:this%N+1,j=1:this%N+1, &
                  iel=1:this%nelem,ivar=1:this%nvar,idir=1:3)

      fbb = 0.0_prec
      fbs = 0.0_prec
      fbe = 0.0_prec
      fbn = 0.0_prec
      fbw = 0.0_prec
      fbt = 0.0_prec
      do ii = 1,this%N+1
        fbb = fbb+this%interp%bMatrix(ii,1)*this%interior(i,j,ii,iel,ivar,idir) ! Bottom
        fbs = fbs+this%interp%bMatrix(ii,1)*this%interior(i,ii,j,iel,ivar,idir) ! South
        fbe = fbe+this%interp%bMatrix(ii,2)*this%interior(ii,i,j,iel,ivar,idir) ! East
        fbn = fbn+this%interp%bMatrix(ii,2)*this%interior(i,ii,j,iel,ivar,idir) ! North
        fbw = fbw+this%interp%bMatrix(ii,1)*this%interior(ii,i,j,iel,ivar,idir) ! West
        fbt = fbt+this%interp%bMatrix(ii,2)*this%interior(i,j,ii,iel,ivar,idir) ! Top
      enddo

      this%boundary(i,j,1,iel,ivar,idir) = fbb
      this%boundary(i,j,2,iel,ivar,idir) = fbs
      this%boundary(i,j,3,iel,ivar,idir) = fbe
      this%boundary(i,j,4,iel,ivar,idir) = fbn
      this%boundary(i,j,5,iel,ivar,idir) = fbw
      this%boundary(i,j,6,iel,ivar,idir) = fbt

    enddo

  endsubroutine BoundaryInterp_Vector3D_t