/[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.11 by jmc, Mon Jun 8 14:38:54 2009 UTC revision 1.12 by jmc, Tue Jun 16 14:53:52 2009 UTC
# Line 133  C Only do I/O if I am the master thread Line 133  C Only do I/O if I am the master thread
133    
134  C Record number must be >= 1  C Record number must be >= 1
135        IF (irecord .LT. 1) THEN        IF (irecord .LT. 1) THEN
136          WRITE(msgBuf,'(3A,I10))')          WRITE(msgBuf,'(3A,I10)')
137       &    ' MDS_READ_FIELD: file="', fName(1:IL), '"'       &    ' MDS_READ_FIELD: file="', fName(1:IL), '"'
138          CALL PRINT_MESSAGE( msgBuf, errorMessageUnit,          CALL PRINT_MESSAGE( msgBuf, errorMessageUnit,
139       &                      SQUEEZE_RIGHT , myThid )       &                      SQUEEZE_RIGHT , myThid )
# Line 149  C Record number must be >= 1 Line 149  C Record number must be >= 1
149        ENDIF        ENDIF
150  C check for valid sub-set of levels:  C check for valid sub-set of levels:
151        IF ( kLo.LT.1 .OR. kHi.GT.kSize ) THEN        IF ( kLo.LT.1 .OR. kHi.GT.kSize ) THEN
152          WRITE(msgBuf,'(3A,I10))')          WRITE(msgBuf,'(3A,I10)')
153       &    ' MDS_READ_FIELD: file="', fName(1:IL), '"'       &    ' MDS_READ_FIELD: file="', fName(1:IL), '"'
154          CALL PRINT_MESSAGE( msgBuf, errorMessageUnit,          CALL PRINT_MESSAGE( msgBuf, errorMessageUnit,
155       &                      SQUEEZE_RIGHT , myThid )       &                      SQUEEZE_RIGHT , myThid )
# Line 166  C check for valid sub-set of levels: Line 166  C check for valid sub-set of levels:
166        ENDIF        ENDIF
167  C check for 3-D Buffer size:  C check for 3-D Buffer size:
168        IF ( .NOT.useSingleCpuIO .AND. nNz.GT.size3dBuf ) THEN        IF ( .NOT.useSingleCpuIO .AND. nNz.GT.size3dBuf ) THEN
169          WRITE(msgBuf,'(3A,I10))')          WRITE(msgBuf,'(3A,I10)')
170       &    ' MDS_READ_FIELD: file="', fName(1:IL), '"'       &    ' MDS_READ_FIELD: file="', fName(1:IL), '"'
171          CALL PRINT_MESSAGE( msgBuf, errorMessageUnit,          CALL PRINT_MESSAGE( msgBuf, errorMessageUnit,
172       &                      SQUEEZE_RIGHT , myThid )       &                      SQUEEZE_RIGHT , myThid )
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22