/[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.8 by edhill, Sat Sep 17 03:17:06 2005 UTC revision 1.9 by jmc, Tue Feb 5 15:31:19 2008 UTC
# Line 5  C $Name$ Line 5  C $Name$
5    
6  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
7  CBOP  CBOP
8  C     !ROUTINE: DIAGNOSTICS_WRITE_PICKUP  C     !ROUTINE: DIAGNOSTICS_WRITE_PICKUP
9  C     !INTERFACE:  C     !INTERFACE:
10        SUBROUTINE DIAGNOSTICS_WRITE_PICKUP(        SUBROUTINE DIAGNOSTICS_WRITE_PICKUP(
11       I     isPerm,       I     isPerm,
12       I     suff,       I     suff,
13       I     myTime,       I     myTime,
14       I     myIter,       I     myIter,
15       I     myThid )       I     myThid )
# Line 83  C---+----1----+----2----+----3----+----4 Line 83  C---+----1----+----2----+----3----+----4
83            DO i = 1,MAX_LEN_FNAM            DO i = 1,MAX_LEN_FNAM
84              diag_mnc_bn(i:i) = ' '              diag_mnc_bn(i:i) = ' '
85            ENDDO            ENDDO
86              
87            IF ( isPerm ) THEN            IF ( isPerm ) THEN
88              WRITE(diag_mnc_bn,'(A)') 'pickup_diagnostics'              WRITE(diag_mnc_bn,'(A)') 'pickup_diagnostics'
89            ELSE            ELSE
# Line 120  C         Write the qdiag() array Line 120  C         Write the qdiag() array
120            ib(2)      = OLy + 1            ib(2)      = OLy + 1
121            ie(2)      = OLy + sNy + 1            ie(2)      = OLy + sNy + 1
122            dn(3)(1:2) = 'Nd'            dn(3)(1:2) = 'Nd'
123            dim(3)     = numdiags            dim(3)     = numDiags
124            ib(3)      = 1            ib(3)      = 1
125            ie(3)      = numdiags            ie(3)      = numDiags
126            dn(4)(1:1) = 'T'            dn(4)(1:1) = 'T'
127            dim(4)     = -1            dim(4)     = -1
128            ib(4)      = 1            ib(4)      = 1
129            ie(4)      = 1            ie(4)      = 1
130              
131            CALL MNC_CW_ADD_GNAME(d_cw_name, 4,            CALL MNC_CW_ADD_GNAME(d_cw_name, 4,
132       &         dim, dn, ib, ie, myThid)       &         dim, dn, ib, ie, myThid)
133            CALL MNC_CW_ADD_VNAME(d_cw_name, d_cw_name,            CALL MNC_CW_ADD_VNAME(d_cw_name, d_cw_name,
134       &         4,5, myThid)       &         4,5, myThid)
135            CALL MNC_CW_ADD_VATTR_TEXT(d_cw_name,'description',            CALL MNC_CW_ADD_VATTR_TEXT(d_cw_name,'description',
136       &         'diagnostics state',myThid)       &         'diagnostics state',myThid)
137              
138            CALL MNC_CW_RL_W('D',diag_mnc_bn,0,0,            CALL MNC_CW_RL_W('D',diag_mnc_bn,0,0,
139       &         d_cw_name, qdiag, myThid)       &         d_cw_name, qdiag, myThid)
140              
141            CALL MNC_CW_DEL_VNAME(d_cw_name, myThid)            CALL MNC_CW_DEL_VNAME(d_cw_name, myThid)
142            CALL MNC_CW_DEL_GNAME(d_cw_name, myThid)            CALL MNC_CW_DEL_GNAME(d_cw_name, myThid)
143    
# Line 148  C         Write the ndiag() array Line 148  C         Write the ndiag() array
148            ENDDO            ENDDO
149            d_cw_name(1:10) = 'diag_count'            d_cw_name(1:10) = 'diag_count'
150            dn(1)(1:2) = 'Nd'            dn(1)(1:2) = 'Nd'
151            dim(1)     = numdiags            dim(1)     = numDiags
152            ib(1)      = 1            ib(1)      = 1
153            ie(1)      = numdiags            ie(1)      = numDiags
154            dn(2)(1:1) = 'T'            dn(2)(1:1) = 'T'
155            dim(2)     = -1            dim(2)     = -1
156            ib(2)      = 1            ib(2)      = 1
157            ie(2)      = 1            ie(2)      = 1
158    
159            CALL MNC_CW_ADD_GNAME(d_cw_name, 2,            CALL MNC_CW_ADD_GNAME(d_cw_name, 2,
160       &         dim, dn, ib, ie, myThid)       &         dim, dn, ib, ie, myThid)
161            CALL MNC_CW_ADD_VNAME(d_cw_name, d_cw_name,            CALL MNC_CW_ADD_VNAME(d_cw_name, d_cw_name,
162       &         4,5, myThid)       &         4,5, myThid)
163            CALL MNC_CW_ADD_VATTR_TEXT(d_cw_name,'description',            CALL MNC_CW_ADD_VATTR_TEXT(d_cw_name,'description',
164       &         'diagnostics state',myThid)       &         'diagnostics state',myThid)
165              
166            CALL MNC_CW_I_W('I',diag_mnc_bn,0,0,            CALL MNC_CW_I_W('I',diag_mnc_bn,0,0,
167       &         d_cw_name, ndiag, myThid)       &         d_cw_name, ndiag, myThid)
168              
169            CALL MNC_CW_DEL_VNAME(d_cw_name, myThid)            CALL MNC_CW_DEL_VNAME(d_cw_name, myThid)
170            CALL MNC_CW_DEL_GNAME(d_cw_name, myThid)            CALL MNC_CW_DEL_GNAME(d_cw_name, myThid)
171    
172    
173          ENDIF          ENDIF
174  #endif  #endif
175            
176  #ifdef ALLOW_MDSIO  #ifdef ALLOW_MDSIO
177          IF (diag_pickup_write_mdsio) THEN          IF (diag_pickup_write_mdsio) THEN
178            _BEGIN_MASTER( myThid )            _BEGIN_MASTER( myThid )
# Line 186  C         Write qdiag() Line 186  C         Write qdiag()
186            write(fn,'(a,a)') 'pickup_qdiag.', suff(1:sn)            write(fn,'(a,a)') 'pickup_qdiag.', suff(1:sn)
187            prec = precFloat64            prec = precFloat64
188            lgf = globalFiles            lgf = globalFiles
189            CALL MDSWRITEFIELD(fn,prec,lgf,'RL',numdiags,qdiag,            CALL MDSWRITEFIELD(fn,prec,lgf,'RL',numDiags,qdiag,
190       &         1,myIter,myThid)       &         1,myIter,myThid)
191    
192  C         Write ndiag()  C         Write ndiag()
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22