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

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

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

revision 1.2 by cnh, Thu Apr 23 20:37:29 1998 UTC revision 1.8 by adcroft, Mon Mar 27 22:25:40 2000 UTC
# Line 13  C     | Note: This routine can also be c Line 13  C     | Note: This routine can also be c
13  C     | directives set so that no multi-processing is initialised|  C     | directives set so that no multi-processing is initialised|
14  C     | This is OK and should work fine.                         |  C     | This is OK and should work fine.                         |
15  C     \==========================================================/  C     \==========================================================/
16          IMPLICIT NONE
17    
18  C     == Global variables ==  C     == Global variables ==
19  #include "SIZE.h"  #include "SIZE.h"
# Line 21  C     == Global variables == Line 22  C     == Global variables ==
22  CEndOfInterface  CEndOfInterface
23    
24  C     == Local variables ==  C     == Local variables ==
 C     msgBuf - Variable for building informational messages  
25  C     I - Loop counter  C     I - Loop counter
26        INTEGER I        INTEGER I
       CHARACTER*(MAX_LEN_MBUF) msgBuf  
27    
28  C--   Set error reporting flags and I/O streams  C--   Set error reporting flags and I/O streams
29  C     fatalError is a flag used to indicate that the program  C     fatalError is a flag used to indicate that the program
# Line 56  C                     the threads are ru Line 55  C                     the threads are ru
55         allMyEdgesAreSharedMemory(I) = .TRUE.         allMyEdgesAreSharedMemory(I) = .TRUE.
56         threadIsRunning(I)           = .FALSE.         threadIsRunning(I)           = .FALSE.
57         threadIsComplete(I)          = .FALSE.         threadIsComplete(I)          = .FALSE.
58           ioErrorCount(I)              = 0
59        ENDDO        ENDDO
60        scrUnit1      = 11        scrUnit1      = 11
61        scrUnit2      = 12        scrUnit2      = 12
# Line 101  C     o Do other miscellaneous multi-pro Line 101  C     o Do other miscellaneous multi-pro
101  C       example under MPI we create datatypes for communication  C       example under MPI we create datatypes for communication
102  C       of array edges.  C       of array edges.
103        CALL INI_PROCS        CALL INI_PROCS
104    #ifdef LETS_MAKE_JAM
105          CALL INI_JAM
106    #endif
107        IF ( eeBootError ) GOTO 999        IF ( eeBootError ) GOTO 999
108    
109  C--   Initialise variables to support "nThreads" of computation.  C--   Initialise variables to support "nThreads" of computation.
# Line 108  C     o Note the program is still runnin Line 111  C     o Note the program is still runnin
111  C       execution at this stage.  C       execution at this stage.
112        CALL INI_THREADING_ENVIRONMENT        CALL INI_THREADING_ENVIRONMENT
113        IF ( eeBootError ) GOTO 999        IF ( eeBootError ) GOTO 999
114    
115    #ifdef USE_DFILE
116    C--   Initiialise the multi-process IO package
117          CALL DFILE_INIT
118    #endif
119    
120    999 CONTINUE    999 CONTINUE
121        RETURN        RETURN
122        END        END
 C $Id$  
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22