/[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.14 by jmc, Sun Jun 28 01:06:39 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 )
# Line 407  C Loop over all tiles Line 407  C Loop over all tiles
407            tBy = myYGlobalLo-1 + (bj-1)*sNy            tBy = myYGlobalLo-1 + (bj-1)*sNy
408  #ifdef ALLOW_EXCH2  #ifdef ALLOW_EXCH2
409            IF ( useExch2ioLayOut ) THEN            IF ( useExch2ioLayOut ) THEN
410              tN = W2_myTileList(bi)              tN = W2_myTileList(bi,bj)
411  c           tNx = exch2_tNx(tN)  c           tNx = exch2_tNx(tN)
412  c           tNy = exch2_tNy(tN)  c           tNy = exch2_tNy(tN)
413  c           global_nTx = exch2_global_Nx/tNx  c           global_nTx = exch2_global_Nx/tNx
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22