Commit 4ac53a86 authored by degironc's avatar degironc

if statement added to avoid freeing a non assigned communicator

git-svn-id: c92efa57-630b-4861-b058-cf58834340f0
parent 7187b6fd
......@@ -290,8 +290,8 @@ CONTAINS
desc%comm = MPI_COMM_NULL
#if defined(__MPI)
CALL MPI_COMM_FREE( desc%comm2, ierr )
CALL MPI_COMM_FREE( desc%comm3, ierr )
IF (desc%comm2 /= MPI_COMM_NULL) CALL MPI_COMM_FREE( desc%comm2, ierr )
IF (desc%comm3 /= MPI_COMM_NULL) CALL MPI_COMM_FREE( desc%comm3, ierr )
desc%comm2 = MPI_COMM_NULL
desc%comm3 = MPI_COMM_NULL
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment