302 |
ENDDO |
ENDDO |
303 |
|
|
304 |
CALL MOM_CALC_KE( bi,bj,k,2,uFld,vFld,KE,myThid ) |
CALL MOM_CALC_KE( bi,bj,k,2,uFld,vFld,KE,myThid ) |
305 |
IF ( momViscosity ) THEN |
IF ( useVariableVisc ) THEN |
306 |
CALL MOM_CALC_HDIV( bi,bj,k,2,uFld,vFld,hDiv,myThid ) |
CALL MOM_CALC_HDIV( bi,bj,k,2,uFld,vFld,hDiv,myThid ) |
307 |
CALL MOM_CALC_RELVORT3( bi,bj,k,uFld,vFld,hFacZ,vort3,myThid ) |
CALL MOM_CALC_RELVORT3( bi,bj,k,uFld,vFld,hFacZ,vort3,myThid ) |
308 |
CALL MOM_CALC_TENSION( bi,bj,k,uFld,vFld,tension,myThid ) |
CALL MOM_CALC_TENSION( bi,bj,k,uFld,vFld,tension,myThid ) |