/[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.13 by dimitri, Sun Jan 25 00:31:52 2004 UTC revision 1.14 by dimitri, Sat Feb 7 23:15:47 2004 UTC
# Line 240  c     CALL MOM_VI_CALC_ABSVORT3(bi,bj,k, Line 240  c     CALL MOM_VI_CALC_ABSVORT3(bi,bj,k,
240    
241        IF (momViscosity) THEN        IF (momViscosity) THEN
242  C      Calculate del^2 u and del^2 v for bi-harmonic term  C      Calculate del^2 u and del^2 v for bi-harmonic term
243         IF (viscA4.NE.0.) THEN         IF (viscA4.NE.0. .OR. viscA4Grid.NE.0.) THEN
244           CALL MOM_VI_DEL2UV(bi,bj,k,hDiv,vort3,hFacZ,           CALL MOM_VI_DEL2UV(bi,bj,k,hDiv,vort3,hFacZ,
245       O                      del2u,del2v,       O                      del2u,del2v,
246       &                      myThid)       &                      myThid)
# Line 250  C      Calculate del^2 u and del^2 v for Line 250  C      Calculate del^2 u and del^2 v for
250         ENDIF         ENDIF
251  C      Calculate dissipation terms for U and V equations  C      Calculate dissipation terms for U and V equations
252  C      in terms of vorticity and divergence  C      in terms of vorticity and divergence
253         IF (viscAh.NE.0. .OR. viscA4.NE.0.) THEN         IF (viscAh.NE.0. .OR. viscA4.NE.0. .OR.
254         &      viscAhGrid.NE.0. .OR. viscA4Grid.NE.0. ) THEN
255           CALL MOM_VI_HDISSIP(bi,bj,k,hDiv,vort3,hFacZ,dStar,zStar,           CALL MOM_VI_HDISSIP(bi,bj,k,hDiv,vort3,hFacZ,dStar,zStar,
256       O                       uDiss,vDiss,       O                       uDiss,vDiss,
257       &                       myThid)       &                       myThid)
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22