/[MITgcm]/MITgcm/pkg/mom_common/mom_calc_tension.F
ViewVC logotype

Diff of /MITgcm/pkg/mom_common/mom_calc_tension.F

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

revision 1.2 by adcroft, Mon May 24 18:44:27 2004 UTC revision 1.3 by adcroft, Wed Jul 7 14:10:42 2004 UTC
# Line 52  CEOP Line 52  CEOP
52  C Calculate tension of horizontal flow (ignoring lopping factors)  C Calculate tension of horizontal flow (ignoring lopping factors)
53  C *NOTE* that masking is implicit in the contents of the (u,v) fields.  C *NOTE* that masking is implicit in the contents of the (u,v) fields.
54          tension(i,j)=          tension(i,j)=
55       &    ( dyg( i , j ,bi,bj)*uFld( i , j )       &    ( dyg(i+1, j ,bi,bj)*uFld(i+1, j )
56       &     -dyg(i-1, j ,bi,bj)*uFld(i-1, j )       &     -dyg( i , j ,bi,bj)*uFld( i , j )
57       &     -dxg( i , j ,bi,bj)*vFld( i , j )       &     -dxg( i ,j+1,bi,bj)*vFld( i ,j+1)
58       &     +dxg( i ,j-1,bi,bj)*vFld( i ,j-1) )*recip_rAz(i,j,bi,bj)       &     +dxg( i , j ,bi,bj)*vFld( i , j ) )*recip_rA(i,j,bi,bj)
59  c    &    (dyf(i,j,bi,bj)*recip_dxf(i,j,bi,bj))  c    &    (dyf(i,j,bi,bj)*recip_dxf(i,j,bi,bj))
60  c    &   *( uFld(i+1, j )*recip_dyg(i+1, j ,bi,bj)  c    &   *( uFld(i+1, j )*recip_dyg(i+1, j ,bi,bj)
61  c    &     -uFld( i , j )*recip_dyg( i , j ,bi,bj) )  c    &     -uFld( i , j )*recip_dyg( i , j ,bi,bj) )
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22