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

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

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

Revision 1.3 - (hide annotations) (download)
Sun Feb 4 14:38:43 2001 UTC (23 years, 2 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 cnh 1.3 C $Header: $
2     C $Name: $
3 cnh 1.1 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