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

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

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

revision 1.3 by jmc, Mon Jul 11 19:02:17 2005 UTC revision 1.4 by jmc, Tue Feb 5 15:31:19 2008 UTC
# Line 173  C-      Check for consistency with Nb of Line 173  C-      Check for consistency with Nb of
173          kStore = kd0 + MAX(ksgn*kFirst,ksgn*kLast) - kInQSd + 1          kStore = kd0 + MAX(ksgn*kFirst,ksgn*kLast) - kInQSd + 1
174          IF ( kStore.GT.kdiag(ndId) ) THEN          IF ( kStore.GT.kdiag(ndId) ) THEN
175           _BEGIN_MASTER(myThid)           _BEGIN_MASTER(myThid)
176            WRITE(msgBuf,'(2A,I3,A)') 'DIAGSTATS_FILL: ',            WRITE(msgBuf,'(2A,I4,A)') 'DIAGSTATS_FILL: ',
177       &     'exceed Nb of levels(=',kdiag(ndId),' ) reserved '       &     'exceed Nb of levels(=',kdiag(ndId),' ) reserved '
178            CALL PRINT_ERROR( msgBuf , myThid )            CALL PRINT_ERROR( msgBuf , myThid )
179            WRITE(msgBuf,'(2A,I4,2A)') 'DIAGSTATS_FILL: ',            WRITE(msgBuf,'(2A,I6,2A)') 'DIAGSTATS_FILL: ',
180       &     'for Diagnostics #', ndId, ' : ', cdiag(ndId)       &     'for Diagnostics #', ndId, ' : ', cdiag(ndId)
181            CALL PRINT_ERROR( msgBuf , myThid )            CALL PRINT_ERROR( msgBuf , myThid )
182            WRITE(msgBuf,'(2A,2I4,I3)') 'calling DIAGSTATS_FILL ',            WRITE(msgBuf,'(2A,2I4,I3)') 'calling DIAGSTATS_FILL ',
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22