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

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

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

revision 1.5 by jmc, Sun Dec 24 20:20:59 2006 UTC revision 1.6 by jmc, Tue Feb 5 15:31:19 2008 UTC
# Line 78  C     write a summary diagnostics state: Line 78  C     write a summary diagnostics state:
78           ccLine(l:l) = '-'           ccLine(l:l) = '-'
79          ENDDO          ENDDO
80          WRITE(ccList,'(2A)')          WRITE(ccList,'(2A)')
81       &   ' nFlds, nActive,       freq     &   phase        , nLev'       &  ' nFlds, nActive,       freq     &     phase        , nLev'
82          WRITE(ccFlds,'(2A)')          WRITE(ccFlds,'(2A)')
83       &   ' diag#| name   | ipt  | iMate| kLev| count | mate.C|'       &  ' diag# | name   |   ipt  |  iMate | kLev|   count |   mate.C|'
84    
85          WRITE(dUnit,'(A,I10,A,1PE21.13)')          WRITE(dUnit,'(A,I10,A,1PE21.13)')
86       &   'Iter.Nb:',myIter,' ; Time(s):', myTime       &   'Iter.Nb:',myIter,' ; Time(s):', myTime
# Line 91  C     write a summary diagnostics state: Line 91  C     write a summary diagnostics state:
91    
92          DO ld=1,nlists          DO ld=1,nlists
93           iLen = ILNBLNK(fnames(ld))           iLen = ILNBLNK(fnames(ld))
94           WRITE(dUnit,'(A,I4,2A)') 'listId=', ld,           WRITE(dUnit,'(A,I5,2A)') 'listId=', ld,
95       &                            ' ; file name: ',fnames(ld)(1:iLen)       &                            ' ; file name: ',fnames(ld)(1:iLen)
96           WRITE(dUnit,'(A)') ccList           WRITE(dUnit,'(A)') ccList
97           WRITE(dUnit,'(I4,A,I4,A,2F17.6,A,I4)')           WRITE(dUnit,'(2(I5,A),2F17.6,A,I4)')
98       &    nfields(ld), '  |',nActive(ld), '  |',       &    nfields(ld), '  |',nActive(ld), '  |',
99       &    freq(ld), phase(ld), ' |', nlevels(ld)       &    freq(ld), phase(ld), ' |', nlevels(ld)
100           IF ( fflags(ld)(2:2).EQ.'P' ) THEN           IF ( fflags(ld)(2:2).EQ.'P' ) THEN
# Line 110  C     write a summary diagnostics state: Line 110  C     write a summary diagnostics state:
110           ENDIF           ENDIF
111           WRITE(dUnit,'(A)') ccFlds           WRITE(dUnit,'(A)') ccFlds
112           DO md=1,nActive(ld)           DO md=1,nActive(ld)
113             WRITE(msgBuf,'(I5,3A,2(I5,A),I4,A)')             WRITE(msgBuf,'(I6,3A,2(I7,A),I4,A)')
114       &       jdiag(md,ld),' |', flds(md,ld),'|',idiag(md,ld),' |',       &       jdiag(md,ld),' |', flds(md,ld),'|',idiag(md,ld),' |',
115       &       mdiag(md,ld),' |', kdiag(jdiag(md,ld)),' |'       &       mdiag(md,ld),' |', kdiag(jdiag(md,ld)),' |'
116             ipt = ABS(idiag(md,ld))             ipt = ABS(idiag(md,ld))
# Line 132  C     write a summary diagnostics state: Line 132  C     write a summary diagnostics state:
132                   iLen = ILNBLNK(msgBuf)                   iLen = ILNBLNK(msgBuf)
133                   tmpBuf(1:iLen) = msgBuf(1:iLen)                   tmpBuf(1:iLen) = msgBuf(1:iLen)
134                   IF (nDup.EQ.1) THEN                   IF (nDup.EQ.1) THEN
135                     WRITE(msgBuf,'(A,I5,A)') tmpBuf(1:iLen),xOld,cSep                     WRITE(msgBuf,'(A,I7,A)') tmpBuf(1:iLen),xOld,cSep
136                   ELSE                   ELSE
137                     WRITE(msgBuf,'(A,I5,A,I2,2A)') tmpBuf(1:iLen),xOld,                     WRITE(msgBuf,'(A,I7,A,I3,2A)') tmpBuf(1:iLen),xOld,
138       &              '(x',nDup,')',cSep       &              '(x',nDup,')',cSep
139                   ENDIF                   ENDIF
140                   xOld = xNew                   xOld = xNew
# Line 144  C     write a summary diagnostics state: Line 144  C     write a summary diagnostics state:
144             ELSEIF (ipt.NE.0) THEN             ELSEIF (ipt.NE.0) THEN
145              iLen = ILNBLNK(msgBuf)              iLen = ILNBLNK(msgBuf)
146              tmpBuf(1:iLen) = msgBuf(1:iLen)              tmpBuf(1:iLen) = msgBuf(1:iLen)
147              WRITE(msgBuf,'(A,I6,A)') tmpBuf(1:iLen),ndiag(ipt,1,1),' |'              WRITE(msgBuf,'(A,I8,A)') tmpBuf(1:iLen),ndiag(ipt,1,1),' |'
148              im = mdiag(md,ld)              im = mdiag(md,ld)
149              IF (im.NE.0) THEN              IF (im.NE.0) THEN
150               iLen = ILNBLNK(msgBuf)               iLen = ILNBLNK(msgBuf)
151               tmpBuf(1:iLen) = msgBuf(1:iLen)               tmpBuf(1:iLen) = msgBuf(1:iLen)
152               WRITE(msgBuf,'(A,I6,A)') tmpBuf(1:iLen),ndiag(im,1,1),' |'               WRITE(msgBuf,'(A,I8,A)') tmpBuf(1:iLen),ndiag(im,1,1),' |'
153              ENDIF              ENDIF
154             ENDIF             ENDIF
155             iLen = ILNBLNK(msgBuf)             iLen = ILNBLNK(msgBuf)
# Line 169  c       WRITE(dUnit,'(A)') ccLine Line 169  c       WRITE(dUnit,'(A)') ccLine
169          WRITE(dUnit,'(A)') ccLine          WRITE(dUnit,'(A)') ccLine
170    
171          WRITE(ccList,'(2A)')          WRITE(ccList,'(2A)')
172       &   ' nFlds, nActive,       freq     &   phase        |'       &   ' nFlds, nActive,       freq     &     phase        |'
173          WRITE(ccFlds,'(2A)')          WRITE(ccFlds,'(2A)')
174       &   ' diag#| name   | ipt  | iMate|    Volume   |   mate-Vol. |'       &   ' diag# | name   |   ipt  |  iMate |',
175         &          '    Volume   |   mate-Vol. |'
176    
177          DO ld=1,diagSt_nbLists          DO ld=1,diagSt_nbLists
178           iLen = ILNBLNK(diagSt_Fname(ld))           iLen = ILNBLNK(diagSt_Fname(ld))
179           WRITE(dUnit,'(A,I4,2A)') 'listId=', ld,           WRITE(dUnit,'(A,I4,2A)') 'listId=', ld,
180       &                     ' ; file name: ',diagSt_Fname(ld)(1:iLen)       &                     ' ; file name: ',diagSt_Fname(ld)(1:iLen)
181           WRITE(dUnit,'(A)') ccList           WRITE(dUnit,'(A)') ccList
182           WRITE(dUnit,'(I4,A,I4,A,2F17.6,A,I4)')           WRITE(dUnit,'(2(I5,A),2F17.6,A,I4)')
183       &    diagSt_nbFlds(ld), '  |',diagSt_nbActv(ld), '  |',       &    diagSt_nbFlds(ld), '  |',diagSt_nbActv(ld), '  |',
184       &    diagSt_freq(ld), diagSt_phase(ld), ' |'       &    diagSt_freq(ld), diagSt_phase(ld), ' |'
185           WRITE(msgBuf,'(A)') ' Regions: '           WRITE(msgBuf,'(A)') ' Regions: '
# Line 195  c       WRITE(dUnit,'(A)') ccLine Line 196  c       WRITE(dUnit,'(A)') ccLine
196    
197           WRITE(dUnit,'(A)') ccFlds           WRITE(dUnit,'(A)') ccFlds
198           DO md=1,diagSt_nbActv(ld)           DO md=1,diagSt_nbActv(ld)
199             WRITE(msgBuf,'(I5,3A,2(I5,A))')             WRITE(msgBuf,'(I6,3A,2(I7,A))')
200       &       jSdiag(md,ld),' |', diagSt_Flds(md,ld),'|',iSdiag(md,ld),       &       jSdiag(md,ld),' |', diagSt_Flds(md,ld),'|',iSdiag(md,ld),
201       &       ' |', mSdiag(md,ld),' |'       &       ' |', mSdiag(md,ld),' |'
202             ipt = ABS(iSdiag(md,ld))             ipt = ABS(iSdiag(md,ld))
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22