/[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.53 by jmc, Wed Dec 24 19:12:56 2014 UTC revision 1.54 by jmc, Sat Jan 3 23:57:57 2015 UTC
# Line 253  C       vorticity at a no-slip boundary Line 253  C       vorticity at a no-slip boundary
253        ENDIF        ENDIF
254    
255        IF (     no_slip_bottom        IF (     no_slip_bottom
256       &    .OR. bottomDragQuadratic.NE.0.       &    .OR. selectBotDragQuadr.GE.0
257       &    .OR. bottomDragLinear.NE.0.) THEN       &    .OR. bottomDragLinear.NE.0.) THEN
258         bottomDragTerms=.TRUE.         bottomDragTerms=.TRUE.
259        ELSE        ELSE
# Line 574  C-     No-slip BCs impose a drag at wall Line 574  C-     No-slip BCs impose a drag at wall
574          ENDIF          ENDIF
575  C-    No-slip BCs impose a drag at bottom  C-    No-slip BCs impose a drag at bottom
576          IF (bottomDragTerms) THEN          IF (bottomDragTerms) THEN
577           CALL MOM_U_BOTTOMDRAG( bi,bj,k,uFld,KE,kappaRU,vF,myThid )           CALL MOM_U_BOTTOMDRAG( bi, bj, k,
578         I              uFld, vFld, KE, kappaRU,
579         O              vF,
580         I              myThid )
581           DO j=jMin,jMax           DO j=jMin,jMax
582            DO i=iMin,iMax            DO i=iMin,iMax
583             gUdiss(i,j) = gUdiss(i,j) + vF(i,j)             gUdiss(i,j) = gUdiss(i,j) + vF(i,j)
# Line 584  C-    No-slip BCs impose a drag at botto Line 587  C-    No-slip BCs impose a drag at botto
587    
588  #ifdef ALLOW_SHELFICE  #ifdef ALLOW_SHELFICE
589          IF (useShelfIce) THEN          IF (useShelfIce) THEN
590           CALL SHELFICE_U_DRAG( bi,bj,k,uFld,KE,kappaRU,vF,myThid )           CALL SHELFICE_U_DRAG( bi, bj, k,
591         I              uFld, vFld, KE, kappaRU,
592         O              vF,
593         I              myThid )
594           DO j=jMin,jMax           DO j=jMin,jMax
595            DO i=iMin,iMax            DO i=iMin,iMax
596             gUdiss(i,j) = gUdiss(i,j) + vF(i,j)             gUdiss(i,j) = gUdiss(i,j) + vF(i,j)
# Line 800  C-     No-slip BCs impose a drag at wall Line 806  C-     No-slip BCs impose a drag at wall
806          ENDIF          ENDIF
807  C-    No-slip BCs impose a drag at bottom  C-    No-slip BCs impose a drag at bottom
808          IF (bottomDragTerms) THEN          IF (bottomDragTerms) THEN
809           CALL MOM_V_BOTTOMDRAG( bi,bj,k,vFld,KE,KappaRV,vF,myThid )           CALL MOM_V_BOTTOMDRAG( bi, bj, k,
810         I              uFld, vFld, KE, kappaRV,
811         O              vF,
812         I              myThid )
813           DO j=jMin,jMax           DO j=jMin,jMax
814            DO i=iMin,iMax            DO i=iMin,iMax
815             gvDiss(i,j) = gvDiss(i,j) + vF(i,j)             gvDiss(i,j) = gvDiss(i,j) + vF(i,j)
# Line 810  C-    No-slip BCs impose a drag at botto Line 819  C-    No-slip BCs impose a drag at botto
819    
820  #ifdef ALLOW_SHELFICE  #ifdef ALLOW_SHELFICE
821          IF (useShelfIce) THEN          IF (useShelfIce) THEN
822           CALL SHELFICE_V_DRAG( bi,bj,k,vFld,KE,KappaRV,vF,myThid )           CALL SHELFICE_V_DRAG( bi, bj, k,
823         I              uFld, vFld, KE, kappaRV,
824         O              vF,
825         I              myThid )
826           DO j=jMin,jMax           DO j=jMin,jMax
827            DO i=iMin,iMax            DO i=iMin,iMax
828             gvDiss(i,j) = gvDiss(i,j) + vF(i,j)             gvDiss(i,j) = gvDiss(i,j) + vF(i,j)
Legend:
Removed from v.1.53  
changed lines
  Added in v.1.54
  ViewVC Help
Powered by ViewVC 1.1.22