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

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

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

revision 1.4 by jmc, Mon Jul 11 18:59:07 2005 UTC revision 1.5 by jmc, Tue Feb 5 15:31:19 2008 UTC
# Line 3  C $Name$ Line 3  C $Name$
3    
4  #include "DIAG_OPTIONS.h"  #include "DIAG_OPTIONS.h"
5    
6    C--   File diagnostics_fill_field.F:
7    C--    Contents:
8    C--    o DIAGNOSTICS_FILL_FIELD
9    C--    o DIAGNOSTICS_DO_FILL
10    
11    C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
12  CBOP  CBOP
13  C     !ROUTINE: DIAGNOSTICS_FILL_FIELD  C     !ROUTINE: DIAGNOSTICS_FILL_FIELD
14  C     !INTERFACE:  C     !INTERFACE:
# Line 182  C-      Check for consistency with Nb of Line 188  C-      Check for consistency with Nb of
188          kStore = kd0 + MAX(ksgn*kFirst,ksgn*kLast) - ipointer + 1          kStore = kd0 + MAX(ksgn*kFirst,ksgn*kLast) - ipointer + 1
189          IF ( kStore.GT.kdiag(ndiagnum) ) THEN          IF ( kStore.GT.kdiag(ndiagnum) ) THEN
190           _BEGIN_MASTER(myThid)           _BEGIN_MASTER(myThid)
191            WRITE(msgBuf,'(2A,I3,A)') 'DIAGNOSTICS_FILL_FIELD: ',            WRITE(msgBuf,'(2A,I4,A)') 'DIAGNOSTICS_FILL_FIELD: ',
192       &     'exceed Nb of levels(=',kdiag(ndiagnum),' ) reserved '       &     'exceed Nb of levels(=',kdiag(ndiagnum),' ) reserved '
193            CALL PRINT_ERROR( msgBuf , myThid )            CALL PRINT_ERROR( msgBuf , myThid )
194            WRITE(msgBuf,'(2A,I4,2A)') 'DIAGNOSTICS_FILL_FIELD: ',            WRITE(msgBuf,'(2A,I6,2A)') 'DIAGNOSTICS_FILL_FIELD: ',
195       &     'for Diagnostics #', ndiagnum, ' : ', cdiag(ndiagnum)       &     'for Diagnostics #', ndiagnum, ' : ', cdiag(ndiagnum)
196            CALL PRINT_ERROR( msgBuf , myThid )            CALL PRINT_ERROR( msgBuf , myThid )
197            WRITE(msgBuf,'(2A,2I4,I3)') 'calling DIAGNOSTICS_FILL_FIELD ',            WRITE(msgBuf,'(2A,2I4,I3)') 'calling DIAGNOSTICS_FILL_FIELD ',
# Line 235  c     IF (myThid.EQ.1) WRITE(6,1000) cdi Line 241  c     IF (myThid.EQ.1) WRITE(6,1000) cdi
241    
242  c     ENDIF  c     ENDIF
243    
244   1000 format(' ',' Warning: Trying to write to diagnostic ',a8,  c1000 format(' ',' Warning: Trying to write to diagnostic ',a8,
245       &        ' But it is not a valid (or active) name ')  c    &        ' But it is not a valid (or active) name ')
246        RETURN        RETURN
247        END        END
248    
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22