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

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

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

revision 1.11 by dfer, Thu Oct 30 18:52:54 2008 UTC revision 1.12 by jmc, Mon Jun 8 14:40:47 2009 UTC
# Line 160  C--   Set list of levels to write (if no Line 160  C--   Set list of levels to write (if no
160        DO ld=1,nlists        DO ld=1,nlists
161          IF ( nlevels(ld).EQ.-1 ) THEN          IF ( nlevels(ld).EQ.-1 ) THEN
162  C-      set Nb of levels to the minimum size of all diag of this list:  C-      set Nb of levels to the minimum size of all diag of this list:
163            kLev = numLevels            kLev = numLevels*10
164            DO md=1,nfields(ld)            DO md=1,nfields(ld)
165              nd = jdiag(md,ld)              nd = jdiag(md,ld)
166              kLev = MIN(kdiag(nd),kLev)              kLev = MIN(kdiag(nd),kLev)
167            ENDDO            ENDDO
168            IF ( kLev.LE.0 ) THEN            IF ( kLev.LE.0 ) THEN
169              WRITE(msgBuf,'(2A,I6,2A)')              WRITE(msgBuf,'(2A,I4,2A)')
170       &      'DIAGNOSTICS_SET_POINTERS: kLev < 1 in ',       &      'DIAGNOSTICS_SET_POINTERS: kLev < 1 in',
171       &      ' setting levs of list l=',ld,', fnames: ', fnames(ld)       &      ' setting levs of list l=',ld,', fnames=', fnames(ld)
172                CALL PRINT_ERROR( msgBuf , myThid )
173                STOP 'ABNORMAL END: S/R DIAGNOSTICS_SET_POINTERS'
174              ELSEIF ( kLev.GT.numLevels ) THEN
175                WRITE(msgBuf,'(A,2(I6,A))')
176         &      'DIAGNOSTICS_SET_POINTERS: kLev=', kLev,
177         &                  ' >', numLevels, ' =numLevels'
178                CALL PRINT_ERROR( msgBuf , myThid )
179                WRITE(msgBuf,'(2A,I4,2A)') 'DIAGNOSTICS_SET_POINTERS: in',
180         &      ' setting levs of list l=',ld,', fnames=', fnames(ld)
181              CALL PRINT_ERROR( msgBuf , myThid )              CALL PRINT_ERROR( msgBuf , myThid )
182              STOP 'ABNORMAL END: S/R DIAGNOSTICS_SET_POINTERS'              STOP 'ABNORMAL END: S/R DIAGNOSTICS_SET_POINTERS'
183            ENDIF            ENDIF
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22