/[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.5 by heimbach, Fri Jul 13 14:26:57 2001 UTC revision 1.6 by heimbach, Mon Jul 30 20:23:09 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    #ifdef ALLOW_PASSIVE_TRACER
22  #include "TR1.h"  #include "TR1.h"
23    #endif
24    
25  C     == Routine arguments ==  C     == Routine arguments ==
26  C     myThid - Thread number for this instance of the routine.  C     myThid - Thread number for this instance of the routine.
# Line 37  c     _EXCH_XYZ_R8( vVel , myThid ) Line 39  c     _EXCH_XYZ_R8( vVel , myThid )
39        CALL EXCH_UV_XYZ_RL(uVel,vVel,.TRUE.,myThid)        CALL EXCH_UV_XYZ_RL(uVel,vVel,.TRUE.,myThid)
40        _EXCH_XYZ_R8( theta , myThid )        _EXCH_XYZ_R8( theta , myThid )
41        _EXCH_XYZ_R8( salt , myThid )        _EXCH_XYZ_R8( salt , myThid )
42    #ifdef ALLOW_PASSIVE_TRACER
43        _EXCH_XYZ_R8( Tr1  , myThid )        _EXCH_XYZ_R8( Tr1  , myThid )
44    #endif
45    
46  #ifdef INCLUDE_CD_CODE  #ifdef INCLUDE_CD_CODE
47  c     _EXCH_XYZ_R8( guCD , myThid )  c     _EXCH_XYZ_R8( guCD , myThid )
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22