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

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

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

revision 1.1 by gforget, Tue Jun 19 18:23:19 2007 UTC revision 1.2 by gforget, Fri Oct 16 03:36:34 2009 UTC
# Line 80  c 1rst k loop: initialization Line 80  c 1rst k loop: initialization
80        ENDDO        ENDDO
81          ENDDO          ENDDO
82    
83  cnot needed et !!!!!!!!bibj      _EXCH_XYZ_R8( gt_in ,    myThid )  cnot needed et !!!!!!!!bibj      _EXCH_XYZ_RL( gt_in ,    myThid )
84    
85            iMin = 1-OLx+1            iMin = 1-OLx+1
86            iMax = sNx+OLx-1            iMax = sNx+OLx-1
# Line 329  c     /// end for r /// Line 329  c     /// end for r ///
329        ENDDO        ENDDO
330    
331  c these exchanges are crucial... two bibj loops  c these exchanges are crucial... two bibj loops
332        _EXCH_XYZ_R8 ( fZon , myThid )        _EXCH_XYZ_RL ( fZon , myThid )
333        _EXCH_XYZ_R8 ( fMer , myThid )        _EXCH_XYZ_RL ( fMer , myThid )
334        _EXCH_XYZ_R8 ( fVerT, myThid )        _EXCH_XYZ_RL ( fVerT, myThid )
335    
336        DO bj=myByLo(myThid),myByHi(myThid)        DO bj=myByLo(myThid),myByHi(myThid)
337         DO bi=myBxLo(myThid),myBxHi(myThid)         DO bi=myBxLo(myThid),myBxHi(myThid)
# Line 364  c 3rd k loop: Divergence of fluxes Line 364  c 3rd k loop: Divergence of fluxes
364         ENDDO         ENDDO
365        ENDDO        ENDDO
366    
367        _EXCH_XYZ_R8 ( gt_in , myThid )        _EXCH_XYZ_RL ( gt_in , myThid )
368    
369        END        END
370    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22