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

Diff of /MITgcm/pkg/mom_vecinv/mom_vecinv.F

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

revision 1.67 by jmc, Mon Mar 19 14:39:53 2012 UTC revision 1.68 by heimbach, Mon Oct 1 15:46:33 2012 UTC
# Line 460  C-    No-slip BCs impose a drag at botto Line 460  C-    No-slip BCs impose a drag at botto
460        ENDIF        ENDIF
461  #ifdef ALLOW_SHELFICE  #ifdef ALLOW_SHELFICE
462        IF (useShelfIce.AND.momViscosity.AND.bottomDragTerms) THEN        IF (useShelfIce.AND.momViscosity.AND.bottomDragTerms) THEN
463           CALL SHELFICE_V_DRAG(bi,bj,k,vFld,KE,KappaRU,vF,myThid)           CALL SHELFICE_V_DRAG(bi,bj,k,vFld,KE,KappaRV,vF,myThid)
464           DO j=jMin,jMax           DO j=jMin,jMax
465            DO i=iMin,iMax            DO i=iMin,iMax
466             gvDiss(i,j) = gvDiss(i,j) + vF(i,j)             gvDiss(i,j) = gvDiss(i,j) + vF(i,j)
Legend:
Removed from v.1.67  
changed lines
  Added in v.1.68
  ViewVC Help
Powered by ViewVC 1.1.22