diff --git a/src/Solution/PETSc/PetscSolver.F90 b/src/Solution/PETSc/PetscSolver.F90 index b72f53a54bd..fdfd83cbb25 100644 --- a/src/Solution/PETSc/PetscSolver.F90 +++ b/src/Solution/PETSc/PetscSolver.F90 @@ -422,8 +422,6 @@ subroutine petsc_destroy(this) call this%petsc_ctx%destroy() deallocate (this%petsc_ctx) - call VecDestroy(this%pc_context%diag, ierr) - CHKERRQ(ierr) deallocate (this%pc_context) end subroutine petsc_destroy