mpl_data_module.F90

Go to the documentation of this file.

MODULE mpl_data_module

!     Author.
!     -------
!        D.Dent, M.Hamrud     ECMWF

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

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

!      variables controlling the execution of MPL

!  MPL_METHOD   : buffering type
!  MPL_MBX_SIZE : size of application mailbox, (bytes)
!                 used when MPL_METHOD=JP_BLOCKING_BUFFERED
!  MPL_COMM     : default communicator in use
!  MPL_COMM_OML : communicators for messages between corresponding OML-threads
!  MPL_UNIT     : Fortran I/O unit for messages (default=6)
!  MPL_ERRUNIT  : Fortran I/O unit for error messages (default=0)
!  MPL_OUTPUT   : controls contents of Output (see mpl_init_mod.F90 for values/default)
!  MPL_RANK     : rank of the process within MPL_COMM_OML(1)
!  MPL_NUMPROC  : number of processes in MPL_COMM_OML(1)
!  MPL_IDS      : array of processor numbers
!  LUSEHLMPI    : always use high level MPI calls (collective comm.)
!  LINITMPI_VIA_MPL : true if MPI has been initialized from within MPL_INIT()
!  LTHSAFEMPI   : Thread safe MPI, if .TRUE. (default)

USE parkind1  ,ONLY : jpim     ,jprb
USE oml_mod    ,ONLY : oml_max_threads, oml_my_thread

IMPLICIT NONE

SAVE

PUBLIC 

INTEGER(KIND=JPIM) :: mpl_method, mpl_mbx_size, mpl_unit=6, mpl_output=1
INTEGER(KIND=JPIM) :: mpl_rank=0,mpl_numproc = -1,mpl_errunit=0
INTEGER(KIND=JPIM),ALLOCATABLE :: mpl_ids(:)
INTEGER(KIND=JPIM) :: mpl_comm
INTEGER(KIND=JPIM),ALLOCATABLE :: mpl_comm_oml(:)
INTEGER(KIND=JPIM),ALLOCATABLE :: mpl_opponent(:)
INTEGER(KIND=JPIM) :: mpl_ncpu_per_node=1
INTEGER(KIND=JPIM) :: mpl_max_task_per_node
INTEGER(KIND=JPIM),ALLOCATABLE :: mpl_task_per_node(:)
INTEGER(KIND=JPIM) :: mpl_nnodes
LOGICAL :: lfullnodes
INTEGER(KIND=JPIM) :: mpl_mynode=0
INTEGER(KIND=JPIM),ALLOCATABLE :: mpl_node(:)
INTEGER(KIND=JPIM),ALLOCATABLE :: mpl_node_tasks(:,:)
!INTEGER_M,ALLOCATABLE :: MPL_ATTACHED_BUFFER(:)
!   needs to ge a TARGET for coexistence with MPE
INTEGER(KIND=JPIM),ALLOCATABLE,TARGET :: mpl_attached_buffer(:)
LOGICAL :: lusehlmpi
LOGICAL :: linitmpi_via_mpl = .false.
LOGICAL :: lthsafempi = .true.
INTEGER(KIND=JPIM),PARAMETER :: jp_attached_buffer_bytes    = jpim
INTEGER(KIND=JPIM),PARAMETER :: jp_blocking_standard        = 1
INTEGER(KIND=JPIM),PARAMETER :: jp_blocking_buffered        = 2
INTEGER(KIND=JPIM),PARAMETER :: jp_blocking_synchronous     = 3
INTEGER(KIND=JPIM),PARAMETER :: jp_blocking_ready           = 4
INTEGER(KIND=JPIM),PARAMETER :: jp_non_blocking_standard    = 5
INTEGER(KIND=JPIM),PARAMETER :: jp_non_blocking_buffered    = 6
INTEGER(KIND=JPIM),PARAMETER :: jp_non_blocking_synchronous = 7
INTEGER(KIND=JPIM),PARAMETER :: jp_non_blocking_ready       = 8
LOGICAL :: lmplusercomm = .false.
INTEGER(KIND=JPIM) :: mplusercomm = -1
INTEGER(KIND=JPIM) :: mpl_send_count, mpl_send_bytes
INTEGER(KIND=JPIM) :: mpl_recv_count, mpl_recv_bytes

END MODULE mpl_data_module