eesupp/src/master_cpu_io.F

C $Header:  $
C $Name:  $

#include "CPP_EEOPTIONS.h"

CBOP
C     !ROUTINE: MASTER_CPU_IO

C     !INTERFACE:
      LOGICAL FUNCTION MASTER_CPU_IO( myThid )

C     !DESCRIPTION:
C     return TRUE if master thread, and if using SingleCPUIO,
C                 if master CPU & master thread

C     !USES:
      IMPLICIT NONE

C Global variables
#include "SIZE.h"
#include "EEPARAMS.h"
#include "PARAMS.h"
#ifdef ALLOW_USE_MPI
# include "EESUPPORT.h"
#endif

C     !INPUT/OUTPUT PARAMETERS:
C   myThid        :: my Thread number Id.
C   MASTER_CPU_IO :: true if master thread
C                    and, if using SingleCPUIOS, if master CPU
      INTEGER myThid
CEOP

C     !LOCAL VARIABLES:

C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|

      MASTER_CPU_IO = .FALSE.

#ifdef ALLOW_USE_MPI
      IF ( .NOT.useSingleCPUIO .OR. mpiMyId.EQ.0 ) THEN
        _BEGIN_MASTER( myThid )
        MASTER_CPU_IO = .TRUE.
        _END_MASTER( myThid )
      ENDIF
#else /* ALLOW_USE_MPI */
        _BEGIN_MASTER( myThid )
        MASTER_CPU_IO = .TRUE.
        _END_MASTER( myThid )
#endif /* ALLOW_USE_MPI */

      RETURN
      END
1	C $Header: $
2	C $Name: $
3
4	#include "CPP_EEOPTIONS.h"
5
6	CBOP
7	C !ROUTINE: MASTER_CPU_IO
8
9	C !INTERFACE:
10	LOGICAL FUNCTION MASTER_CPU_IO( myThid )
11
12	C !DESCRIPTION:
13	C return TRUE if master thread, and if using SingleCPUIO,
14	C if master CPU & master thread
15
16	C !USES:
17	IMPLICIT NONE
18
19	C Global variables
20	#include "SIZE.h"
21	#include "EEPARAMS.h"
22	#include "PARAMS.h"
23	#ifdef ALLOW_USE_MPI
24	# include "EESUPPORT.h"
25	#endif
26
27	C !INPUT/OUTPUT PARAMETERS:
28	C myThid :: my Thread number Id.
29	C MASTER_CPU_IO :: true if master thread
30	C and, if using SingleCPUIOS, if master CPU
31	INTEGER myThid
32	CEOP
33
34	C !LOCAL VARIABLES:
35
36	C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-\|--+----\|
37
38	MASTER_CPU_IO = .FALSE.
39
40	#ifdef ALLOW_USE_MPI
41	IF ( .NOT.useSingleCPUIO .OR. mpiMyId.EQ.0 ) THEN
42	_BEGIN_MASTER( myThid )
43	MASTER_CPU_IO = .TRUE.
44	_END_MASTER( myThid )
45	ENDIF
46	#else /* ALLOW_USE_MPI */
47	_BEGIN_MASTER( myThid )
48	MASTER_CPU_IO = .TRUE.
49	_END_MASTER( myThid )
50	#endif /* ALLOW_USE_MPI */
51
52	RETURN
53	END