mpl_comm_free_mod.F90

Go to the documentation of this file.

MODULE mpl_comm_free_mod

!**** *MPL_COMM_FREE_MOD*  - Release ressources used by a communicator

!     Author. 
!     ------- 
!      Philippe Marguinaud *METEO FRANCE*
!      Original : 11-09-2012

USE parkind1, ONLY : jpim

IMPLICIT NONE

PRIVATE
PUBLIC :: mpl_comm_free

CONTAINS

SUBROUTINE mpl_comm_free (KCOMM, KERR, CDSTRING)
INTEGER (KIND=JPIM), INTENT (IN)  :: KCOMM
INTEGER (KIND=JPIM), INTENT (OUT) :: KERR
CHARACTER (LEN=*),   INTENT (IN), OPTIONAL :: CDSTRING

CALL mpi_comm_free (kcomm, kerr)

END SUBROUTINE mpl_comm_free

END MODULE mpl_comm_free_mod