Free_TransferPlan2D Subroutine

  1. SELF_TransferPlan_2D.f90
  2. SELF_TransferPlan_2D
  3. Free_TransferPlan2D

public subroutine Free_TransferPlan2D(this)

Arguments

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

Contents

Source Code

Free_TransferPlan2D

Source Code

  subroutine Free_TransferPlan2D(this)
    implicit none
    class(TransferPlan2D),intent(inout) :: this

    if(allocated(this%sourceKind)) deallocate(this%sourceKind)
    if(allocated(this%sourceElem)) deallocate(this%sourceElem)
    if(allocated(this%family)) deallocate(this%family)
    if(allocated(this%depth)) deallocate(this%depth)
    if(allocated(this%path)) deallocate(this%path)
    this%nOld = 0
    this%nNew = 0
    this%maxDepth = 0

  endsubroutine Free_TransferPlan2D