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

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

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

revision 1.1 by cnh, Tue Sep 29 18:53:44 1998 UTC revision 1.4 by cnh, Fri Sep 21 03:54:34 2001 UTC
# Line 1  Line 1 
1    C $Header$
2    C $Name$
3    
4    CBOP
5    C     !ROUTINE: EXCH_INIT
6    
7    C     !INTERFACE:
8        SUBROUTINE EXCH_INIT        SUBROUTINE EXCH_INIT
 C     /==========================================================\  
 C     | SUBROUTINE EXCH_INIT                                     |  
 C     | o Initialise model exchange data structures.             |  
 C     \==========================================================/  
9        IMPLICIT NONE        IMPLICIT NONE
10  C     == Global data ==  
11    C     !DESCRIPTION:
12    C     *==========================================================*
13    C     | SUBROUTINE EXCH_INIT                                     |
14    C     | o Initialise WRAPPER exchange data structures.           |
15    C     *==========================================================*
16    
17    C     !USES:
18    C     == Global variables ==
19  #include "SIZE.h"  #include "SIZE.h"
20  #include "EEPARAMS.h"  #include "EEPARAMS.h"
21  #include "EESUPPORT.h"  #include "EESUPPORT.h"
22  #include "EXCH.h"  #include "EXCH.h"
23    
24  C     == Routine arguments ==  C     !LOCAL VARIABLES:
 C     myThid - Thread number of this instance of the routine  
       INTEGER myThid  
   
25  C     == Local variables ==  C     == Local variables ==
26  C     bi, bj - Loop counters  C     bi, bj - Loop counters
27        INTEGER bi, bj        INTEGER bi, bj
28    CEOP
29    
30        DO bj=1,nSy        DO bj=1,nSy
31         DO bi=1,nSx         DO bi=1,nSx
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22