eesupp/src/master_cpu_io.F

52d6478b29 Jean*0001 #include "CPP_EEOPTIONS.h"
                0002
                0003 CBOP
                0004 C     !ROUTINE: MASTER_CPU_IO
                0005
                0006 C     !INTERFACE:
                0007       LOGICAL FUNCTION MASTER_CPU_IO( myThid )
                0008
                0009 C     !DESCRIPTION:
d274662063 Jean*0010 C     return TRUE if master thread (case not using SingleCpuIO) and
                0011 C                 if master CPU & master thread (case using SingleCpuIO)
52d6478b29 Jean*0012
                0013 C     !USES:
                0014       IMPLICIT NONE
                0015
                0016 C Global variables
                0017 #include "SIZE.h"
                0018 #include "EEPARAMS.h"
                0019
                0020 C     !INPUT/OUTPUT PARAMETERS:
4d40368441 Jean*0021 C   myThid        :: my Thread Id number
52d6478b29 Jean*0022 C   MASTER_CPU_IO :: true if master thread
d274662063 Jean*0023 C                    and, if using SingleCpuIO, if master CPU
52d6478b29 Jean*0024       INTEGER myThid
                0025 CEOP
                0026
                0027 C     !LOCAL VARIABLES:
                0028
                0029 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0030
                0031       MASTER_CPU_IO = .FALSE.
                0032
67699d07b6 Jean*0033       IF ( .NOT.useSingleCPUIO .OR. myProcId.EQ.0 ) THEN
52d6478b29 Jean*0034         _BEGIN_MASTER( myThid )
                0035         MASTER_CPU_IO = .TRUE.
                0036         _END_MASTER( myThid )
                0037       ENDIF
                0038
                0039       RETURN
                0040       END