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

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

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

revision 1.4 by jmc, Mon Jan 3 19:50:14 2005 UTC revision 1.5 by jmc, Mon Feb 7 03:46:10 2005 UTC
# Line 150  C--   Check for multiple definition of t Line 150  C--   Check for multiple definition of t
150         ENDIF         ENDIF
151        ENDDO        ENDDO
152    
153    C--   Check that number of levels to write (in data.diagnostics) does not
154    C     exceeds max size: nlevs=max(Nr,NrPhys)
155    C-  note: a better place would be in DIAGNOSTICS_CHECK but prefer to do it
156    C         here where nlevs is defined.
157          DO n=1,nlists
158            IF ( nlevels(n).GT.nlevs ) THEN
159              WRITE(msgBuf,'(3A,I3,2A)') 'DIAGNOSTICS_SET_LEVELS: ',
160         &       'Ask for too many levels',
161         &       ' in list n=', n, ', filename: ', fnames(n)
162              CALL PRINT_ERROR( msgBuf , myThid )
163              WRITE(msgBuf,'(2A,I4,A,I4)') 'DIAGNOSTICS_SET_LEVELS: ',
164         &       ' number of lev= ', nlevels(n), ' exceeds Max=',nlevs
165              CALL PRINT_ERROR( msgBuf , myThid )
166              STOP 'ABNORMAL END: S/R DIAGNOSTICS_SET_LEVELS'
167            ENDIF
168          ENDDO
169    
170        _END_MASTER( myThid )        _END_MASTER( myThid )
171    
172        RETURN        RETURN
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22