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

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

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

revision 1.27 by edhill, Wed Oct 13 04:37:37 2004 UTC revision 1.28 by jmc, Tue Nov 2 01:04:08 2004 UTC
# Line 278  C      Calculate del^2 u and del^2 v for Line 278  C      Calculate del^2 u and del^2 v for
278         ENDIF         ENDIF
279  C      Calculate dissipation terms for U and V equations  C      Calculate dissipation terms for U and V equations
280  C      in terms of vorticity and divergence  C      in terms of vorticity and divergence
281         IF (viscAh.NE.0. .OR. viscA4.NE.0.         IF (    viscAhD.NE.0. .OR. viscAhZ.NE.0.
282       &    .OR.  viscAhGrid.NE.0. .OR. viscA4Grid.NE.0.       &    .OR. viscA4D.NE.0. .OR. viscA4Z.NE.0.
283       &    .OR.  viscC2leith.NE.0. .OR. viscC4leith.NE.0.       &    .OR. viscAhGrid.NE.0. .OR. viscA4Grid.NE.0.
284         &    .OR. viscC2leith.NE.0. .OR. viscC4leith.NE.0.
285       &    ) THEN       &    ) THEN
286           CALL MOM_VI_HDISSIP(bi,bj,k,hDiv,vort3,hFacZ,dStar,zStar,           CALL MOM_VI_HDISSIP(bi,bj,k,hDiv,vort3,hFacZ,dStar,zStar,
287       O                       uDiss,vDiss,       O                       uDiss,vDiss,
Legend:
Removed from v.1.27  
changed lines
  Added in v.1.28
  ViewVC Help
Powered by ViewVC 1.1.22