--- MITgcm/eesupp/src/comm_stats.F	1998/09/29 18:53:44	1.1
+++ MITgcm/eesupp/src/comm_stats.F	2001/02/04 14:38:42	1.4
@@ -1,3 +1,5 @@
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/eesupp/src/comm_stats.F,v 1.4 2001/02/04 14:38:42 cnh Exp $
+C $Name:  $
 #include "CPP_EEOPTIONS.h"
 
       SUBROUTINE COMM_STATS
@@ -17,7 +19,6 @@
 C     == Local variables ==
       INTEGER bi, bj, I
       CHARACTER*(MAX_LEN_MBUF) msgBuf
-      CHARACTER*8 orientation
     
 C      o For each tile print its excange statistics
        WRITE(msgBuf,'(A)')
@@ -59,7 +60,8 @@
          IF ( FLOAT(exchRecvXExchCount(1,bi,bj)) .NE. 0. ) THEN
           WRITE(msgBuf,'(A,A,1PE15.2)')
      &    '//','            Avg. X spins =',
-     &    FLOAT(exchRecvXSpinCount(1,bi,bj))/FLOAT(exchRecvXExchCount(1,bi,bj))
+     &    FLOAT(exchRecvXSpinCount(1,bi,bj))/
+     &    FLOAT(exchRecvXExchCount(1,bi,bj))
          ELSE
           WRITE(msgBuf,'(A,A,1PE15.2)')
      &    '//','            Avg. X spins =',
@@ -87,7 +89,8 @@
          IF ( FLOAT(exchRecvYExchCount(1,bi,bj)) .NE. 0. ) THEN
           WRITE(msgBuf,'(A,A,1PE15.2)')
      &    '//','            Avg. Y spins =',
-     &    FLOAT(exchRecvYSpinCount(1,bi,bj))/FLOAT(exchRecvYExchCount(1,bi,bj))
+     &    FLOAT(exchRecvYSpinCount(1,bi,bj))/
+     &    FLOAT(exchRecvYExchCount(1,bi,bj))
          ELSE
           WRITE(msgBuf,'(A,A,1PE15.2)')
      &    '//','            Avg. Y spins =',