/[MITgcm]/MITgcm/pkg/diagnostics/diagnostics_out.F
ViewVC logotype

Diff of /MITgcm/pkg/diagnostics/diagnostics_out.F

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

revision 1.41 by jmc, Sun Jan 25 20:22:57 2009 UTC revision 1.42 by jmc, Tue Aug 4 18:00:29 2009 UTC
# Line 78  C              diagnostic storage qdiag Line 78  C              diagnostic storage qdiag
78        INTEGER prec, nRec        INTEGER prec, nRec
79  #ifdef ALLOW_MDSIO  #ifdef ALLOW_MDSIO
80        LOGICAL glf        LOGICAL glf
81          _RL timeRec(1)
82  #endif  #endif
83  #ifdef ALLOW_MNC  #ifdef ALLOW_MNC
84        INTEGER ll, llMx, jj, jjMx        INTEGER ll, llMx, jj, jjMx
# Line 567  C     all MDSIO S/R, uses instead this s Line 568  C     all MDSIO S/R, uses instead this s
568  C     meta files but with more informations in it.  C     meta files but with more informations in it.
569              glf = globalFiles              glf = globalFiles
570              nRec = nfields(listId)*averageCycle(listId)              nRec = nfields(listId)*averageCycle(listId)
571                timeRec(1) = myTime
572              CALL MDS_WR_METAFILES(fn, prec, glf, .FALSE.,              CALL MDS_WR_METAFILES(fn, prec, glf, .FALSE.,
573       &              0, 0, nlevels(listId), ' ',       &              0, 0, nlevels(listId), ' ',
574       &              nfields(listId), flds(1,listId), 1, myTime,       &              nfields(listId), flds(1,listId), 1, timeRec,
575       &              nRec, myIter, myThid)       &              nRec, myIter, myThid)
576        ENDIF        ENDIF
577  #endif /*  ALLOW_MDSIO  */  #endif /*  ALLOW_MDSIO  */
Legend:
Removed from v.1.41  
changed lines
  Added in v.1.42
  ViewVC Help
Powered by ViewVC 1.1.22