Parent Directory | Revision Log | Revision Graph | 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) |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |