136 |
CALL NEST_EEINIT( mpiMyWId, color ) |
CALL NEST_EEINIT( mpiMyWId, color ) |
137 |
#endif /* ALLOW_NEST_PARENT | ALLOW_NEST_CHILD */ |
#endif /* ALLOW_NEST_PARENT | ALLOW_NEST_CHILD */ |
138 |
|
|
139 |
#ifdef ALLOW_CPL_MPMICE |
#if defined(ALLOW_CPL_MPMICE) && !defined(CPL_DEBUG) |
140 |
CALL SETDIR_OCEAN( ) |
CALL SETDIR_OCEAN( ) |
141 |
call MPI_comm_rank(MPI_COMM_WORLD, myworldid, ierr) |
call MPI_comm_rank(MPI_COMM_WORLD, myworldid, ierr) |
142 |
call MPI_comm_size(MPI_COMM_WORLD, numprocsworld, ierr) |
call MPI_comm_size(MPI_COMM_WORLD, numprocsworld, ierr) |
196 |
& MPI_COMM_MODEL,ierr) |
& MPI_COMM_MODEL,ierr) |
197 |
call MPI_comm_rank(MPI_COMM_MODEL,myid,ierr) |
call MPI_comm_rank(MPI_COMM_MODEL,myid,ierr) |
198 |
call MPI_comm_size(MPI_COMM_MODEL,numprocs,ierr) |
call MPI_comm_size(MPI_COMM_MODEL,numprocs,ierr) |
199 |
#endif /* ALLOW_CPL_MPMICE */ |
#endif /* defined(ALLOW_CPL_MPMICE) && !defined(CPL_DEBUG) */ |
200 |
|
|
201 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
202 |
|
|