eesupp/src/exch_init.F

      SUBROUTINE EXCH_INIT
C     /==========================================================\
C     | SUBROUTINE EXCH_INIT                                     |
C     | o Initialise model exchange data structures.             |
C     \==========================================================/
      IMPLICIT NONE
C     == Global data ==
#include "SIZE.h"
#include "EEPARAMS.h"
#include "EESUPPORT.h"
#include "EXCH.h"

C     == Routine arguments ==

C     == Local variables ==
C     bi, bj - Loop counters
      INTEGER bi, bj

      DO bj=1,nSy
       DO bi=1,nSx
        exchangeBufLevel(1,bi,bj)   = 1
        exchRecvXSpinCount(1,bi,bj) = 0
        exchRecvXSpinMax  (1,bi,bj) = 0
        exchRecvXSpinMin  (1,bi,bj) = 1000000000
        exchRecvYSpinCount(1,bi,bj) = 0
        exchRecvYSpinMax  (1,bi,bj) = 0
        exchRecvYSpinMin  (1,bi,bj) = 1000000000
       ENDDO
      ENDDO

      exchCollectStatistics = .TRUE.

      RETURN
      END
1	cnh	1.1	SUBROUTINE EXCH_INIT
2			C /==========================================================\
3			C \| SUBROUTINE EXCH_INIT \|
4			C \| o Initialise model exchange data structures. \|
5			C \==========================================================/
6			IMPLICIT NONE
7			C == Global data ==
8			#include "SIZE.h"
9			#include "EEPARAMS.h"
10			#include "EESUPPORT.h"
11			#include "EXCH.h"
12
13			C == Routine arguments ==
14
15			C == Local variables ==
16			C bi, bj - Loop counters
17			INTEGER bi, bj
18
19			DO bj=1,nSy
20			DO bi=1,nSx
21			exchangeBufLevel(1,bi,bj) = 1
22			exchRecvXSpinCount(1,bi,bj) = 0
23			exchRecvXSpinMax (1,bi,bj) = 0
24			exchRecvXSpinMin (1,bi,bj) = 1000000000
25			exchRecvYSpinCount(1,bi,bj) = 0
26			exchRecvYSpinMax (1,bi,bj) = 0
27			exchRecvYSpinMin (1,bi,bj) = 1000000000
28			ENDDO
29			ENDDO
30
31			exchCollectStatistics = .TRUE.
32
33			RETURN
34			END