/[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.8 by jmc, Sun Dec 24 20:20:59 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)
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22