/[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.4 by cnh, Sun Feb 4 14:38:42 2001 UTC
# Line 1  Line 1 
1    C $Header$
2    C $Name$
3  #include "CPP_EEOPTIONS.h"  #include "CPP_EEOPTIONS.h"
4    
5        SUBROUTINE COMM_STATS        SUBROUTINE COMM_STATS
# Line 17  C     == Global variables == Line 19  C     == Global variables ==
19  C     == Local variables ==  C     == Local variables ==
20        INTEGER bi, bj, I        INTEGER bi, bj, I
21        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
       CHARACTER*8 orientation  
22            
23  C      o For each tile print its excange statistics  C      o For each tile print its excange statistics
24         WRITE(msgBuf,'(A)')         WRITE(msgBuf,'(A)')
# Line 59  C        o X exchange stats. Line 60  C        o X exchange stats.
60           IF ( FLOAT(exchRecvXExchCount(1,bi,bj)) .NE. 0. ) THEN           IF ( FLOAT(exchRecvXExchCount(1,bi,bj)) .NE. 0. ) THEN
61            WRITE(msgBuf,'(A,A,1PE15.2)')            WRITE(msgBuf,'(A,A,1PE15.2)')
62       &    '//','            Avg. X spins =',       &    '//','            Avg. X spins =',
63       &    FLOAT(exchRecvXSpinCount(1,bi,bj))/FLOAT(exchRecvXExchCount(1,bi,bj))       &    FLOAT(exchRecvXSpinCount(1,bi,bj))/
64         &    FLOAT(exchRecvXExchCount(1,bi,bj))
65           ELSE           ELSE
66            WRITE(msgBuf,'(A,A,1PE15.2)')            WRITE(msgBuf,'(A,A,1PE15.2)')
67       &    '//','            Avg. X spins =',       &    '//','            Avg. X spins =',
# Line 87  C        o Y exchange stats. Line 89  C        o Y exchange stats.
89           IF ( FLOAT(exchRecvYExchCount(1,bi,bj)) .NE. 0. ) THEN           IF ( FLOAT(exchRecvYExchCount(1,bi,bj)) .NE. 0. ) THEN
90            WRITE(msgBuf,'(A,A,1PE15.2)')            WRITE(msgBuf,'(A,A,1PE15.2)')
91       &    '//','            Avg. Y spins =',       &    '//','            Avg. Y spins =',
92       &    FLOAT(exchRecvYSpinCount(1,bi,bj))/FLOAT(exchRecvYExchCount(1,bi,bj))       &    FLOAT(exchRecvYSpinCount(1,bi,bj))/
93         &    FLOAT(exchRecvYExchCount(1,bi,bj))
94           ELSE           ELSE
95            WRITE(msgBuf,'(A,A,1PE15.2)')            WRITE(msgBuf,'(A,A,1PE15.2)')
96       &    '//','            Avg. Y spins =',       &    '//','            Avg. Y spins =',
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22