GatherOutbox_SetInterface3D_t Subroutine

  subroutine GatherOutbox_SetInterface3D_t(this,traces)
    !! outbox(:,:,v,f) = trace of set k on face f, v = 1..nvar(k), unflipped, for every
    !! local interface face f of every set k. Host traces.
    implicit none
    class(SetInterface3D_t),intent(inout) :: this
    type(SetTraceRef),intent(in) :: traces(1:)
    ! Local
    integer :: f,k,nv

    do f = 1,this%nFaces
      k = this%faceSet(f)
      nv = this%nvarOfSet(k)
      this%outbox(:,:,1:nv,f) = traces(k)%trace(:,:,this%faceSide(f),this%faceElem(f),1:nv)
    enddo

  endsubroutine GatherOutbox_SetInterface3D_t