Free_Mesh3D Subroutine

  1. SELF_Mesh_3D.f90
  2. SELF_Mesh_3D
  3. Free_Mesh3D

public subroutine Free_Mesh3D(this)

Arguments

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

Calls

proc~~free_mesh3d~~CallsGraph proc~free_mesh3d Free_Mesh3D interface~hipfree hipFree proc~free_mesh3d->interface~hipfree proc~gpucheck gpuCheck proc~free_mesh3d->proc~gpucheck

Contents

Source Code

Free_Mesh3D

Source Code

  subroutine Free_Mesh3D(this)
    implicit none
    class(Mesh3D),intent(inout) :: this

    this%nElem = 0
    this%nSides = 0
    this%nNodes = 0
    this%nCornerNodes = 0
    this%nUniqueSides = 0
    this%nUniqueNodes = 0
    this%nBCs = 0

    deallocate(this%elemInfo)
    deallocate(this%sideInfo)
    deallocate(this%nodeCoords)
    deallocate(this%globalNodeIDs)
    deallocate(this%CGNSCornerMap)
    deallocate(this%sideMap)
    deallocate(this%CGNSSideMap)
    deallocate(this%BCType)
    deallocate(this%BCNames)
    call this%decomp%Free()

    call gpuCheck(hipFree(this%sideInfo_gpu))

  endsubroutine Free_Mesh3D