/[MITgcm]/MITgcm/pkg/mdsio/mdsio_read_field.F
ViewVC logotype

Diff of /MITgcm/pkg/mdsio/mdsio_read_field.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.16 by jmc, Thu Dec 23 02:41:47 2010 UTC revision 1.17 by jmc, Tue Jun 7 22:33:35 2011 UTC
# Line 214  C Check first for global file with simpl Line 214  C Check first for global file with simpl
214          dataFName = fName          dataFName = fName
215          INQUIRE( file=dataFName, exist=exst )          INQUIRE( file=dataFName, exist=exst )
216          IF (exst) THEN          IF (exst) THEN
217            IF ( debugLevel .GE. debLevA ) THEN            IF ( debugLevel .GE. debLevB ) THEN
218              WRITE(msgBuf,'(A,A)')              WRITE(msgBuf,'(A,A)')
219       &      ' MDS_READ_FIELD: opening global file: ',dataFName(1:IL)       &      ' MDS_READ_FIELD: opening global file: ',dataFName(1:IL)
 #ifndef ALLOW_ECCO  
220              CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,              CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
221       &                          SQUEEZE_RIGHT , myThid)       &                          SQUEEZE_RIGHT , myThid)
 #endif  
222            ENDIF            ENDIF
223            globalFile = .TRUE.            globalFile = .TRUE.
224          ENDIF          ENDIF
# Line 230  C If negative check for global file with Line 228  C If negative check for global file with
228            WRITE(dataFName,'(2a)') fName(1:IL),'.data'            WRITE(dataFName,'(2a)') fName(1:IL),'.data'
229            INQUIRE( file=dataFName, exist=exst )            INQUIRE( file=dataFName, exist=exst )
230            IF (exst) THEN            IF (exst) THEN
231             IF ( debugLevel .GE. debLevA ) THEN             IF ( debugLevel .GE. debLevB ) THEN
232              WRITE(msgBuf,'(A,A)')              WRITE(msgBuf,'(A,A)')
233       &      ' MDS_READ_FIELD: opening global file: ',dataFName(1:IL+5)       &      ' MDS_READ_FIELD: opening global file: ',dataFName(1:IL+5)
 #ifndef ALLOW_ECCO  
234              CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,              CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
235       &                          SQUEEZE_RIGHT , myThid)       &                          SQUEEZE_RIGHT , myThid)
 #endif  
236             ENDIF             ENDIF
237             globalFile = .TRUE.             globalFile = .TRUE.
238            ENDIF            ENDIF
# Line 443  C If we are reading from a tiled MDS fil Line 439  C If we are reading from a tiled MDS fil
439  C Of course, we only open the file if the tile is "active"  C Of course, we only open the file if the tile is "active"
440  C (This is a place-holder for the active/passive mechanism  C (This is a place-holder for the active/passive mechanism
441             IF (exst) THEN             IF (exst) THEN
442              IF ( debugLevel .GE. debLevA ) THEN              IF ( debugLevel .GE. debLevB ) THEN
443               WRITE(msgBuf,'(A,A)')               WRITE(msgBuf,'(A,A)')
444       &       ' MDS_READ_FIELD: opening file: ',dataFName(1:pIL+13)       &       ' MDS_READ_FIELD: opening file: ',dataFName(1:pIL+13)
445               CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,               CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17
  ViewVC Help
Powered by ViewVC 1.1.22