/[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.3 by cnh, Sun Feb 4 14:38:43 2001 UTC revision 1.4 by cnh, Fri Sep 21 03:54:34 2001 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  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:
   
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.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22