/[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.77 by jmc, Thu Sep 10 18:08:51 2015 UTC revision 1.78 by jmc, Wed Nov 30 00:11:22 2016 UTC
# Line 229  C       vorticity at a no-slip boundary Line 229  C       vorticity at a no-slip boundary
229          sideMaskFac = 0. _d 0          sideMaskFac = 0. _d 0
230        ENDIF        ENDIF
231    
232        IF (     no_slip_bottom        IF ( selectImplicitDrag.EQ.0 .AND.
233         &      (  no_slip_bottom
234       &    .OR. selectBotDragQuadr.GE.0       &    .OR. selectBotDragQuadr.GE.0
235       &    .OR. bottomDragLinear.NE.0.) THEN       &    .OR. bottomDragLinear.NE.0. ) ) THEN
236         bottomDragTerms=.TRUE.         bottomDragTerms=.TRUE.
237        ELSE        ELSE
238         bottomDragTerms=.FALSE.         bottomDragTerms=.FALSE.
Legend:
Removed from v.1.77  
changed lines
  Added in v.1.78
  ViewVC Help
Powered by ViewVC 1.1.22