/[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.24 by jmc, Fri Aug 17 21:19:26 2007 UTC revision 1.25 by jmc, Tue Apr 28 18:01:14 2009 UTC
# Line 44  C-    Apply Exchanges on dynamics state Line 44  C-    Apply Exchanges on dynamics state
44        IF ( .NOT.staggerTimeStep .OR. .NOT.useMultiDimAdvec ) THEN        IF ( .NOT.staggerTimeStep .OR. .NOT.useMultiDimAdvec ) THEN
45         CALL EXCH_UV_XYZ_RL(uVel,vVel,.TRUE.,myThid)         CALL EXCH_UV_XYZ_RL(uVel,vVel,.TRUE.,myThid)
46         IF ( .NOT.implicitIntGravWave )         IF ( .NOT.implicitIntGravWave )
47       & _EXCH_XYZ_R8( wVel , myThid )       & _EXCH_XYZ_RL( wVel , myThid )
48        ENDIF        ENDIF
49  c     IF ( exactConserv .AND. implicDiv2Dflow .NE. 0. _d 0)  c     IF ( exactConserv .AND. implicDiv2Dflow .NE. 0. _d 0)
50  c    & _EXCH_XY_R8( etaN , myThid )  c    & _EXCH_XY_RL( etaN , myThid )
51        IF ( .NOT.implicitIntGravWave ) THEN        IF ( .NOT.implicitIntGravWave ) THEN
52         _EXCH_XYZ_R8( theta, myThid )         _EXCH_XYZ_RL( theta, myThid )
53         _EXCH_XYZ_R8( salt , myThid )         _EXCH_XYZ_RL( salt , myThid )
54        ENDIF        ENDIF
55    
56  #ifdef ALLOW_GENERIC_ADVDIFF  #ifdef ALLOW_GENERIC_ADVDIFF
Legend:
Removed from v.1.24  
changed lines
  Added in v.1.25
  ViewVC Help
Powered by ViewVC 1.1.22