237 |
|
|
238 |
CALL MOM_CALC_HDIV(bi,bj,k,2,uFld,vFld,hDiv,myThid) |
CALL MOM_CALC_HDIV(bi,bj,k,2,uFld,vFld,hDiv,myThid) |
239 |
|
|
240 |
CALL MOM_VI_CALC_RELVORT3(bi,bj,k,uFld,vFld,hFacZ,vort3,myThid) |
CALL MOM_CALC_RELVORT3(bi,bj,k,uFld,vFld,hFacZ,vort3,myThid) |
241 |
|
|
242 |
c CALL MOM_VI_CALC_ABSVORT3(bi,bj,k,vort3,omega3,myThid) |
c CALL MOM_CALC_ABSVORT3(bi,bj,k,vort3,omega3,myThid) |
243 |
|
|
244 |
IF (momViscosity) THEN |
IF (momViscosity) THEN |
245 |
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 |
248 |
O del2u,del2v, |
O del2u,del2v, |
249 |
& myThid) |
& myThid) |
250 |
CALL MOM_CALC_HDIV(bi,bj,k,2,del2u,del2v,dStar,myThid) |
CALL MOM_CALC_HDIV(bi,bj,k,2,del2u,del2v,dStar,myThid) |
251 |
CALL MOM_VI_CALC_RELVORT3( |
CALL MOM_CALC_RELVORT3( |
252 |
& bi,bj,k,del2u,del2v,hFacZ,zStar,myThid) |
& bi,bj,k,del2u,del2v,hFacZ,zStar,myThid) |
253 |
ENDIF |
ENDIF |
254 |
C Calculate dissipation terms for U and V equations |
C Calculate dissipation terms for U and V equations |