AverageSides_Scalar3D_t Subroutine

  1. SELF_Scalar_3D_t.f90
  2. SELF_Scalar_3D_t
  3. AverageSides_Scalar3D_t

public subroutine AverageSides_Scalar3D_t(this)

Arguments

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

Contents

Source Code

AverageSides_Scalar3D_t

Source Code

  subroutine AverageSides_Scalar3D_t(this)
    implicit none
    class(Scalar3D_t),intent(inout) :: this
    ! Local
    integer :: iel
    integer :: iside
    integer :: ivar
    integer :: i,j

    do concurrent(i=1:this%N+1,j=1:this%N+1, &
                  iside=1:6,iel=1:this%nelem,ivar=1:this%nvar)
      this%avgboundary(i,j,iside,iel,ivar) = 0.5_prec*( &
                                             this%boundary(i,j,iside,iel,ivar)+ &
                                             this%extBoundary(i,j,iside,iel,ivar))
    enddo

  endsubroutine AverageSides_Scalar3D_t