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

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

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

revision 1.10 by jmc, Thu Aug 27 18:00:01 2009 UTC revision 1.11 by jmc, Sun Jul 23 00:24:18 2017 UTC
# Line 51  c     INTEGER prec, iChar, lChar, k Line 51  c     INTEGER prec, iChar, lChar, k
51        INTEGER  ILNBLNK        INTEGER  ILNBLNK
52        EXTERNAL ILNBLNK        EXTERNAL ILNBLNK
53    
54        INTEGER dUnit, n, m        INTEGER dUnit, ndId, n, m
55    
56  #ifdef ALLOW_MNC  #ifdef ALLOW_MNC
57        INTEGER i, ii        INTEGER i, ii
# Line 165  C         Write the ndiag() array Line 165  C         Write the ndiag() array
165            CALL MNC_CW_DEL_VNAME(d_cw_name, myThid)            CALL MNC_CW_DEL_VNAME(d_cw_name, myThid)
166            CALL MNC_CW_DEL_GNAME(d_cw_name, myThid)            CALL MNC_CW_DEL_GNAME(d_cw_name, myThid)
167    
   
168          ENDIF          ENDIF
169  #endif  #endif
170    
# Line 183  C         Write ndiag() Line 182  C         Write ndiag()
182            _BARRIER            _BARRIER
183            _BEGIN_MASTER( myThid )            _BEGIN_MASTER( myThid )
184            WRITE(fn,'(a,a)') 'pickup_ndiag.', suff(1:sn)            WRITE(fn,'(a,a)') 'pickup_ndiag.', suff(1:sn)
185            CALL MDSFINDUNIT( dUnit, mythid )            CALL MDSFINDUNIT( dUnit, myThid )
186            OPEN( dUnit, file=fn )            OPEN( dUnit, file=fn )
187            DO n = 1,nlists            DO n = 1,nlists
188              DO m = 1,nfields(n)              DO m = 1,nfields(n)
189                WRITE(dUnit,'(I10)') ndiag(jdiag(m,n),1,1)                ndId = ABS(jdiag(m,n))
190                  WRITE(dUnit,'(I10)') ndiag(ndId,1,1)
191              ENDDO              ENDDO
192            ENDDO            ENDDO
193            CLOSE( dUnit )            CLOSE( dUnit )
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22