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

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

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

revision 1.12 by jmc, Mon Jun 8 14:38:54 2009 UTC revision 1.13 by jmc, Tue Jun 16 14:53:52 2009 UTC
# Line 158  C Only do I/O if I am the master thread Line 158  C Only do I/O if I am the master thread
158    
159  C Record number must be >= 1  C Record number must be >= 1
160        IF (irecord .LT. 1) THEN        IF (irecord .LT. 1) THEN
161          WRITE(msgBuf,'(3A,I10))')          WRITE(msgBuf,'(3A,I10)')
162       &    ' MDS_WRITE_FIELD: file="', fName(1:IL), '" , iter=', myIter       &    ' MDS_WRITE_FIELD: file="', fName(1:IL), '" , iter=', myIter
163          CALL PRINT_MESSAGE( msgBuf, errorMessageUnit,          CALL PRINT_MESSAGE( msgBuf, errorMessageUnit,
164       &                      SQUEEZE_RIGHT , myThid )       &                      SQUEEZE_RIGHT , myThid )
# Line 174  C Record number must be >= 1 Line 174  C Record number must be >= 1
174        ENDIF        ENDIF
175  C check for valid sub-set of levels:  C check for valid sub-set of levels:
176        IF ( kLo.LT.1 .OR. kHi.GT.kSize ) THEN        IF ( kLo.LT.1 .OR. kHi.GT.kSize ) THEN
177          WRITE(msgBuf,'(3A,I10))')          WRITE(msgBuf,'(3A,I10)')
178       &    ' MDS_WRITE_FIELD: file="', fName(1:IL), '" , iter=', myIter       &    ' MDS_WRITE_FIELD: file="', fName(1:IL), '" , iter=', myIter
179          CALL PRINT_MESSAGE( msgBuf, errorMessageUnit,          CALL PRINT_MESSAGE( msgBuf, errorMessageUnit,
180       &                      SQUEEZE_RIGHT , myThid )       &                      SQUEEZE_RIGHT , myThid )
# Line 191  C check for valid sub-set of levels: Line 191  C check for valid sub-set of levels:
191        ENDIF        ENDIF
192  C check for 3-D Buffer size:  C check for 3-D Buffer size:
193        IF ( .NOT.useSingleCpuIO .AND. nNz.GT.size3dBuf ) THEN        IF ( .NOT.useSingleCpuIO .AND. nNz.GT.size3dBuf ) THEN
194          WRITE(msgBuf,'(3A,I10))')          WRITE(msgBuf,'(3A,I10)')
195       &    ' MDS_WRITE_FIELD: file="', fName(1:IL), '" , iter=', myIter       &    ' MDS_WRITE_FIELD: file="', fName(1:IL), '" , iter=', myIter
196          CALL PRINT_MESSAGE( msgBuf, errorMessageUnit,          CALL PRINT_MESSAGE( msgBuf, errorMessageUnit,
197       &                      SQUEEZE_RIGHT , myThid )       &                      SQUEEZE_RIGHT , myThid )
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.22