/[MITgcm]/MITgcm/eesupp/src/exch_init.F
ViewVC logotype

Contents of /MITgcm/eesupp/src/exch_init.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph

Revision 1.3 - (show annotations) (download)
Sun Feb 4 14:38:43 2001 UTC (23 years, 3 months ago) by cnh
Branch: MAIN
CVS Tags: checkpoint40pre3, checkpoint40pre1, checkpoint40pre7, checkpoint40pre6, checkpoint40pre9, checkpoint40pre8, checkpoint38, checkpoint40pre2, checkpoint40pre4, pre38tag1, c37_adj, pre38-close, checkpoint39, checkpoint37, checkpoint36, checkpoint35, checkpoint40pre5, checkpoint40
Branch point for: pre38
Changes since 1.2: +2 -0 lines 
Made sure each .F and .h file had
the CVS keywords Header and Name at its start.
Most had header but very few currently have Name, so
lots of changes!
1 C $Header: $
2 C $Name: $
3 SUBROUTINE EXCH_INIT
4 C /==========================================================\
5 C | SUBROUTINE EXCH_INIT |
6 C | o Initialise model exchange data structures. |
7 C \==========================================================/
8 IMPLICIT NONE
9 C == Global data ==
10 #include "SIZE.h"
11 #include "EEPARAMS.h"
12 #include "EESUPPORT.h"
13 #include "EXCH.h"
14
15 C == Routine arguments ==
16
17 C == Local variables ==
18 C bi, bj - Loop counters
19 INTEGER bi, bj
20
21 DO bj=1,nSy
22 DO bi=1,nSx
23 exchangeBufLevel(1,bi,bj) = 1
24 exchRecvXSpinCount(1,bi,bj) = 0
25 exchRecvXSpinMax (1,bi,bj) = 0
26 exchRecvXSpinMin (1,bi,bj) = 1000000000
27 exchRecvYSpinCount(1,bi,bj) = 0
28 exchRecvYSpinMax (1,bi,bj) = 0
29 exchRecvYSpinMin (1,bi,bj) = 1000000000
30 ENDDO
31 ENDDO
32
33 exchCollectStatistics = .TRUE.
34
35 RETURN
36 END
  ViewVC Help
Powered by ViewVC 1.1.22