/[MITgcm]/MITgcm/eesupp/src/eeboot_minimal.F
ViewVC logotype

Diff of /MITgcm/eesupp/src/eeboot_minimal.F

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

revision 1.11 by jmc, Mon Dec 15 02:02:38 2003 UTC revision 1.12 by jmc, Tue Jan 27 15:59:23 2004 UTC
# Line 38  C     == Global data == Line 38  C     == Global data ==
38  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
39  C     == Local variables ==  C     == Local variables ==
40  C     myThid           :: Temp. dummy thread number.  C     myThid           :: Temp. dummy thread number.
41    C     fNam             :: Used to build name of file for standard
42    C                         output and error output.
43        INTEGER myThid            INTEGER myThid    
44          CHARACTER*13 fNam
45  #ifdef ALLOW_USE_MPI  #ifdef ALLOW_USE_MPI
46  C     mpiRC            :: Error code reporting variable used  C     mpiRC            :: Error code reporting variable used
47  C                         with MPI.  C                         with MPI.
 C     fNam             :: Used to build name of file for standard  
 C                         output and error output.  
48  C     msgBuffer        :: Used to build messages for printing.  C     msgBuffer        :: Used to build messages for printing.
49        CHARACTER*(MAX_LEN_MBUF) msgBuffer        CHARACTER*(MAX_LEN_MBUF) msgBuffer
50        INTEGER mpiRC        INTEGER mpiRC
       CHARACTER*13 fNam  
51        INTEGER nptmp        INTEGER nptmp
52  #endif /* ALLOW_USE_MPI */  #endif /* ALLOW_USE_MPI */
53  CEOP  CEOP
# Line 167  C      is an exact match makes things ea Line 167  C      is an exact match makes things ea
167  #ifndef ALWAYS_USE_MPI  #ifndef ALWAYS_USE_MPI
168        ENDIF        ENDIF
169  #endif  #endif
170    
171    #else /* ALLOW_USE_MPI */
172    
173            WRITE(myProcessStr,'(I4.4)') myProcId
174            WRITE(fNam,'(A,A)') 'STDERR.', myProcessStr(1:4)
175            OPEN(errorMessageUnit,FILE=fNam,STATUS='unknown')
176    c       WRITE(fNam,'(A,A)') 'STDOUT.', myProcessStr(1:4)
177    c       OPEN(standardMessageUnit,FILE=fNam,STATUS='unknown')
178    
179  #endif /* ALLOW_USE_MPI */  #endif /* ALLOW_USE_MPI */
180    
181   999  CONTINUE   999  CONTINUE
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22