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

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

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

revision 1.20 by jmc, Thu Aug 2 02:07:03 2012 UTC revision 1.21 by jmc, Sun Jan 13 22:43:53 2013 UTC
# Line 654  C Close data-file and create meta-file Line 654  C Close data-file and create meta-file
654           CALL MDS_WRITE_META(           CALL MDS_WRITE_META(
655       I              metaFName, dataFName, the_run_name, ' ',       I              metaFName, dataFName, the_run_name, ' ',
656       I              filePrec, nDims, dimList, map2gl, 0, blank8c,       I              filePrec, nDims, dimList, map2gl, 0, blank8c,
657       I              0, dummyRL, irecord, myIter, myThid )       I              0, dummyRL, oneRL, irecord, myIter, myThid )
658          ENDIF          ENDIF
659         _END_MASTER( myThid )         _END_MASTER( myThid )
660  C To be safe, make other processes wait for I/O completion  C To be safe, make other processes wait for I/O completion
# Line 772  C Create meta-file for each tile if we a Line 772  C Create meta-file for each tile if we a
772           CALL MDS_WRITE_META(           CALL MDS_WRITE_META(
773       I              metaFName, dataFName, the_run_name, ' ',       I              metaFName, dataFName, the_run_name, ' ',
774       I              filePrec, nDims, dimList, map2gl, 0, blank8c,       I              filePrec, nDims, dimList, map2gl, 0, blank8c,
775       I              0, dummyRL, irecord, myIter, myThid )       I              0, dummyRL, oneRL, irecord, myIter, myThid )
776  C End of bi,bj loops  C End of bi,bj loops
777         enddo         enddo
778        enddo        enddo
# Line 1443  C Close data-file and create meta-file Line 1443  C Close data-file and create meta-file
1443           CALL MDS_WRITE_META(           CALL MDS_WRITE_META(
1444       I              metaFName, dataFName, the_run_name, ' ',       I              metaFName, dataFName, the_run_name, ' ',
1445       I              filePrec, nDims, dimList, map2gl, 0, blank8c,       I              filePrec, nDims, dimList, map2gl, 0, blank8c,
1446       I              0, dummyRL, irecord, myIter, myThid )       I              0, dummyRL, oneRL, irecord, myIter, myThid )
1447          ENDIF          ENDIF
1448         _END_MASTER( myThid )         _END_MASTER( myThid )
1449  C To be safe, make other processes wait for I/O completion  C To be safe, make other processes wait for I/O completion
# Line 1561  C Create meta-file for each tile if we a Line 1561  C Create meta-file for each tile if we a
1561           CALL MDS_WRITE_META(           CALL MDS_WRITE_META(
1562       I              metaFName, dataFName, the_run_name, ' ',       I              metaFName, dataFName, the_run_name, ' ',
1563       I              filePrec, nDims, dimList, map2gl, 0, blank8c,       I              filePrec, nDims, dimList, map2gl, 0, blank8c,
1564       I              0, dummyRL, irecord, myIter, myThid )       I              0, dummyRL, oneRL, irecord, myIter, myThid )
1565  C End of bi,bj loops  C End of bi,bj loops
1566         enddo         enddo
1567        enddo        enddo
Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21
  ViewVC Help
Powered by ViewVC 1.1.22