/[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.7 by jmc, Sun Nov 19 21:59:56 2006 UTC revision 1.9 by jahn, Tue Jan 29 00:35:31 2008 UTC
# Line 135  C     and if it exists. Note: for now, o Line 135  C     and if it exists. Note: for now, o
135    
136           nd = jdiag(md,ld)           nd = jdiag(md,ld)
137           mate_index = gdiag(nd)(6:8)           mate_index = gdiag(nd)(6:8)
138           IF ( mate_index.NE.'   ' ) THEN           IF ( mate_index.NE.'   ' .AND. mate_index.NE.'***' ) THEN
139            READ(mate_index,'(I3)') mate            READ(mate_index,'(I3)') mate
140            DO j=1,nlists            DO j=1,nlists
141             DO i=1,nActive(j)             DO i=1,nActive(j)
# Line 189  C-      set Nb of levels to the minimum Line 189  C-      set Nb of levels to the minimum
189              CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,              CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
190       &                          SQUEEZE_RIGHT, myThid)       &                          SQUEEZE_RIGHT, myThid)
191            ENDDO            ENDDO
192          ELSE          ELSEIF ( fflags(ld)(2:2).NE.'P' ) THEN
193  C-      Check for levels out of range ( > kdiag)  C-      if no Vert.Interpolation, check for levels out of range ( > kdiag):
194            kLev = 0            kLev = 0
195            DO k=1,nlevels(ld)            DO k=1,nlevels(ld)
196              kLev = MAX(NINT(levs(k,ld)),kLev)              kLev = MAX(NINT(levs(k,ld)),kLev)
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22