/[MITgcm]/MITgcm/eesupp/src/comm_stats.F
ViewVC logotype

Diff of /MITgcm/eesupp/src/comm_stats.F

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

revision 1.1 by cnh, Tue Sep 29 18:53:44 1998 UTC revision 1.2 by cnh, Wed Oct 28 03:11:33 1998 UTC
# Line 59  C        o X exchange stats. Line 59  C        o X exchange stats.
59           IF ( FLOAT(exchRecvXExchCount(1,bi,bj)) .NE. 0. ) THEN           IF ( FLOAT(exchRecvXExchCount(1,bi,bj)) .NE. 0. ) THEN
60            WRITE(msgBuf,'(A,A,1PE15.2)')            WRITE(msgBuf,'(A,A,1PE15.2)')
61       &    '//','            Avg. X spins =',       &    '//','            Avg. X spins =',
62       &    FLOAT(exchRecvXSpinCount(1,bi,bj))/FLOAT(exchRecvXExchCount(1,bi,bj))       &    FLOAT(exchRecvXSpinCount(1,bi,bj))/
63         &    FLOAT(exchRecvXExchCount(1,bi,bj))
64           ELSE           ELSE
65            WRITE(msgBuf,'(A,A,1PE15.2)')            WRITE(msgBuf,'(A,A,1PE15.2)')
66       &    '//','            Avg. X spins =',       &    '//','            Avg. X spins =',
# Line 87  C        o Y exchange stats. Line 88  C        o Y exchange stats.
88           IF ( FLOAT(exchRecvYExchCount(1,bi,bj)) .NE. 0. ) THEN           IF ( FLOAT(exchRecvYExchCount(1,bi,bj)) .NE. 0. ) THEN
89            WRITE(msgBuf,'(A,A,1PE15.2)')            WRITE(msgBuf,'(A,A,1PE15.2)')
90       &    '//','            Avg. Y spins =',       &    '//','            Avg. Y spins =',
91       &    FLOAT(exchRecvYSpinCount(1,bi,bj))/FLOAT(exchRecvYExchCount(1,bi,bj))       &    FLOAT(exchRecvYSpinCount(1,bi,bj))/
92         &    FLOAT(exchRecvYExchCount(1,bi,bj))
93           ELSE           ELSE
94            WRITE(msgBuf,'(A,A,1PE15.2)')            WRITE(msgBuf,'(A,A,1PE15.2)')
95       &    '//','            Avg. Y spins =',       &    '//','            Avg. Y spins =',
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22