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

Diff of /MITgcm/pkg/mom_fluxform/mom_fluxform.F

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

revision 1.21 by jmc, Fri Oct 29 16:25:37 2004 UTC revision 1.22 by jmc, Wed Jun 22 00:32:15 2005 UTC
# Line 385  C--   Tendency is minus divergence of th Line 385  C--   Tendency is minus divergence of th
385  #endif  #endif
386       &  *(fZon(i,j  )          - fZon(i-1,j)       &  *(fZon(i,j  )          - fZon(i-1,j)
387       &   +fMer(i,j+1)          - fMer(i  ,j)       &   +fMer(i,j+1)          - fMer(i  ,j)
388       &   +fVerU(i,j,kUp)*rkFac - fVerU(i,j,kDown)*rkFac       &   -fVerU(i,j,kUp)*rkSign + fVerU(i,j,kDown)*rkSign
389       &   )       &   )
390       &  - phxFac*dPhiHydX(i,j)       &  - phxFac*dPhiHydX(i,j)
391         ENDDO         ENDDO
# Line 546  C--   Tendency is minus divergence of th Line 546  C--   Tendency is minus divergence of th
546  #endif  #endif
547       &  *(fZon(i+1,j)          - fZon(i,j  )       &  *(fZon(i+1,j)          - fZon(i,j  )
548       &   +fMer(i,j  )          - fMer(i,j-1)       &   +fMer(i,j  )          - fMer(i,j-1)
549       &   +fVerV(i,j,kUp)*rkFac - fVerV(i,j,kDown)*rkFac       &   -fVerV(i,j,kUp)*rkSign + fVerV(i,j,kDown)*rkSign
550       &   )       &   )
551       &  - phyFac*dPhiHydY(i,j)       &  - phyFac*dPhiHydY(i,j)
552         ENDDO         ENDDO
Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22
  ViewVC Help
Powered by ViewVC 1.1.22