/[MITgcm]/MITgcm/model/src/do_fields_blocking_exchanges.F
ViewVC logotype

Diff of /MITgcm/model/src/do_fields_blocking_exchanges.F

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

revision 1.6 by heimbach, Mon Jul 30 20:23:09 2001 UTC revision 1.7 by cnh, Wed Sep 26 18:09:14 2001 UTC
# Line 3  C $Name$ Line 3  C $Name$
3    
4  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
5    
6    CBOP
7    C     !ROUTINE: DO_FIELDS_BLOCKING_EXCHANGES
8    C     !INTERFACE:
9        SUBROUTINE DO_FIELDS_BLOCKING_EXCHANGES(myThid)        SUBROUTINE DO_FIELDS_BLOCKING_EXCHANGES(myThid)
10    C     !DESCRIPTION: \bv
11  C     /==========================================================\  C     /==========================================================\
12  C     | SUBROUTINE DO_FIELDS_BLOCKING_EXCHANGES                  |  C     | SUBROUTINE DO_FIELDS_BLOCKING_EXCHANGES                  |
13  C     | o Controlling routine for exchanging edge info.          |  C     | o Controlling routine for exchanging edge info.          |
# Line 12  C     | One key trick used in UV us that Line 16  C     | One key trick used in UV us that
16  C     | arrange our time-stepping loop so that we only need one  |  C     | arrange our time-stepping loop so that we only need one  |
17  C     | edge exchange for the explicit code per timestep.        |  C     | edge exchange for the explicit code per timestep.        |
18  C     \==========================================================/  C     \==========================================================/
19    C     \ev
20    C     !USES:
21        IMPLICIT NONE        IMPLICIT NONE
   
22  C     == Global variables ===  C     == Global variables ===
23  #include "SIZE.h"  #include "SIZE.h"
24  #include "EEPARAMS.h"  #include "EEPARAMS.h"
# Line 22  C     == Global variables === Line 27  C     == Global variables ===
27  #include "TR1.h"  #include "TR1.h"
28  #endif  #endif
29    
30    C     !INPUT/OUTPUT PARAMETERS:
31  C     == Routine arguments ==  C     == Routine arguments ==
32  C     myThid - Thread number for this instance of the routine.  C     myThid - Thread number for this instance of the routine.
33        INTEGER myThid        INTEGER myThid
34    CEOP
35    
36  c     _EXCH_XYZ_R8( Gu , myThid )  c     _EXCH_XYZ_R8( Gu , myThid )
37  c     _EXCH_XYZ_R8( Gv , myThid )  c     _EXCH_XYZ_R8( Gv , myThid )
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22