--- MITgcm/pkg/exf/exf_interp_read.F 2009/06/29 21:31:09 1.13 +++ MITgcm/pkg/exf/exf_interp_read.F 2011/06/07 22:19:48 1.14 @@ -1,4 +1,4 @@ -C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/exf/exf_interp_read.F,v 1.13 2009/06/29 21:31:09 heimbach Exp $ +C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/exf/exf_interp_read.F,v 1.14 2011/06/07 22:19:48 jmc Exp $ C $Name: $ #include "EXF_OPTIONS.h" @@ -109,11 +109,10 @@ IF ( MASTER_CPU_IO(myThid) ) THEN C-- master thread of process 0, only, opens a global file -#ifndef ALLOW_ECCO IL = ILNBLNK( infile ) INQUIRE( file=infile, exist=exst ) IF (exst) THEN - IF ( debugLevel .GT. debLevA ) THEN + IF ( debugLevel.GE.debLevB ) THEN WRITE(msgBuf,'(A,A)') & ' EXF_INTERP_READ: opening file: ',infile(1:IL) CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, @@ -132,7 +131,6 @@ CALL PRINT_ERROR( msgBuf, myThid ) STOP 'ABNORMAL END: S/R EXF_INTERP_READ' ENDIF -#endif /* ALLOW_ECCO */ CALL MDSFINDUNIT( ioUnit, myThid ) length_of_rec=MDS_RECLEN( filePrec, nx_in*ny_in, myThid )