/[MITgcm]/MITgcm_contrib/gael/pkg/smooth2/smooth_rhs.F
ViewVC logotype

Diff of /MITgcm_contrib/gael/pkg/smooth2/smooth_rhs.F

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

revision 1.1 by gforget, Sun Oct 25 21:24:04 2009 UTC revision 1.2 by gforget, Mon Feb 15 19:18:55 2010 UTC
# Line 333  c     /// end for r /// Line 333  c     /// end for r ///
333        ENDDO        ENDDO
334    
335  c these exchanges are crucial:  c these exchanges are crucial:
336        _EXCH_XYZ_RL ( fZon , myThid )        CALL EXCH_UV_XYZ_RL(fZon,fMer,.TRUE.,myThid)
       _EXCH_XYZ_RL ( fMer , myThid )  
337        _EXCH_XYZ_RL ( fVerT, myThid )        _EXCH_XYZ_RL ( fVerT, myThid )
338    
339        DO bj=myByLo(myThid),myByHi(myThid)        DO bj=myByLo(myThid),myByHi(myThid)
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22