/[MITgcm]/MITgcm_contrib/MPMice/beaufort/code/eeboot_minimal.F
ViewVC logotype

Diff of /MITgcm_contrib/MPMice/beaufort/code/eeboot_minimal.F

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

revision 1.2 by dimitri, Wed Dec 21 23:06:07 2011 UTC revision 1.3 by dimitri, Thu Mar 8 21:52:27 2012 UTC
# Line 136  C--    Setup Nesting Execution Environme Line 136  C--    Setup Nesting Execution Environme
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)
# Line 196  C     form ocean communicator Line 196  C     form ocean communicator
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    

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

  ViewVC Help
Powered by ViewVC 1.1.22