/[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.5 - (show annotations) (download)
Thu Nov 13 14:40:14 2003 UTC (20 years, 6 months ago) by heimbach
Branch: MAIN
CVS Tags: checkpoint52l_pre, hrcube4, hrcube5, checkpoint52d_pre, checkpoint52j_pre, checkpoint52l_post, checkpoint52k_post, checkpoint52f_post, checkpoint52i_pre, hrcube_1, hrcube_2, hrcube_3, checkpoint52e_pre, checkpoint52e_post, checkpoint52b_pre, checkpoint52b_post, checkpoint52c_post, checkpoint52f_pre, checkpoint52d_post, checkpoint52i_post, checkpoint52h_pre, checkpoint52j_post, branch-netcdf, checkpoint52a_post
Branch point for: netcdf-sm0
Changes since 1.4: +3 -1 lines 
o added missing header CPP_EEOPTIONS.h
o added TARGET_NEC_VECTOR
  (hurrikan.dkrz.de)
1 C $Header: /u/gcmpack/MITgcm/eesupp/src/exch_init.F,v 1.4 2001/09/21 03:54:34 cnh Exp $
2 C $Name: $
3
4 #include "CPP_EEOPTIONS.h"
5
6 CBOP
7 C !ROUTINE: EXCH_INIT
8
9 C !INTERFACE:
10 SUBROUTINE EXCH_INIT
11 IMPLICIT NONE
12
13 C !DESCRIPTION:
14 C *==========================================================*
15 C | SUBROUTINE EXCH_INIT |
16 C | o Initialise WRAPPER exchange data structures. |
17 C *==========================================================*
18
19 C !USES:
20 C == Global variables ==
21 #include "SIZE.h"
22 #include "EEPARAMS.h"
23 #include "EESUPPORT.h"
24 #include "EXCH.h"
25
26 C !LOCAL VARIABLES:
27 C == Local variables ==
28 C bi, bj - Loop counters
29 INTEGER bi, bj
30 CEOP
31
32 DO bj=1,nSy
33 DO bi=1,nSx
34 exchangeBufLevel(1,bi,bj) = 1
35 exchRecvXSpinCount(1,bi,bj) = 0
36 exchRecvXSpinMax (1,bi,bj) = 0
37 exchRecvXSpinMin (1,bi,bj) = 1000000000
38 exchRecvYSpinCount(1,bi,bj) = 0
39 exchRecvYSpinMax (1,bi,bj) = 0
40 exchRecvYSpinMin (1,bi,bj) = 1000000000
41 ENDDO
42 ENDDO
43
44 exchCollectStatistics = .TRUE.
45
46 RETURN
47 END
  ViewVC Help
Powered by ViewVC 1.1.22