/[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.2 by jmc, Fri Jan 9 22:51:12 2009 UTC revision 1.3 by jmc, Thu May 7 19:34:43 2009 UTC
# 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"
 #include "PARAMS.h"  
22  #ifdef ALLOW_USE_MPI  #ifdef ALLOW_USE_MPI
23  # include "EESUPPORT.h"  # include "PARAMS.h"
24  #endif  #endif
25    
26  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
# Line 38  C---+----1----+----2----+----3----+----4 Line 37  C---+----1----+----2----+----3----+----4
37        MASTER_CPU_IO = .FALSE.        MASTER_CPU_IO = .FALSE.
38    
39  #ifdef ALLOW_USE_MPI  #ifdef ALLOW_USE_MPI
40        IF ( .NOT.useSingleCPUIO .OR. mpiMyId.EQ.0 ) THEN        IF ( .NOT.useSingleCPUIO .OR. myProcId.EQ.0 ) THEN
41          _BEGIN_MASTER( myThid )          _BEGIN_MASTER( myThid )
42          MASTER_CPU_IO = .TRUE.          MASTER_CPU_IO = .TRUE.
43          _END_MASTER( myThid )          _END_MASTER( myThid )
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22