Free_Mesh1D Subroutine

  subroutine Free_Mesh1D(this)
    implicit none
    class(Mesh1D),intent(inout) :: this

    this%nElem = 0
    this%nNodes = 0
    this%nCornerNodes = 0
    this%nUniqueNodes = 0
    this%nBCs = 0
    deallocate(this%elemInfo)
    deallocate(this%nodeCoords)
    deallocate(this%globalNodeIDs)
    deallocate(this%BCType)
    deallocate(this%BCNames)
    call this%decomp%Free()

  endsubroutine Free_Mesh1D