mpl_setdflt_comm_mod.F90

Go to the documentation of this file.

MODULE mpl_setdflt_comm_mod

!**** MPL_SETDFLT_COMM Set new default communicator

!     Purpose.
!     --------
!     Set new communicator as default, and return old communicator

!**   Interface.
!     ----------
!        CALL MPL_SETDFLT_COMM(KCOMM,KCOMM_OLD)

!        Input required arguments :
!        -------------------------
!           KCOMM    -  New communicator

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

!        Output required arguments :
!        -------------------------
!           KCOMM_OLD    -  Old communicator

!        Output optional arguments :
!        -------------------------

!     Author.
!     -------
!        J.Hague        

!     Modifications.
!     --------------
!        Original: 2003-16-07

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

USE parkind1  ,ONLY : jpim     ,jprb

USE mpl_mpif
USE mpl_data_module
USE mpl_message_mod

IMPLICIT NONE

PRIVATE
PUBLIC mpl_setdflt_comm

CONTAINS 


SUBROUTINE mpl_setdflt_comm(KCOMM,KCOMM_OLD)


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


INTEGER(KIND=JPIM),INTENT(IN)  :: KCOMM
INTEGER(KIND=JPIM),INTENT(OUT) :: KCOMM_OLD

INTEGER(KIND=JPIM) :: IER
INTEGER(KIND=JPIM) :: ITID
itid = oml_my_thread()

kcomm_old=mpl_comm_oml(itid)
mpl_comm_oml(itid)=kcomm

CALL mpi_comm_size(kcomm,mpl_numproc,ier)

RETURN
END SUBROUTINE mpl_setdflt_comm

END MODULE mpl_setdflt_comm_mod