460 |
ENDDO |
ENDDO |
461 |
ENDIF |
ENDIF |
462 |
|
|
463 |
|
#ifdef ALLOW_SHELFICE |
464 |
|
IF (useShelfIce) THEN |
465 |
|
CALL SHELFICE_U_DRAG(bi,bj,k,uFld,KE,KappaRU,vF,myThid) |
466 |
|
DO j=jMin,jMax |
467 |
|
DO i=iMin,iMax |
468 |
|
gUdiss(i,j) = gUdiss(i,j) + vF(i,j) |
469 |
|
ENDDO |
470 |
|
ENDDO |
471 |
|
ENDIF |
472 |
|
#endif /* ALLOW_SHELFICE */ |
473 |
|
|
474 |
C- endif momViscosity |
C- endif momViscosity |
475 |
ENDIF |
ENDIF |
476 |
|
|
635 |
#endif |
#endif |
636 |
|
|
637 |
C-- No-slip and drag BCs appear as body forces in cell abutting topography |
C-- No-slip and drag BCs appear as body forces in cell abutting topography |
638 |
IF (no_slip_sides) THEN |
IF (no_slip_sides) THEN |
639 |
C- No-slip BCs impose a drag at walls... |
C- No-slip BCs impose a drag at walls... |
640 |
CALL MOM_V_SIDEDRAG( |
CALL MOM_V_SIDEDRAG( |
641 |
I bi,bj,k, |
I bi,bj,k, |
660 |
ENDDO |
ENDDO |
661 |
ENDIF |
ENDIF |
662 |
|
|
663 |
|
#ifdef ALLOW_SHELFICE |
664 |
|
IF (useShelfIce) THEN |
665 |
|
CALL SHELFICE_V_DRAG(bi,bj,k,vFld,KE,KappaRU,vF,myThid) |
666 |
|
DO j=jMin,jMax |
667 |
|
DO i=iMin,iMax |
668 |
|
gvDiss(i,j) = gvDiss(i,j) + vF(i,j) |
669 |
|
ENDDO |
670 |
|
ENDDO |
671 |
|
ENDIF |
672 |
|
#endif /* ALLOW_SHELFICE */ |
673 |
|
|
674 |
C- endif momViscosity |
C- endif momViscosity |
675 |
ENDIF |
ENDIF |
676 |
|
|