/[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.7 by edhill, Wed May 25 04:03:09 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 84  C---+----1----+----2----+----3----+----4 Line 84  C---+----1----+----2----+----3----+----4
84    
85  C         Update the record dimension by writing the iteration number  C         Update the record dimension by writing the iteration number
86            CALL MNC_CW_SET_UDIM(diag_mnc_bn, -1, myThid)            CALL MNC_CW_SET_UDIM(diag_mnc_bn, -1, myThid)
87            CALL MNC_CW_I_W_S('I',diag_mnc_bn,0,0,'T',myIter,myThid)            CALL MNC_CW_RL_W_S('D',diag_mnc_bn,0,0,'T',myTime,myThid)
88            CALL MNC_CW_SET_UDIM(diag_mnc_bn, 0, myThid)            CALL MNC_CW_SET_UDIM(diag_mnc_bn, 0, myThid)
89              CALL MNC_CW_I_W_S('I',diag_mnc_bn,0,0,'iter',myIter,myThid)
90    
91  C         Write the qdiag() array  C         Write the qdiag() array
92            d_cw_name(1:NLEN) = dn_blnk(1:NLEN)            d_cw_name(1:NLEN) = dn_blnk(1:NLEN)
# Line 145  C         Write the ndiag() array Line 146  C         Write the ndiag() array
146            CALL MNC_CW_ADD_VATTR_TEXT(d_cw_name,'description',            CALL MNC_CW_ADD_VATTR_TEXT(d_cw_name,'description',
147       &         'diagnostics state',myThid)       &         'diagnostics state',myThid)
148                        
149            CALL MNC_CW_RL_W('I',diag_mnc_bn,0,0,            CALL MNC_CW_I_W('I',diag_mnc_bn,0,0,
150       &         d_cw_name, ndiag, myThid)       &         d_cw_name, ndiag, myThid)
151                        
152            CALL MNC_CW_DEL_VNAME(d_cw_name, myThid)            CALL MNC_CW_DEL_VNAME(d_cw_name, myThid)
# Line 178  C         Write ndiag() Line 179  C         Write ndiag()
179            WRITE(fn,'(a,a)') 'pickup_ndiag.', suff(1:sn)            WRITE(fn,'(a,a)') 'pickup_ndiag.', suff(1:sn)
180            CALL MDSFINDUNIT( dUnit, mythid )            CALL MDSFINDUNIT( dUnit, mythid )
181            OPEN( dUnit, file=fn )            OPEN( dUnit, file=fn )
182            DO i = 1,numdiags            DO n = 1,nlists
183              WRITE(dUnit,'(I10)') ndiag(i)              DO m = 1,nfields(n)
184                  WRITE(dUnit,'(I10)') ndiag(jdiag(m,n))
185                ENDDO
186            ENDDO            ENDDO
187            CLOSE( dUnit )            CLOSE( dUnit )
188            _END_MASTER( myThid )            _END_MASTER( myThid )
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22