/[MITgcm]/MITgcm/pkg/smooth/smooth_rhs.F
ViewVC logotype

Diff of /MITgcm/pkg/smooth/smooth_rhs.F

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

revision 1.3 by gforget, Tue Sep 4 14:37:18 2012 UTC revision 1.4 by gforget, Fri Jan 23 18:58:26 2015 UTC
# Line 327  c     /// end for r /// Line 327  c     /// end for r ///
327    
328  c these exchanges are crucial:  c these exchanges are crucial:
329        CALL EXCH_UV_XYZ_RL(fZon,fMer,.TRUE.,myThid)        CALL EXCH_UV_XYZ_RL(fZon,fMer,.TRUE.,myThid)
330        _EXCH_XYZ_RL ( fVerT, myThid )        CALL EXCH_XYZ_RL ( fVerT, myThid )
331    
332        DO bj=myByLo(myThid),myByHi(myThid)        DO bj=myByLo(myThid),myByHi(myThid)
333         DO bi=myBxLo(myThid),myBxHi(myThid)         DO bi=myBxLo(myThid),myBxHi(myThid)
# Line 363  c 3rd k loop: Divergence of fluxes Line 363  c 3rd k loop: Divergence of fluxes
363         ENDDO         ENDDO
364        ENDDO        ENDDO
365    
366        _EXCH_XYZ_RL ( gt_in , myThid )        CALL EXCH_XYZ_RL ( gt_in , myThid )
367    
368        END        END
369    
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22