/[MITgcm]/MITgcm/eesupp/src/master_cpu_io.F
ViewVC logotype

Diff of /MITgcm/eesupp/src/master_cpu_io.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.3 by jmc, Thu May 7 19:34:43 2009 UTC revision 1.4 by jmc, Sun May 23 01:35:51 2010 UTC
# Line 10  C     !INTERFACE: Line 10  C     !INTERFACE:
10        LOGICAL FUNCTION MASTER_CPU_IO( myThid )        LOGICAL FUNCTION MASTER_CPU_IO( myThid )
11    
12  C     !DESCRIPTION:  C     !DESCRIPTION:
13  C     return TRUE if master thread, and if using SingleCPUIO,  C     return TRUE if master thread (case not using SingleCpuIO) and
14  C                 if master CPU & master thread  C                 if master CPU & master thread (case using SingleCpuIO)
15    
16  C     !USES:  C     !USES:
17        IMPLICIT NONE        IMPLICIT NONE
# Line 19  C     !USES: Line 19  C     !USES:
19  C Global variables  C Global variables
20  #include "SIZE.h"  #include "SIZE.h"
21  #include "EEPARAMS.h"  #include "EEPARAMS.h"
 #ifdef ALLOW_USE_MPI  
 # include "PARAMS.h"  
 #endif  
22    
23  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
24  C   myThid        :: my Thread Id number  C   myThid        :: my Thread Id number
25  C   MASTER_CPU_IO :: true if master thread  C   MASTER_CPU_IO :: true if master thread
26  C                    and, if using SingleCPUIOS, if master CPU  C                    and, if using SingleCpuIO, if master CPU
27        INTEGER myThid        INTEGER myThid
28  CEOP  CEOP
29    
# Line 36  C---+----1----+----2----+----3----+----4 Line 33  C---+----1----+----2----+----3----+----4
33    
34        MASTER_CPU_IO = .FALSE.        MASTER_CPU_IO = .FALSE.
35    
 #ifdef ALLOW_USE_MPI  
36        IF ( .NOT.useSingleCPUIO .OR. myProcId.EQ.0 ) THEN        IF ( .NOT.useSingleCPUIO .OR. myProcId.EQ.0 ) THEN
37          _BEGIN_MASTER( myThid )          _BEGIN_MASTER( myThid )
38          MASTER_CPU_IO = .TRUE.          MASTER_CPU_IO = .TRUE.
39          _END_MASTER( myThid )          _END_MASTER( myThid )
40        ENDIF        ENDIF
 #else /* ALLOW_USE_MPI */  
         _BEGIN_MASTER( myThid )  
         MASTER_CPU_IO = .TRUE.  
         _END_MASTER( myThid )  
 #endif /* ALLOW_USE_MPI */  
41    
42        RETURN        RETURN
43        END        END
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22