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

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

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

revision 1.1 by adcroft, Fri May 14 17:43:11 2004 UTC revision 1.2 by jmc, Wed Jun 22 00:29:02 2005 UTC
# Line 55  C     - Laplacian  and bi-harmonic terms Line 55  C     - Laplacian  and bi-harmonic terms
55          rViscFluxV(i,j) =          rViscFluxV(i,j) =
56       &   -KappaRV(i,j,kp1)       &   -KappaRV(i,j,kp1)
57       &   *rAs(i,j,bi,bj)       &   *rAs(i,j,bi,bj)
58       &   *( vFld(i,j,k,bi,bj)-vFld(i,j,kp1,bi,bj)       &   *( vFld(i,j,kp1,bi,bj)-vFld(i,j,k,bi,bj)
59       &    )*rkFac*recip_drC(kp1)       &    )*rkSign*recip_drC(kp1)
60       &    *_maskS(i,j,k,bi,bj)       &    *_maskS(i,j,k,bi,bj)
61       &    *_maskS(i,j,kp1,bi,bj)       &    *_maskS(i,j,kp1,bi,bj)
62         ENDDO         ENDDO
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22