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

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

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

revision 1.6 by jmc, Tue Feb 5 15:31:19 2008 UTC revision 1.7 by dfer, Thu Oct 30 18:52:54 2008 UTC
# Line 72  C        Search all possible model diagn Line 72  C        Search all possible model diagn
72           IF ( .NOT.found ) THEN           IF ( .NOT.found ) THEN
73             CALL DIAGNOSTICS_LIST_CHECK(             CALL DIAGNOSTICS_LIST_CHECK(
74       O                      ndCount,       O                      ndCount,
75       I                      ld,md,diagSt_nbFlds,diagSt_Flds,myThid)       I                      ld,md, diagSt_nbLists,
76         I                      diagSt_nbFlds,diagSt_Flds,myThid)
77             IF ( ndCount.EQ.0 ) THEN             IF ( ndCount.EQ.0 ) THEN
78               WRITE(msgBuf,'(3A)') 'DIAGSTATS_SET_POINTERS: ',               WRITE(msgBuf,'(3A)') 'DIAGSTATS_SET_POINTERS: ',
79       &                     diagSt_Flds(md,ld),' is not a Diagnostic'       &                     diagSt_Flds(md,ld),' is not a Diagnostic'
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22