setboundarycondition_DGModel1D Subroutine

  1. SELF_DGModel1D.f90
  2. SELF_DGModel1D
  3. setboundarycondition_DGModel1D

public subroutine setboundarycondition_DGModel1D(this)

Apply boundary conditions for the solution on GPU. Syncs boundary data from device, applies host-side BC dispatch (periodic defaults + registered BCs), then syncs back to device.

Arguments

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

Calls

proc~~setboundarycondition_dgmodel1d~~CallsGraph proc~setboundarycondition_dgmodel1d setboundarycondition_DGModel1D interface~hipmemcpy hipMemcpy proc~setboundarycondition_dgmodel1d->interface~hipmemcpy proc~gpucheck gpuCheck proc~setboundarycondition_dgmodel1d->proc~gpucheck proc~setboundarycondition_dgmodel1d_t setboundarycondition_DGModel1D_t proc~setboundarycondition_dgmodel1d->proc~setboundarycondition_dgmodel1d_t

Contents

Source Code

setboundarycondition_DGModel1D

Source Code

  subroutine setboundarycondition_DGModel1D(this)
    !! Apply boundary conditions for the solution on GPU.
    !! Syncs boundary data from device, applies host-side BC dispatch
    !! (periodic defaults + registered BCs), then syncs back to device.
    implicit none
    class(DGModel1D),intent(inout) :: this

    call gpuCheck(hipMemcpy(c_loc(this%solution%boundary), &
                            this%solution%boundary_gpu,sizeof(this%solution%boundary), &
                            hipMemcpyDeviceToHost))

    call setboundarycondition_DGModel1D_t(this)

    call gpuCheck(hipMemcpy(this%solution%extBoundary_gpu, &
                            c_loc(this%solution%extBoundary), &
                            sizeof(this%solution%extBoundary), &
                            hipMemcpyHostToDevice))

  endsubroutine setboundarycondition_DGModel1D