/[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.5 by edhill, Wed Feb 23 05:31:03 2005 UTC revision 1.6 by edhill, Wed Feb 23 16:30:19 2005 UTC
# Line 51  c     INTEGER prec, iChar, lChar, k Line 51  c     INTEGER prec, iChar, lChar, k
51    
52  #ifdef ALLOW_MDSIO  #ifdef ALLOW_MDSIO
53        LOGICAL lgf        LOGICAL lgf
54        INTEGER dUnit        INTEGER dUnit, n, m
55  #endif /* ALLOW_MDSIO */  #endif /* ALLOW_MDSIO */
56    
57  #ifdef ALLOW_MNC  #ifdef ALLOW_MNC
# Line 145  C         Write the ndiag() array Line 145  C         Write the ndiag() array
145            CALL MNC_CW_ADD_VATTR_TEXT(d_cw_name,'description',            CALL MNC_CW_ADD_VATTR_TEXT(d_cw_name,'description',
146       &         'diagnostics state',myThid)       &         'diagnostics state',myThid)
147                        
148            CALL MNC_CW_RL_W('I',diag_mnc_bn,0,0,            CALL MNC_CW_I_W('I',diag_mnc_bn,0,0,
149       &         d_cw_name, ndiag, myThid)       &         d_cw_name, ndiag, myThid)
150                        
151            CALL MNC_CW_DEL_VNAME(d_cw_name, myThid)            CALL MNC_CW_DEL_VNAME(d_cw_name, myThid)
# Line 178  C         Write ndiag() Line 178  C         Write ndiag()
178            WRITE(fn,'(a,a)') 'pickup_ndiag.', suff(1:sn)            WRITE(fn,'(a,a)') 'pickup_ndiag.', suff(1:sn)
179            CALL MDSFINDUNIT( dUnit, mythid )            CALL MDSFINDUNIT( dUnit, mythid )
180            OPEN( dUnit, file=fn )            OPEN( dUnit, file=fn )
181            DO i = 1,numdiags            DO n = 1,nlists
182              WRITE(dUnit,'(I10)') ndiag(i)              DO m = 1,nfields(n)
183                  WRITE(dUnit,'(I10)') ndiag(jdiag(m,n))
184                ENDDO
185            ENDDO            ENDDO
186            CLOSE( dUnit )            CLOSE( dUnit )
187            _END_MASTER( myThid )            _END_MASTER( myThid )
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22