/[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.44 by jmc, Sun Mar 18 22:21:31 2012 UTC revision 1.45 by heimbach, Mon Oct 1 15:46:33 2012 UTC
# Line 780  C-    No-slip BCs impose a drag at botto Line 780  C-    No-slip BCs impose a drag at botto
780    
781  #ifdef ALLOW_SHELFICE  #ifdef ALLOW_SHELFICE
782          IF (useShelfIce) THEN          IF (useShelfIce) THEN
783           CALL SHELFICE_V_DRAG(bi,bj,k,vFld,KE,KappaRU,vF,myThid)           CALL SHELFICE_V_DRAG(bi,bj,k,vFld,KE,KappaRV,vF,myThid)
784           DO j=jMin,jMax           DO j=jMin,jMax
785            DO i=iMin,iMax            DO i=iMin,iMax
786             gvDiss(i,j) = gvDiss(i,j) + vF(i,j)             gvDiss(i,j) = gvDiss(i,j) + vF(i,j)
Legend:
Removed from v.1.44  
changed lines
  Added in v.1.45
  ViewVC Help
Powered by ViewVC 1.1.22