/[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.4 by jmc, Mon Jun 5 18:17:22 2006 UTC revision 1.5 by jmc, Sun Dec 24 20:20:59 2006 UTC
# Line 97  C     write a summary diagnostics state: Line 97  C     write a summary diagnostics state:
97           WRITE(dUnit,'(I4,A,I4,A,2F17.6,A,I4)')           WRITE(dUnit,'(I4,A,I4,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           DO k1=1,nlevels(ld),50           IF ( fflags(ld)(2:2).EQ.'P' ) THEN
101            k2 = MIN(nlevels(ld),k1+49)            DO k1=1,nlevels(ld),10
102            WRITE(dUnit,'(A,50I4)')' levels:',(nint(levs(k,ld)),k=k1,k2)             k2 = MIN(nlevels(ld),k1+9)
103           ENDDO             WRITE(dUnit,'(A,1P10E10.3)')' interp:', (levs(k,ld),k=k1,k2)
104              ENDDO
105             ELSE
106              DO k1=1,nlevels(ld),25
107               k2 = MIN(nlevels(ld),k1+24)
108               WRITE(dUnit,'(A,25I4)')' levels:',(NINT(levs(k,ld)),k=k1,k2)
109              ENDDO
110             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,'(I5,3A,2(I5,A),I4,A)')
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22