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

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

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

revision 1.3 by cnh, Mon Jun 8 21:43:01 1998 UTC revision 1.4 by adcroft, Tue Jun 9 15:58:36 1998 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2    
3  #include "CPP_EEOPTIONS.h"  #include "CPP_OPTIONS.h"
4    
5        SUBROUTINE DO_GTERM_BLOCKING_EXCHANGES(myThid)        SUBROUTINE DO_GTERM_BLOCKING_EXCHANGES(myThid)
6  C     /==========================================================\  C     /==========================================================\
# Line 37  C     == Routine arguments == Line 37  C     == Routine arguments ==
37  C     myThid - Thread number for this instance of the routine.  C     myThid - Thread number for this instance of the routine.
38        INTEGER myThid        INTEGER myThid
39    
40        _EXCH_XYZ_R8( Gu , myThid )  c     _EXCH_XYZ_R8( Gu , myThid )
41        _EXCH_XYZ_R8( Gv , myThid )  c     _EXCH_XYZ_R8( Gv , myThid )
42        _EXCH_XYZ_R8( Gt , myThid )  c     _EXCH_XYZ_R8( Gt , myThid )
43          _EXCH_XYZ_R8( gUNm1 , myThid )
44          _EXCH_XYZ_R8( gVNm1 , myThid )
45    c     _EXCH_XYZ_R8( gTNm1 , myThid )
46          _EXCH_XYZ_R8( theta , myThid )
47    c     _EXCH_XYZ_R8( uVel , myThid )
48    c     _EXCH_XYZ_R8( vVel , myThid )
49  #ifdef ALLOW_CD  #ifdef ALLOW_CD
50        _EXCH_XYZ_R8( guCD , myThid )        _EXCH_XYZ_R8( guCD , myThid )
51        _EXCH_XYZ_R8( gvCD , myThid )        _EXCH_XYZ_R8( gvCD , myThid )
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22