/[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.55 by heimbach, Thu Dec 8 15:44:34 2005 UTC revision 1.56 by mlosch, Tue Feb 7 11:46:17 2006 UTC
# Line 352  C-    No-slip BCs impose a drag at botto Line 352  C-    No-slip BCs impose a drag at botto
352          ENDDO          ENDDO
353         ENDDO         ENDDO
354        ENDIF        ENDIF
355    #ifdef ALLOW_SHELFICE
356          IF (useShelfIce.AND.momViscosity.AND.bottomDragTerms) THEN
357           CALL SHELFICE_U_DRAG(bi,bj,k,uFld,KE,KappaRU,vF,myThid)
358           DO j=jMin,jMax
359            DO i=iMin,iMax
360             guDiss(i,j) = guDiss(i,j) + vF(i,j)
361            ENDDO
362           ENDDO
363          ENDIF
364    #endif /* ALLOW_SHELFICE */
365    
366    
367  C---  Other dissipation terms in Meridional momentum equation  C---  Other dissipation terms in Meridional momentum equation
368    
# Line 406  C-    No-slip BCs impose a drag at botto Line 417  C-    No-slip BCs impose a drag at botto
417          ENDDO          ENDDO
418         ENDDO         ENDDO
419        ENDIF        ENDIF
420    #ifdef ALLOW_SHELFICE
421          IF (useShelfIce.AND.momViscosity.AND.bottomDragTerms) THEN
422             CALL SHELFICE_V_DRAG(bi,bj,k,vFld,KE,KappaRU,vF,myThid)
423             DO j=jMin,jMax
424              DO i=iMin,iMax
425               gvDiss(i,j) = gvDiss(i,j) + vF(i,j)
426              ENDDO
427             ENDDO
428            ENDIF
429    #endif /* ALLOW_SHELFICE */
430    
431    
432  C-    Vorticity diagnostics:  C-    Vorticity diagnostics:
433        IF ( writeDiag ) THEN        IF ( writeDiag ) THEN
Legend:
Removed from v.1.55  
changed lines
  Added in v.1.56
  ViewVC Help
Powered by ViewVC 1.1.22