/[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.6 by adcroft, Tue Mar 14 16:10:22 2000 UTC revision 1.8 by adcroft, Mon Mar 27 22:25:40 2000 UTC
# Line 22  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 114  C       execution at this stage. Line 112  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  C--   Initiialise the multi-process IO package
117        CALL DFILE_INIT        CALL DFILE_INIT
118    #endif
119    
120    999 CONTINUE    999 CONTINUE
121        RETURN        RETURN
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22