Free_SetInterface3D Subroutine

  1. SELF_SetInterface_3D.f90
  2. SELF_SetInterface_3D
  3. Free_SetInterface3D

public subroutine Free_SetInterface3D(this)

Free the device buffers, then the host map. Collective.

Arguments

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

Calls

proc~~free_setinterface3d~~CallsGraph proc~free_setinterface3d Free_SetInterface3D interface~hipfree hipFree proc~free_setinterface3d->interface~hipfree proc~gpucheck gpuCheck proc~free_setinterface3d->proc~gpucheck proc~free_setinterface3d_t Free_SetInterface3D_t proc~free_setinterface3d->proc~free_setinterface3d_t mpi_request_free mpi_request_free proc~free_setinterface3d_t->mpi_request_free mpi_comm_free mpi_comm_free proc~free_setinterface3d_t->mpi_comm_free

Contents

Source Code

Free_SetInterface3D

Source Code

  subroutine Free_SetInterface3D(this)
    !! Free the device buffers, then the host map. Collective.
    implicit none
    class(SetInterface3D),intent(inout) :: this

    if(c_associated(this%faceElem_gpu)) call gpuCheck(hipFree(this%faceElem_gpu))
    if(c_associated(this%faceSide_gpu)) call gpuCheck(hipFree(this%faceSide_gpu))
    if(c_associated(this%outbox_gpu)) call gpuCheck(hipFree(this%outbox_gpu))
    if(c_associated(this%ghost_gpu)) call gpuCheck(hipFree(this%ghost_gpu))
    this%faceElem_gpu = c_null_ptr
    this%faceSide_gpu = c_null_ptr
    this%outbox_gpu = c_null_ptr
    this%ghost_gpu = c_null_ptr

    call Free_SetInterface3D_t(this)

  endsubroutine Free_SetInterface3D