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	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