/[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.10 by jmc, Tue Feb 18 15:26:07 2003 UTC revision 1.11 by edhill, Thu Oct 9 04:19:18 2003 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3    
4    #include "PACKAGES_CONFIG.h"
5  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
6    
7  CBOP  CBOP
# Line 53  c     _EXCH_XYZ_R8( vVel , myThid ) Line 54  c     _EXCH_XYZ_R8( vVel , myThid )
54        _EXCH_XYZ_R8( salt , myThid )        _EXCH_XYZ_R8( salt , myThid )
55        ENDIF        ENDIF
56  #ifdef ALLOW_PASSIVE_TRACER  #ifdef ALLOW_PASSIVE_TRACER
57    ceh3 needs an IF ( usePASSIVE_TRACER ) THEN
58        _EXCH_XYZ_R8( Tr1  , myThid )        _EXCH_XYZ_R8( Tr1  , myThid )
59  #endif  #endif
60    
# Line 66  c     _EXCH_XYZ_R8( gvCD , myThid ) Line 68  c     _EXCH_XYZ_R8( gvCD , myThid )
68       & _EXCH_XYZ_RL( totPhiHyd , myThid )       & _EXCH_XYZ_RL( totPhiHyd , myThid )
69    
70  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
71    ceh3 needs an IF ( usePTRACER ) THEN
72        CALL PTRACERS_FIELDS_BLOCKING_EXCHANGES(myThid)        CALL PTRACERS_FIELDS_BLOCKING_EXCHANGES(myThid)
73  #endif /* ALLOW PTRACERS */  #endif /* ALLOW PTRACERS */
74    
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22