UpdateDevice_Scalar3D Subroutine

  1. SELF_Scalar_3D.f90
  2. SELF_Scalar_3D
  3. UpdateDevice_Scalar3D

public subroutine UpdateDevice_Scalar3D(this)

Arguments

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

Calls

proc~~updatedevice_scalar3d~~CallsGraph proc~updatedevice_scalar3d UpdateDevice_Scalar3D interface~hipmemcpy hipMemcpy proc~updatedevice_scalar3d->interface~hipmemcpy proc~gpucheck gpuCheck proc~updatedevice_scalar3d->proc~gpucheck

Contents

Source Code

UpdateDevice_Scalar3D

Source Code

  subroutine UpdateDevice_Scalar3D(this)
    implicit none
    class(Scalar3D),intent(inout) :: this

    call gpuCheck(hipMemcpy(this%interior_gpu,c_loc(this%interior),sizeof(this%interior),hipMemcpyHostToDevice))
    call gpuCheck(hipMemcpy(this%boundary_gpu,c_loc(this%boundary),sizeof(this%boundary),hipMemcpyHostToDevice))
    call gpuCheck(hipMemcpy(this%extboundary_gpu,c_loc(this%extboundary),sizeof(this%extboundary),hipMemcpyHostToDevice))
    call gpuCheck(hipMemcpy(this%avgboundary_gpu,c_loc(this%avgboundary),sizeof(this%avgboundary),hipMemcpyHostToDevice))
    call gpuCheck(hipMemcpy(this%boundarynormal_gpu,c_loc(this%boundarynormal),sizeof(this%boundarynormal),hipMemcpyHostToDevice))

  endsubroutine UpdateDevice_Scalar3D