/[MITgcm]/MITgcm/pkg/mom_vecinv/mom_vecinv.F
ViewVC logotype

Diff of /MITgcm/pkg/mom_vecinv/mom_vecinv.F

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

revision 1.66 by jmc, Sun Mar 18 22:24:01 2012 UTC revision 1.67 by jmc, Mon Mar 19 14:39:53 2012 UTC
# Line 360  C     Combine fluxes Line 360  C     Combine fluxes
360         ENDDO         ENDDO
361    
362  C--   Tendency is minus divergence of the fluxes  C--   Tendency is minus divergence of the fluxes
363         DO j=2-OLy,sNy+OLy-1         DO j=jMin,jMax
364          DO i=2-OLx,sNx+OLx-1          DO i=iMin,iMax
365           guDiss(i,j) = guDiss(i,j)           guDiss(i,j) = guDiss(i,j)
366       &   -_recip_hFacW(i,j,k,bi,bj)*recip_drF(k)       &   -_recip_hFacW(i,j,k,bi,bj)*recip_drF(k)
367       &   *recip_rAw(i,j,bi,bj)       &   *recip_rAw(i,j,bi,bj)
Legend:
Removed from v.1.66  
changed lines
  Added in v.1.67
  ViewVC Help
Powered by ViewVC 1.1.22