SourceMethod_ECAdvection2D Subroutine

  1. SELF_ECAdvection2D.f90
  2. SELF_ECAdvection2D
  3. SourceMethod_ECAdvection2D

public subroutine SourceMethod_ECAdvection2D(this)

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

Arguments

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

Calls

proc~~sourcemethod_ecadvection2d~~CallsGraph proc~sourcemethod_ecadvection2d SourceMethod_ECAdvection2D interface~hipmemcpy hipMemcpy proc~sourcemethod_ecadvection2d->interface~hipmemcpy proc~gpucheck gpuCheck proc~sourcemethod_ecadvection2d->proc~gpucheck

Contents

Source Code

SourceMethod_ECAdvection2D

Source Code

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

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

  endsubroutine SourceMethod_ECAdvection2D