SourceMethod_ECAdvection3D Subroutine

public subroutine SourceMethod_ECAdvection3D(this)

No source term — upload the zero-initialised host array to device.

Arguments

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

Calls

proc~~sourcemethod_ecadvection3d~~CallsGraph proc~sourcemethod_ecadvection3d SourceMethod_ECAdvection3D interface~hipmemcpy hipMemcpy proc~sourcemethod_ecadvection3d->interface~hipmemcpy proc~gpucheck gpuCheck proc~sourcemethod_ecadvection3d->proc~gpucheck

Contents


Source Code

  subroutine SourceMethod_ECAdvection3D(this)
    !! No source term — upload the zero-initialised host array to device.
    implicit none
    class(ECAdvection3D),intent(inout) :: this

    call gpuCheck(hipMemcpy(this%source%interior_gpu, &
                            c_loc(this%source%interior), &
                            sizeof(this%source%interior), &
                            hipMemcpyHostToDevice))

  endsubroutine SourceMethod_ECAdvection3D