eesupp/src/exch_init.F

d4318425b4 Patr*0001 #include "CPP_EEOPTIONS.h"
                0002
4c563c2ee9 Chri*0003 CBOP
                0004 C     !ROUTINE: EXCH_INIT
                0005
                0006 C     !INTERFACE:
048ce7bdb7 Chri*0007       SUBROUTINE EXCH_INIT
4c563c2ee9 Chri*0008
                0009 C     !DESCRIPTION:
                0010 C     *==========================================================*
e5f1176556 Jean*0011 C     | SUBROUTINE EXCH\_INIT
                0012 C     | o Initialise WRAPPER exchange data structures.
4c563c2ee9 Chri*0013 C     *==========================================================*
                0014
                0015 C     !USES:
e5f1176556 Jean*0016       IMPLICIT NONE
4c563c2ee9 Chri*0017 C     == Global variables ==
048ce7bdb7 Chri*0018 #include "SIZE.h"
                0019 #include "EEPARAMS.h"
                0020 #include "EESUPPORT.h"
                0021 #include "EXCH.h"
                0022
4c563c2ee9 Chri*0023 C     !LOCAL VARIABLES:
048ce7bdb7 Chri*0024 C     == Local variables ==
e5f1176556 Jean*0025 C     bi, bj :: Tile indices
048ce7bdb7 Chri*0026       INTEGER bi, bj
4c563c2ee9 Chri*0027 CEOP
048ce7bdb7 Chri*0028
                0029       DO bj=1,nSy
                0030        DO bi=1,nSx
e5f1176556 Jean*0031         exchangeBufLevel  (1,bi,bj) = 1
048ce7bdb7 Chri*0032         exchRecvXSpinCount(1,bi,bj) = 0
                0033         exchRecvXSpinMax  (1,bi,bj) = 0
                0034         exchRecvXSpinMin  (1,bi,bj) = 1000000000
                0035         exchRecvYSpinCount(1,bi,bj) = 0
                0036         exchRecvYSpinMax  (1,bi,bj) = 0
                0037         exchRecvYSpinMin  (1,bi,bj) = 1000000000
                0038        ENDDO
                0039       ENDDO
                0040
                0041       RETURN
                0042       END