mpl_myrank_mod.F90

Go to the documentation of this file.

MODULE mpl_myrank_mod

!**** MPL_MYRANK - Find rank

!     Purpose.
!     --------
!     Returns the rank of the calling process 
!     in the currently active communicator

!**   Interface.
!     ----------
!        IRANK=MPL_MYRANK(KCOMM)

!        Input optional arguments :
!        -------------------------
!           KCOMM    -  Communicator number if different from MPI_COMM_WORLD 

!        Input required arguments :
!        -------------------------

!        Input optional arguments :
!        -------------------------
!           none

!        Output required arguments :
!        -------------------------
!           none

!        Output optional arguments :
!        -------------------------
!           none
!     Author.
!     -------
!        D.Dent, M.Hamrud     ECMWF

!     Modifications.
!     --------------
!        Original: 2000-09-01

!     ------------------------------------------------------------------

USE parkind1  ,ONLY : jpim     ,jprb

USE mpl_data_module
USE mpl_message_mod

IMPLICIT NONE
PRIVATE
PUBLIC mpl_myrank

CONTAINS 

FUNCTION mpl_myrank(KCOMM)

#ifdef USE_8_BYTE_WORDS
  USE mpi4to8, ONLY : &
    mpi_comm_rank => mpi_comm_rank8
#endif

INTEGER(KIND=JPIM),INTENT(IN),OPTIONAL :: KCOMM
INTEGER(KIND=JPIM) :: MPL_MYRANK

INTEGER(KIND=JPIM) IRANK,IERROR,ICOMM
LOGICAL :: LLABORT=.true.

IF(mpl_numproc < 1) CALL mpl_message( &
  & cdmessage='MPL_MYRANK: MPL NOT INITIALISED ',ldabort=llabort) 

IF(PRESENT(kcomm)) THEN
  CALL mpi_comm_rank(kcomm, irank, ierror)
  IF(ierror /= 0 ) CALL mpl_message(ierror,&
   &'MPL_MYRANK: ERROR FROM MPI_COMM_RANK')
  mpl_myrank=irank+1
ELSE
  mpl_myrank=mpl_rank
ENDIF

END FUNCTION mpl_myrank

END MODULE mpl_myrank_mod