Parent Directory | Revision Log | Revision Graph | 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 ) |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |