/[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.59 by jmc, Tue Jul 26 20:05:20 2011 UTC revision 1.60 by jmc, Sun Jan 13 22:46:38 2013 UTC
# Line 446  C     meta files but with more informati Line 446  C     meta files but with more informati
446              nRec = averageCycle(listId)*nfields(listId)              nRec = averageCycle(listId)*nfields(listId)
447              CALL MDS_WR_METAFILES(fn, prec, glf, .FALSE.,              CALL MDS_WR_METAFILES(fn, prec, glf, .FALSE.,
448       &              0, 0, nLevOutp, ' ',       &              0, 0, nLevOutp, ' ',
449       &              nfields(listId), flds(1,listId), nTimRec, timeRec,       &              nfields(listId), flds(1,listId),
450         &              nTimRec, timeRec, undefRL,
451       &              nRec, myIter, myThid)       &              nRec, myIter, myThid)
452        ENDIF        ENDIF
453  #endif /*  ALLOW_MDSIO  */  #endif /*  ALLOW_MDSIO  */
Legend:
Removed from v.1.59  
changed lines
  Added in v.1.60
  ViewVC Help
Powered by ViewVC 1.1.22