SetupInterfaces_MultiSetModel3D Subroutine

  1. SELF_MultiSetModel3D.f90
  2. SELF_MultiSetModel3D
  3. SetupInterfaces_MultiSetModel3D

public subroutine SetupInterfaces_MultiSetModel3D(this)

As SetupInterfaces_MultiSetModel3D_t, then points each set's trace reference at the device copy of its solution%boundary.

Arguments

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

Calls

proc~~setupinterfaces_multisetmodel3d~~CallsGraph proc~setupinterfaces_multisetmodel3d SetupInterfaces_MultiSetModel3D proc~setupinterfaces_multisetmodel3d_t SetupInterfaces_MultiSetModel3D_t proc~setupinterfaces_multisetmodel3d->proc~setupinterfaces_multisetmodel3d_t mpi_allreduce mpi_allreduce proc~setupinterfaces_multisetmodel3d_t->mpi_allreduce proc~reservesetmessages ReserveSetMessages proc~setupinterfaces_multisetmodel3d_t->proc~reservesetmessages

Contents

Source Code

SetupInterfaces_MultiSetModel3D

Source Code

  subroutine SetupInterfaces_MultiSetModel3D(this)
    !! As SetupInterfaces_MultiSetModel3D_t, then points each set's trace reference at
    !! the device copy of its solution%boundary.
    implicit none
    class(MultiSetModel3D),intent(inout) :: this
    ! Local
    integer :: k

    call SetupInterfaces_MultiSetModel3D_t(this)
    do k = 1,this%nSets
      this%traces(k)%trace_gpu = this%sets(k)%model%solution%boundary_gpu
    enddo

  endsubroutine SetupInterfaces_MultiSetModel3D