Free_Mesh2D Subroutine

  1. SELF_Mesh_2D.f90
  2. SELF_Mesh_2D
  3. Free_Mesh2D

public subroutine Free_Mesh2D(this)

Arguments

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

Calls

proc~~free_mesh2d~~CallsGraph proc~free_mesh2d Free_Mesh2D interface~hipfree hipFree proc~free_mesh2d->interface~hipfree proc~gpucheck gpuCheck proc~free_mesh2d->proc~gpucheck

Contents

Source Code

Free_Mesh2D

Source Code

  subroutine Free_Mesh2D(this)
    implicit none
    class(Mesh2D),intent(inout) :: this

    this%nElem = 0
    this%nNodes = 0
    this%nSides = 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%CGNSSideMap)
    deallocate(this%BCType)
    deallocate(this%BCNames)
    call this%decomp%Free()

    call gpuCheck(hipFree(this%sideInfo_gpu))

  endsubroutine Free_Mesh2D