/[MITgcm]/MITgcm/pkg/mom_fluxform/mom_fluxform.F
ViewVC logotype

Diff of /MITgcm/pkg/mom_fluxform/mom_fluxform.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.31 by heimbach, Thu Dec 8 15:44:34 2005 UTC revision 1.32 by mlosch, Tue Feb 7 11:46:18 2006 UTC
# Line 460  C-    No-slip BCs impose a drag at botto Line 460  C-    No-slip BCs impose a drag at botto
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    
# Line 624  C--   Tendency is minus divergence of th Line 635  C--   Tendency is minus divergence of th
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,
# Line 649  C-    No-slip BCs impose a drag at botto Line 660  C-    No-slip BCs impose a drag at botto
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    
Legend:
Removed from v.1.31  
changed lines
  Added in v.1.32
  ViewVC Help
Powered by ViewVC 1.1.22