/[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.5 by adcroft, Tue May 18 17:39:21 1999 UTC revision 1.9 by cnh, Sun Feb 4 14:38:42 2001 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2    C $Name$
3    
4  #include "CPP_EEOPTIONS.h"  #include "CPP_EEOPTIONS.h"
5    
# Line 22  C     == Global variables == Line 23  C     == Global variables ==
23  CEndOfInterface  CEndOfInterface
24    
25  C     == Local variables ==  C     == Local variables ==
 C     msgBuf - Variable for building informational messages  
26  C     I - Loop counter  C     I - Loop counter
27        INTEGER I        INTEGER I
       CHARACTER*(MAX_LEN_MBUF) msgBuf  
28    
29  C--   Set error reporting flags and I/O streams  C--   Set error reporting flags and I/O streams
30  C     fatalError is a flag used to indicate that the program  C     fatalError is a flag used to indicate that the program
# Line 103  C     o Do other miscellaneous multi-pro Line 102  C     o Do other miscellaneous multi-pro
102  C       example under MPI we create datatypes for communication  C       example under MPI we create datatypes for communication
103  C       of array edges.  C       of array edges.
104        CALL INI_PROCS        CALL INI_PROCS
105    #ifdef LETS_MAKE_JAM
106          CALL INI_JAM
107    #endif
108        IF ( eeBootError ) GOTO 999        IF ( eeBootError ) GOTO 999
109    
110  C--   Initialise variables to support "nThreads" of computation.  C--   Initialise variables to support "nThreads" of computation.
# Line 111  C       execution at this stage. Line 113  C       execution at this stage.
113        CALL INI_THREADING_ENVIRONMENT        CALL INI_THREADING_ENVIRONMENT
114        IF ( eeBootError ) GOTO 999        IF ( eeBootError ) GOTO 999
115    
116    #ifdef USE_DFILE
117  C--   Initiialise the multi-process IO package  C--   Initiialise the multi-process IO package
118        CALL DFILE_INIT        CALL DFILE_INIT
119    #endif
120    
121    999 CONTINUE    999 CONTINUE
122        RETURN        RETURN
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22