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

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

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

revision 1.12 by jmc, Tue Feb 3 23:10:28 2009 UTC revision 1.13 by jmc, Sun Aug 2 20:42:43 2009 UTC
# Line 86  c     INTEGER iG_IO,jG_IO,npe Line 86  c     INTEGER iG_IO,jG_IO,npe
86  cph)  cph)
87        Real*4 xy_buffer_r4(narr*nPx*nPy)        Real*4 xy_buffer_r4(narr*nPx*nPy)
88        Real*8 xy_buffer_r8(narr*nPx*nPy)        Real*8 xy_buffer_r8(narr*nPx*nPy)
89          _RL dummyRL(1)
90          CHARACTER*8 blank8c
91    
92        DATA map2gl / 0, 1 /        DATA dummyRL(1) / 0. _d 0 /
93          DATA blank8c / '        ' /
94          DATA map2gl  / 0, 1 /
95    
96  C     ------------------------------------------------------------------  C     ------------------------------------------------------------------
97    
# Line 221  C Close data-file and create meta-file Line 225  C Close data-file and create meta-file
225           nDims = 1           nDims = 1
226           CALL MDS_WRITE_META(           CALL MDS_WRITE_META(
227       I              metaFName, dataFName, the_run_name, ' ',       I              metaFName, dataFName, the_run_name, ' ',
228       I              filePrec, nDims, dimList, map2gl, 0, ' ',       I              filePrec, nDims, dimList, map2gl, 0, blank8c,
229       I              0, UNSET_RL, irecord, myIter, myThid )       I              0, dummyRL, irecord, myIter, myThid )
230          ENDIF          ENDIF
231         _END_MASTER( myThid )         _END_MASTER( myThid )
232  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 321  C Create meta-file for each tile file Line 325  C Create meta-file for each tile file
325           nDims = 1           nDims = 1
326           CALL MDS_WRITE_META(           CALL MDS_WRITE_META(
327       I              metaFName, dataFName, the_run_name, ' ',       I              metaFName, dataFName, the_run_name, ' ',
328       I              filePrec, nDims, dimList, map2gl, 0, ' ',       I              filePrec, nDims, dimList, map2gl, 0, blank8c,
329       I              0, UNSET_RL, irecord, myIter, myThid )       I              0, dummyRL, irecord, myIter, myThid )
330          ENDIF          ENDIF
331  C End of bi,bj loops  C End of bi,bj loops
332  c      ENDDO  c      ENDDO
# Line 349  C Create meta-file for global file Line 353  C Create meta-file for global file
353         nDims = 1         nDims = 1
354         CALL MDS_WRITE_META(         CALL MDS_WRITE_META(
355       I              metaFName, dataFName, the_run_name, ' ',       I              metaFName, dataFName, the_run_name, ' ',
356       I              filePrec, nDims, dimList, map2gl, 0, ' ',       I              filePrec, nDims, dimList, map2gl, 0, blank8c,
357       I              0, UNSET_RL, irecord, myIter, myThid )       I              0, dummyRL, irecord, myIter, myThid )
358  c    I              metaFName, dataFName, the_run_name, titleLine,  c    I              metaFName, dataFName, the_run_name, titleLine,
359  c    I              filePrec, nDims, dimList, map2gl, nFlds, fldList,  c    I              filePrec, nDims, dimList, map2gl, nFlds, fldList,
360  c    I              nTimRec, timList, irecord, myIter, myThid )  c    I              nTimRec, timList, irecord, myIter, myThid )
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.22