/[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.3 by adcroft, Mon Mar 27 22:25:40 2000 UTC
# Line 17  C     == Global variables == Line 17  C     == Global variables ==
17  C     == Local variables ==  C     == Local variables ==
18        INTEGER bi, bj, I        INTEGER bi, bj, I
19        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
       CHARACTER*8 orientation  
20            
21  C      o For each tile print its excange statistics  C      o For each tile print its excange statistics
22         WRITE(msgBuf,'(A)')         WRITE(msgBuf,'(A)')
# Line 59  C        o X exchange stats. Line 58  C        o X exchange stats.
58           IF ( FLOAT(exchRecvXExchCount(1,bi,bj)) .NE. 0. ) THEN           IF ( FLOAT(exchRecvXExchCount(1,bi,bj)) .NE. 0. ) THEN
59            WRITE(msgBuf,'(A,A,1PE15.2)')            WRITE(msgBuf,'(A,A,1PE15.2)')
60       &    '//','            Avg. X spins =',       &    '//','            Avg. X spins =',
61       &    FLOAT(exchRecvXSpinCount(1,bi,bj))/FLOAT(exchRecvXExchCount(1,bi,bj))       &    FLOAT(exchRecvXSpinCount(1,bi,bj))/
62         &    FLOAT(exchRecvXExchCount(1,bi,bj))
63           ELSE           ELSE
64            WRITE(msgBuf,'(A,A,1PE15.2)')            WRITE(msgBuf,'(A,A,1PE15.2)')
65       &    '//','            Avg. X spins =',       &    '//','            Avg. X spins =',
# Line 87  C        o Y exchange stats. Line 87  C        o Y exchange stats.
87           IF ( FLOAT(exchRecvYExchCount(1,bi,bj)) .NE. 0. ) THEN           IF ( FLOAT(exchRecvYExchCount(1,bi,bj)) .NE. 0. ) THEN
88            WRITE(msgBuf,'(A,A,1PE15.2)')            WRITE(msgBuf,'(A,A,1PE15.2)')
89       &    '//','            Avg. Y spins =',       &    '//','            Avg. Y spins =',
90       &    FLOAT(exchRecvYSpinCount(1,bi,bj))/FLOAT(exchRecvYExchCount(1,bi,bj))       &    FLOAT(exchRecvYSpinCount(1,bi,bj))/
91         &    FLOAT(exchRecvYExchCount(1,bi,bj))
92           ELSE           ELSE
93            WRITE(msgBuf,'(A,A,1PE15.2)')            WRITE(msgBuf,'(A,A,1PE15.2)')
94       &    '//','            Avg. Y spins =',       &    '//','            Avg. Y spins =',
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22