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

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

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

revision 1.2 by adcroft, Tue May 29 14:01:39 2001 UTC revision 1.3 by jmc, Tue Oct 30 23:11:51 2001 UTC
# Line 64  c    &                             viscA Line 64  c    &                             viscA
64  c    &   -recip_hFacW(i,j,k,bi,bj)*viscAh*( Zip-Zij ) )  c    &   -recip_hFacW(i,j,k,bi,bj)*viscAh*( Zip-Zij ) )
65          uD2 = viscAh*(          uD2 = viscAh*(
66       &               cosFacU(j,bi,bj)*( Dij-Dmj )*recip_DXC(i,j,bi,bj)       &               cosFacU(j,bi,bj)*( Dij-Dmj )*recip_DXC(i,j,bi,bj)
67       &      -recip_hFacW(i,j,k,bi,bj)*( Zip-Zij )*recip_DYU(i,j,bi,bj) )       &      -recip_hFacW(i,j,k,bi,bj)*( Zip-Zij )*recip_DYG(i,j,bi,bj) )
68    
69  c       vD2 = recip_rAs(i,j,bi,bj)*(  c       vD2 = recip_rAs(i,j,bi,bj)*(
70  c    &    recip_hFacS(i,j,k,bi,bj)*viscAh*( (Zpj-Zij)*cosFacV(j,bi,bj) )  c    &    recip_hFacS(i,j,k,bi,bj)*viscAh*( (Zpj-Zij)*cosFacV(j,bi,bj) )
# Line 73  c       vD2 = recip_rAs(i,j,bi,bj)*( Line 73  c       vD2 = recip_rAs(i,j,bi,bj)*(
73  c    &    recip_hFacS(i,j,k,bi,bj)*viscAh*( (Zpj-Zij)*cosFacV(j,bi,bj) )  c    &    recip_hFacS(i,j,k,bi,bj)*viscAh*( (Zpj-Zij)*cosFacV(j,bi,bj) )
74  c    &   +                         viscAh*( Dij-Dim ) )  c    &   +                         viscAh*( Dij-Dim ) )
75          vD2 = viscAh*(          vD2 = viscAh*(
76       &       recip_hFacS(i,j,k,bi,bj)*( Zpj-Zij )*recip_DXV(i,j,bi,bj)       &       recip_hFacS(i,j,k,bi,bj)*( Zpj-Zij )*recip_DXG(i,j,bi,bj)
77       &                                           *cosFacV(j,bi,bj)       &                                           *cosFacV(j,bi,bj)
78       &                               +( Dij-Dim )*recip_DYC(i,j,bi,bj) )       &                               +( Dij-Dim )*recip_DYC(i,j,bi,bj) )
79    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22