/[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.2 by jmc, Mon Mar 19 02:30:49 2007 UTC revision 1.3 by jmc, Wed Mar 21 01:57:55 2007 UTC
# Line 518  C Create meta-file for the global-file ( Line 518  C Create meta-file for the global-file (
518           dimList(3,3)=nNz           dimList(3,3)=nNz
519           nDims=3           nDims=3
520           IF ( nNz.EQ.1 ) nDims=2           IF ( nNz.EQ.1 ) nDims=2
521           map2gl(1) = iGjLoc           map2gl(1) = 0
522           map2gl(2) = jGjLoc           map2gl(2) = 1
523           CALL MDS_WRITE_META(           CALL MDS_WRITE_META(
524       I              metaFName, dataFName, the_run_name, ' ',       I              metaFName, dataFName, the_run_name, ' ',
525       I              filePrec, nDims,dimList,map2gl, 0,  ' ',       I              filePrec, nDims,dimList,map2gl, 0,  ' ',
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22