/[MITgcm]/MITgcm/model/src/momentum_correction_step.F
ViewVC logotype

Diff of /MITgcm/model/src/momentum_correction_step.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.6 by heimbach, Fri Feb 13 21:56:48 2009 UTC revision 1.7 by jmc, Tue Apr 28 18:01:14 2009 UTC
# Line 180  C--    End of 2nd bi,bj loop Line 180  C--    End of 2nd bi,bj loop
180        ENDDO        ENDDO
181    
182        IF ( exactConserv .AND. implicDiv2Dflow .NE. 0. _d 0)        IF ( exactConserv .AND. implicDiv2Dflow .NE. 0. _d 0)
183       & _EXCH_XY_R8( etaN , myThid )       & _EXCH_XY_RL( etaN , myThid )
184        IF ( implicitIntGravWave )        IF ( implicitIntGravWave )
185       & _EXCH_XYZ_R8( wVel , myThid )       & _EXCH_XYZ_RL( wVel , myThid )
186    
187        RETURN        RETURN
188        END        END
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22