/[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.4 by adcroft, Tue May 29 14:01:37 2001 UTC revision 1.5 by heimbach, Fri Jul 13 14:26:57 2001 UTC
# Line 18  C     == Global variables === Line 18  C     == Global variables ===
18  #include "SIZE.h"  #include "SIZE.h"
19  #include "EEPARAMS.h"  #include "EEPARAMS.h"
20  #include "DYNVARS.h"  #include "DYNVARS.h"
21    #include "TR1.h"
22    
23  C     == Routine arguments ==  C     == Routine arguments ==
24  C     myThid - Thread number for this instance of the routine.  C     myThid - Thread number for this instance of the routine.
# Line 36  c     _EXCH_XYZ_R8( vVel , myThid ) Line 37  c     _EXCH_XYZ_R8( vVel , myThid )
37        CALL EXCH_UV_XYZ_RL(uVel,vVel,.TRUE.,myThid)        CALL EXCH_UV_XYZ_RL(uVel,vVel,.TRUE.,myThid)
38        _EXCH_XYZ_R8( theta , myThid )        _EXCH_XYZ_R8( theta , myThid )
39        _EXCH_XYZ_R8( salt , myThid )        _EXCH_XYZ_R8( salt , myThid )
40          _EXCH_XYZ_R8( Tr1  , myThid )
41    
42  #ifdef INCLUDE_CD_CODE  #ifdef INCLUDE_CD_CODE
43  c     _EXCH_XYZ_R8( guCD , myThid )  c     _EXCH_XYZ_R8( guCD , myThid )
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22