MPI_Comm_delete(h) delete(h)
delete(h) deletes MPI_Comm object itself.
Do not forget to clear variable afterward.
used = MPI_Comm_used()