--- MITgcm/eesupp/src/eeboot.F 1998/04/23 20:56:54 1.3 +++ MITgcm/eesupp/src/eeboot.F 1998/05/21 18:30:08 1.4 @@ -1,4 +1,4 @@ -C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/eesupp/src/eeboot.F,v 1.3 1998/04/23 20:56:54 cnh Exp $ +C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/eesupp/src/eeboot.F,v 1.4 1998/05/21 18:30:08 cnh Exp $ #include "CPP_EEOPTIONS.h" @@ -56,6 +56,7 @@ allMyEdgesAreSharedMemory(I) = .TRUE. threadIsRunning(I) = .FALSE. threadIsComplete(I) = .FALSE. + ioErrorCount(I) = 0 ENDDO scrUnit1 = 11 scrUnit2 = 12 @@ -108,6 +109,9 @@ C execution at this stage. CALL INI_THREADING_ENVIRONMENT IF ( eeBootError ) GOTO 999 + +C-- Initiialise the multi-process IO package + CALL DFILE_INIT 999 CONTINUE RETURN