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