/[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.1 by jmc, Sun Jun 26 16:51:49 2005 UTC revision 1.2 by jmc, Wed Jun 29 23:07:34 2005 UTC
# Line 33  C     !LOCAL VARIABLES: Line 33  C     !LOCAL VARIABLES:
33        INTEGER md, ld, ipt, im        INTEGER md, ld, ipt, im
34        INTEGER j, k, k1, k2, l        INTEGER j, k, k1, k2, l
35        INTEGER  dUnit, stdUnit, iLen        INTEGER  dUnit, stdUnit, iLen
36        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf, tmpBuf
37        CHARACTER*(MAX_LEN_FNAM) fn        CHARACTER*(MAX_LEN_FNAM) fn
38        CHARACTER*(72) ccLine, ccFlds, ccList        CHARACTER*(72) ccLine, ccFlds, ccList
39        LOGICAL  outpSummary        LOGICAL  outpSummary
# Line 99  C     write a summary diagnostics state: Line 99  C     write a summary diagnostics state:
99           ENDDO           ENDDO
100           WRITE(dUnit,'(A)') ccFlds           WRITE(dUnit,'(A)') ccFlds
101           DO md=1,nActive(ld)           DO md=1,nActive(ld)
102             WRITE(msgBuf,'(I5,3A,I5,A,I5,A,I4,A)')             WRITE(msgBuf,'(I5,3A,2(I5,A),I4,A)')
103       &       jdiag(md,ld),' |', flds(md,ld),'|',idiag(md,ld),' |',       &       jdiag(md,ld),' |', flds(md,ld),'|',idiag(md,ld),' |',
104       &       mdiag(md,ld),' |', kdiag(jdiag(md,ld)),' |'       &       mdiag(md,ld),' |', kdiag(jdiag(md,ld)),' |'
105             ipt = ABS(idiag(md,ld))             ipt = ABS(idiag(md,ld))
106             IF (ipt.NE.0) THEN             IF (ipt.NE.0) THEN
107              iLen = ILNBLNK(msgBuf)              iLen = ILNBLNK(msgBuf)
108              WRITE(msgBuf,'(A,I6,A)') msgBuf(1:iLen),ndiag(ipt,1,1),' |'              tmpBuf(1:iLen) = msgBuf(1:iLen)
109                WRITE(msgBuf,'(A,I6,A)') tmpBuf(1:iLen),ndiag(ipt,1,1),' |'
110             ENDIF             ENDIF
111             im = mdiag(md,ld)             im = mdiag(md,ld)
112             IF (im.NE.0) THEN             IF (im.NE.0) THEN
113              iLen = ILNBLNK(msgBuf)              iLen = ILNBLNK(msgBuf)
114              WRITE(msgBuf,'(A,I6,A)') msgBuf(1:iLen),ndiag(im,1,1),' |'              tmpBuf(1:iLen) = msgBuf(1:iLen)
115                WRITE(msgBuf,'(A,I6,A)') tmpBuf(1:iLen),ndiag(im,1,1),' |'
116             ENDIF             ENDIF
117             iLen = ILNBLNK(msgBuf)             iLen = ILNBLNK(msgBuf)
118             WRITE(dUnit,'(A)') msgBuf(1:iLen)             WRITE(dUnit,'(A)') msgBuf(1:iLen)
# Line 146  c       WRITE(dUnit,'(A)') ccLine Line 148  c       WRITE(dUnit,'(A)') ccLine
148           DO j=0,nRegions           DO j=0,nRegions
149             IF ( diagSt_region(j,ld).GE.1             IF ( diagSt_region(j,ld).GE.1
150       &          .AND. iLen+3.LE.MAX_LEN_MBUF) THEN       &          .AND. iLen+3.LE.MAX_LEN_MBUF) THEN
151               WRITE(msgBuf,'(A,I3)') msgBuf(1:iLen),j               tmpBuf(1:iLen) = msgBuf(1:iLen)
152                 WRITE(msgBuf,'(A,I3)') tmpBuf(1:iLen),j
153               iLen = iLen+3               iLen = iLen+3
154             ENDIF             ENDIF
155           ENDDO           ENDDO
# Line 154  c       WRITE(dUnit,'(A)') ccLine Line 157  c       WRITE(dUnit,'(A)') ccLine
157    
158           WRITE(dUnit,'(A)') ccFlds           WRITE(dUnit,'(A)') ccFlds
159           DO md=1,diagSt_nbActv(ld)           DO md=1,diagSt_nbActv(ld)
160             WRITE(msgBuf,'(I5,3A,I5,A,I5,A,I4,A)')             WRITE(msgBuf,'(I5,3A,2(I5,A))')
161       &       jSdiag(md,ld),' |', diagSt_Flds(md,ld),'|',iSdiag(md,ld),       &       jSdiag(md,ld),' |', diagSt_Flds(md,ld),'|',iSdiag(md,ld),
162       &       ' |', mSdiag(md,ld),' |'       &       ' |', mSdiag(md,ld),' |'
163             ipt = ABS(iSdiag(md,ld))             ipt = ABS(iSdiag(md,ld))
164             IF (ipt.NE.0) THEN             IF (ipt.NE.0) THEN
165              iLen = ILNBLNK(msgBuf)              iLen = ILNBLNK(msgBuf)
166              WRITE(msgBuf,'(A,1PE12.5,A)') msgBuf(1:iLen),              tmpBuf(1:iLen) = msgBuf(1:iLen)
167                WRITE(msgBuf,'(A,1PE12.5,A)') tmpBuf(1:iLen),
168       &                         qSdiag(0,0,ipt,1,1),' |'       &                         qSdiag(0,0,ipt,1,1),' |'
169             ENDIF             ENDIF
170             im = mSdiag(md,ld)             im = mSdiag(md,ld)
171             IF (im.NE.0) THEN             IF (im.NE.0) THEN
172              iLen = ILNBLNK(msgBuf)              iLen = ILNBLNK(msgBuf)
173              WRITE(msgBuf,'(A,1PE12.5,A)') msgBuf(1:iLen),              tmpBuf(1:iLen) = msgBuf(1:iLen)
174                WRITE(msgBuf,'(A,1PE12.5,A)') tmpBuf(1:iLen),
175       &                         qSdiag(0,0,im, 1,1),' |'       &                         qSdiag(0,0,im, 1,1),' |'
176             ENDIF             ENDIF
177             iLen = ILNBLNK(msgBuf)             iLen = ILNBLNK(msgBuf)
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22