mpl_nproc_mod.F90

Go to the documentation of this file.

MODULE mpl_nproc_mod
!**** MPL_NPROC - return Number of processes 

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

!     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_nproc

CONTAINS 
FUNCTION mpl_nproc(KCOMM)

#ifdef USE_8_BYTE_WORDS
  USE mpi4to8, ONLY : &
    mpi_comm_size => mpi_comm_size8
#endif

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

INTEGER(KIND=JPIM) :: IERROR,IPROC
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_size(kcomm,iproc,ierror)
  mpl_nproc = iproc
ELSE
  mpl_nproc = mpl_numproc 
ENDIF

  
END FUNCTION mpl_nproc
END MODULE mpl_nproc_mod