/[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.1 by jmc, Tue Oct 17 18:15:49 2006 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:
27  C   myThid        :: my Thread number Id.  C   myThid        :: my Thread Id number
28  C   MASTER_CPU_IO :: true if master thread  C   MASTER_CPU_IO :: true if master thread
29  C                    and, if using SingleCPUIOS, if master CPU  C                    and, if using SingleCPUIOS, if master CPU
30        INTEGER myThid        INTEGER myThid
# 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.1  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22