/[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.19 by edhill, Tue Nov 2 19:09:55 2004 UTC revision 1.20 by jmc, Thu Feb 23 20:55:48 2006 UTC
# Line 48  c     _EXCH_XYZ_R8( vVel , myThid ) Line 48  c     _EXCH_XYZ_R8( vVel , myThid )
48  #ifndef ALLLOW_OFFLINE  #ifndef ALLLOW_OFFLINE
49        IF ( .NOT.staggerTimeStep .OR. .NOT.useMultiDimAdvec ) THEN        IF ( .NOT.staggerTimeStep .OR. .NOT.useMultiDimAdvec ) THEN
50         CALL EXCH_UV_XYZ_RL(uVel,vVel,.TRUE.,myThid)         CALL EXCH_UV_XYZ_RL(uVel,vVel,.TRUE.,myThid)
51         _EXCH_XYZ_R8( wVel , myThid )         IF ( .NOT.implicitIntGravWave )
52         & _EXCH_XYZ_R8( wVel , myThid )
53        ENDIF        ENDIF
54  c     IF ( exactConserv .AND. implicDiv2Dflow .NE. 0. _d 0)  c     IF ( exactConserv .AND. implicDiv2Dflow .NE. 0. _d 0)
55  c    & _EXCH_XY_R8( etaN , myThid )  c    & _EXCH_XY_R8( etaN , myThid )
56        _EXCH_XYZ_R8( theta, myThid )        IF ( .NOT.implicitIntGravWave ) THEN
57        _EXCH_XYZ_R8( salt , myThid )         _EXCH_XYZ_R8( theta, myThid )
58           _EXCH_XYZ_R8( salt , myThid )
59          ENDIF
60  #endif  #endif
61    
62  #ifndef ALLOW_OFFLINE  #ifndef ALLOW_OFFLINE
Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20
  ViewVC Help
Powered by ViewVC 1.1.22