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

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

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

revision 1.6 by jmc, Thu Aug 27 18:00:01 2009 UTC revision 1.7 by jmc, Sun Jul 23 00:24:18 2017 UTC
# Line 40  c     INTEGER prec, iChar, lChar, k Line 40  c     INTEGER prec, iChar, lChar, k
40        INTEGER  ILNBLNK        INTEGER  ILNBLNK
41        EXTERNAL ILNBLNK        EXTERNAL ILNBLNK
42    
43        INTEGER dUnit, n, m        INTEGER dUnit, ndId, n, m
44    
45  #ifdef ALLOW_MNC  #ifdef ALLOW_MNC
46        INTEGER i, ii        INTEGER i, ii
# Line 54  c     INTEGER prec, iChar, lChar, k Line 54  c     INTEGER prec, iChar, lChar, k
54        CHARACTER*(NLEN) dn_blnk        CHARACTER*(NLEN) dn_blnk
55  #endif /*  ALLOW_MNC  */  #endif /*  ALLOW_MNC  */
56    
   
57  C     Add pickup capability  C     Add pickup capability
58        IF (diag_pickup_read) THEN        IF (diag_pickup_read) THEN
59    
# Line 151  C--    jmc: should really write 1 file p Line 150  C--    jmc: should really write 1 file p
150            OPEN( dUnit, file=fn )            OPEN( dUnit, file=fn )
151            DO n = 1,nlists            DO n = 1,nlists
152              DO m = 1,nfields(n)              DO m = 1,nfields(n)
153                READ(dUnit,'(I10)') ndiag(jdiag(m,n),1,1)                ndId = ABS(jdiag(m,n))
154                  READ(dUnit,'(I10)') ndiag(ndId,1,1)
155              ENDDO              ENDDO
156            ENDDO            ENDDO
157            CLOSE( dUnit )            CLOSE( dUnit )
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22