/[MITgcm]/MITgcm_contrib/darwin2/pkg/darwin/darwin_write_pickup.F
ViewVC logotype

Diff of /MITgcm_contrib/darwin2/pkg/darwin/darwin_write_pickup.F

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

revision 1.1 by jahn, Wed Apr 13 18:56:24 2011 UTC revision 1.2 by jmc, Mon Jan 14 16:50:46 2013 UTC
# Line 43  C     !LOCAL VARIABLES: Line 43  C     !LOCAL VARIABLES:
43  C     == Local variables ==  C     == Local variables ==
44        CHARACTER*(MAX_LEN_FNAM) fn        CHARACTER*(MAX_LEN_FNAM) fn
45        LOGICAL glf        LOGICAL glf
46          _RL     timList(1)
47        INTEGER prec, irec, ifld        INTEGER prec, irec, ifld
48        INTEGER listDim, nWrFlds        INTEGER listDim, nWrFlds
49        PARAMETER( listDim = 2 )        PARAMETER( listDim = 2 )
# Line 88  C-------------------------- Line 89  C--------------------------
89  C     uses this specific S/R to write (with more informations) only meta  C     uses this specific S/R to write (with more informations) only meta
90  C     files  C     files
91          glf  = globalFiles          glf  = globalFiles
92            timList(1) = myTime
93          irec = ABS(irec)          irec = ABS(irec)
94          CALL MDS_WR_METAFILES( fn, prec, glf, .FALSE.,          CALL MDS_WR_METAFILES( fn, prec, glf, .FALSE.,
95       &                         0, 0, nR, ' ',       &                         0, 0, nR, ' ',
96       &                         nWrFlds, wrFldList,       &                         nWrFlds, wrFldList,
97       &                         1, myTime,       &                         1, timList, oneRL,
98       &                         irec, myIter, myThid )       &                         irec, myIter, myThid )
99  #endif /* ALLOW_MDSIO */  #endif /* ALLOW_MDSIO */
100  C--------------------------  C--------------------------
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22