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) |
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) |