/[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.3 by cnh, Thu Apr 23 20:56:54 1998 UTC revision 1.4 by cnh, Thu May 21 18:30:08 1998 UTC
# Line 56  C                     the threads are ru Line 56  C                     the threads are ru
56         allMyEdgesAreSharedMemory(I) = .TRUE.         allMyEdgesAreSharedMemory(I) = .TRUE.
57         threadIsRunning(I)           = .FALSE.         threadIsRunning(I)           = .FALSE.
58         threadIsComplete(I)          = .FALSE.         threadIsComplete(I)          = .FALSE.
59           ioErrorCount(I)              = 0
60        ENDDO        ENDDO
61        scrUnit1      = 11        scrUnit1      = 11
62        scrUnit2      = 12        scrUnit2      = 12
# Line 108  C     o Note the program is still runnin Line 109  C     o Note the program is still runnin
109  C       execution at this stage.  C       execution at this stage.
110        CALL INI_THREADING_ENVIRONMENT        CALL INI_THREADING_ENVIRONMENT
111        IF ( eeBootError ) GOTO 999        IF ( eeBootError ) GOTO 999
112    
113    C--   Initiialise the multi-process IO package
114          CALL DFILE_INIT
115    
116    999 CONTINUE    999 CONTINUE
117        RETURN        RETURN
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22