230 |
ENDIF |
ENDIF |
231 |
|
|
232 |
IF ( no_slip_bottom |
IF ( no_slip_bottom |
233 |
& .OR. bottomDragQuadratic.NE.0. |
& .OR. selectBotDragQuadr.GE.0 |
234 |
& .OR. bottomDragLinear.NE.0.) THEN |
& .OR. bottomDragLinear.NE.0.) THEN |
235 |
bottomDragTerms=.TRUE. |
bottomDragTerms=.TRUE. |
236 |
ELSE |
ELSE |
394 |
|
|
395 |
C- No-slip BCs impose a drag at bottom |
C- No-slip BCs impose a drag at bottom |
396 |
IF ( bottomDragTerms ) THEN |
IF ( bottomDragTerms ) THEN |
397 |
CALL MOM_U_BOTTOMDRAG(bi,bj,k,uFld,KE,kappaRU,vF,myThid) |
CALL MOM_U_BOTTOMDRAG( bi, bj, k, |
398 |
|
I uFld, vFld, KE, kappaRU, |
399 |
|
O vF, |
400 |
|
I myThid ) |
401 |
DO j=jMin,jMax |
DO j=jMin,jMax |
402 |
DO i=iMin,iMax |
DO i=iMin,iMax |
403 |
guDiss(i,j) = guDiss(i,j)+vF(i,j) |
guDiss(i,j) = guDiss(i,j)+vF(i,j) |
405 |
ENDDO |
ENDDO |
406 |
ENDIF |
ENDIF |
407 |
#ifdef ALLOW_SHELFICE |
#ifdef ALLOW_SHELFICE |
408 |
IF ( useShelfIce.AND.bottomDragTerms ) THEN |
IF ( useShelfIce ) THEN |
409 |
CALL SHELFICE_U_DRAG(bi,bj,k,uFld,KE,kappaRU,vF,myThid) |
CALL SHELFICE_U_DRAG( bi, bj, k, |
410 |
|
I uFld, vFld, KE, kappaRU, |
411 |
|
O vF, |
412 |
|
I myThid ) |
413 |
DO j=jMin,jMax |
DO j=jMin,jMax |
414 |
DO i=iMin,iMax |
DO i=iMin,iMax |
415 |
guDiss(i,j) = guDiss(i,j) + vF(i,j) |
guDiss(i,j) = guDiss(i,j) + vF(i,j) |
459 |
|
|
460 |
C- No-slip BCs impose a drag at bottom |
C- No-slip BCs impose a drag at bottom |
461 |
IF ( bottomDragTerms ) THEN |
IF ( bottomDragTerms ) THEN |
462 |
CALL MOM_V_BOTTOMDRAG(bi,bj,k,vFld,KE,kappaRV,vF,myThid) |
CALL MOM_V_BOTTOMDRAG( bi, bj, k, |
463 |
|
I uFld, vFld, KE, kappaRV, |
464 |
|
O vF, |
465 |
|
I myThid ) |
466 |
DO j=jMin,jMax |
DO j=jMin,jMax |
467 |
DO i=iMin,iMax |
DO i=iMin,iMax |
468 |
gvDiss(i,j) = gvDiss(i,j)+vF(i,j) |
gvDiss(i,j) = gvDiss(i,j)+vF(i,j) |
470 |
ENDDO |
ENDDO |
471 |
ENDIF |
ENDIF |
472 |
#ifdef ALLOW_SHELFICE |
#ifdef ALLOW_SHELFICE |
473 |
IF (useShelfIce.AND.bottomDragTerms ) THEN |
IF ( useShelfIce ) THEN |
474 |
CALL SHELFICE_V_DRAG(bi,bj,k,vFld,KE,kappaRV,vF,myThid) |
CALL SHELFICE_V_DRAG( bi, bj, k, |
475 |
DO j=jMin,jMax |
I uFld, vFld, KE, kappaRV, |
476 |
DO i=iMin,iMax |
O vF, |
477 |
gvDiss(i,j) = gvDiss(i,j) + vF(i,j) |
I myThid ) |
478 |
ENDDO |
DO j=jMin,jMax |
479 |
ENDDO |
DO i=iMin,iMax |
480 |
ENDIF |
gvDiss(i,j) = gvDiss(i,j) + vF(i,j) |
481 |
|
ENDDO |
482 |
|
ENDDO |
483 |
|
ENDIF |
484 |
#endif /* ALLOW_SHELFICE */ |
#endif /* ALLOW_SHELFICE */ |
485 |
|
|
486 |
C-- if (momViscosity) end of block. |
C-- if (momViscosity) end of block. |