/[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.3 by jmc, Mon Jan 23 22:28:57 2006 UTC revision 1.4 by jmc, Tue Jan 24 02:59:47 2006 UTC
# Line 146  C-    check that all selected regions ar Line 146  C-    check that all selected regions ar
146         DO j=1,nRegions         DO j=1,nRegions
147          IF ( diagSt_region(j,l).NE.0 ) THEN          IF ( diagSt_region(j,l).NE.0 ) THEN
148            IF ( diagSt_kRegMsk(j).LT.1 .OR.            IF ( diagSt_kRegMsk(j).LT.1 .OR.
149       &         diagSt_kRegMsk(j).GT.nLevRegMask ) THEN       &         diagSt_kRegMsk(j).GT.nSetRegMask ) THEN
150              WRITE(msgBuf,'(A,3(A,I3))') 'DIAGSTATS_SET_POINTERS:',              WRITE(msgBuf,'(A,3(A,I3))') 'DIAGSTATS_SET_POINTERS:',
151       &       ' region', j, ' undefined (k=', diagSt_kRegMsk(j),       &       ' region', j, ' undefined (k=', diagSt_kRegMsk(j),
152       &       ') in list l=', l       &       ') in list l=', l
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22