/[MITgcm]/MITgcm_contrib/ESMF/global_ocean.128x64x15/code/eeboot_minimal.F
ViewVC logotype

Diff of /MITgcm_contrib/ESMF/global_ocean.128x64x15/code/eeboot_minimal.F

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

revision 1.1.1.1 by cnh, Sun Feb 15 22:28:19 2004 UTC revision 1.3 by cnh, Thu Feb 26 03:08:44 2004 UTC
# Line 70  C--   ================================== Line 70  C--   ==================================
70  C--    Initialise MPI multi-process parallel environment.  C--    Initialise MPI multi-process parallel environment.
71  C      On some systems program forks at this point. Others have already  C      On some systems program forks at this point. Others have already
72  C      forked within mpirun - now thats an open standard!  C      forked within mpirun - now thats an open standard!
73         CALL MPI_INIT( mpiRC )  C      CALL MPI_INIT( mpiRC )
74           mpiRC = MPI_SUCCESS
75         IF ( mpiRC .NE. MPI_SUCCESS ) THEN         IF ( mpiRC .NE. MPI_SUCCESS ) THEN
76          eeBootError = .TRUE.          eeBootError = .TRUE.
77          WRITE(msgBuffer,'(A,I5)')          WRITE(msgBuffer,'(A,I5)')
Legend:
Removed from v.1.1.1.1  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22