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

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

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

revision 1.5 by jmc, Mon Jun 20 23:23:00 2005 UTC revision 1.6 by jmc, Sat Oct 1 19:17:17 2005 UTC
# Line 88  C-      using SadournyCoriolis discretiz Line 88  C-      using SadournyCoriolis discretiz
88  C-      not using SadournyCoriolis discretization:  C-      not using SadournyCoriolis discretization:
89    
90           uBarXY=0.25*(           uBarXY=0.25*(
91       &       uFld( i , j )*dyG( i , j ,bi,bj)*hFacW( i , j ,k,bi,bj)       &      (uFld( i , j )*dyG( i , j ,bi,bj)*hFacW( i , j ,k,bi,bj)
92       &      +uFld(i+1, j )*dyG(i+1, j ,bi,bj)*hFacW(i+1, j ,k,bi,bj)       &      +uFld( i ,j-1)*dyG( i ,j-1,bi,bj)*hFacW( i ,j-1,k,bi,bj))
93       &      +uFld( i ,j-1)*dyG( i ,j-1,bi,bj)*hFacW( i ,j-1,k,bi,bj)       &     +(uFld(i+1, j )*dyG(i+1, j ,bi,bj)*hFacW(i+1, j ,k,bi,bj)
94       &      +uFld(i+1,j-1)*dyG(i+1,j-1,bi,bj)*hFacW(i+1,j-1,k,bi,bj))       &      +uFld(i+1,j-1)*dyG(i+1,j-1,bi,bj)*hFacW(i+1,j-1,k,bi,bj))
95         &               )
96           IF (upwindVort3) THEN           IF (upwindVort3) THEN
97            IF (uBarXY.GT.0.) THEN            IF (uBarXY.GT.0.) THEN
98             vort3v=omega3(i,j)*r_hFacZ(i,j)             vort3v=omega3(i,j)*r_hFacZ(i,j)
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22