210 |
& .OR. viscA4D.NE.0. .OR. viscA4Z.NE.0. |
& .OR. viscA4D.NE.0. .OR. viscA4Z.NE.0. |
211 |
& .OR. viscA4Grid.NE.0. |
& .OR. viscA4Grid.NE.0. |
212 |
& .OR. viscC4leith.NE.0. |
& .OR. viscC4leith.NE.0. |
213 |
|
& .OR. viscC4leithD.NE.0. |
214 |
& ) THEN |
& ) THEN |
215 |
CALL MOM_VI_DEL2UV(bi,bj,k,hDiv,vort3,hFacZ, |
CALL MOM_VI_DEL2UV(bi,bj,k,hDiv,vort3,hFacZ, |
216 |
O del2u,del2v, |
O del2u,del2v, |
225 |
& .OR. viscA4D.NE.0. .OR. viscA4Z.NE.0. |
& .OR. viscA4D.NE.0. .OR. viscA4Z.NE.0. |
226 |
& .OR. viscAhGrid.NE.0. .OR. viscA4Grid.NE.0. |
& .OR. viscAhGrid.NE.0. .OR. viscA4Grid.NE.0. |
227 |
& .OR. viscC2leith.NE.0. .OR. viscC4leith.NE.0. |
& .OR. viscC2leith.NE.0. .OR. viscC4leith.NE.0. |
228 |
|
& .OR. viscC2leithD.NE.0. .OR. viscC4leithD.NE.0. |
229 |
& ) THEN |
& ) THEN |
230 |
CALL MOM_VI_HDISSIP(bi,bj,k,hDiv,vort3,hFacZ,dStar,zStar, |
CALL MOM_VI_HDISSIP(bi,bj,k,hDiv,vort3,hFacZ,dStar,zStar, |
231 |
O guDiss,gvDiss, |
O guDiss,gvDiss, |