/[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.54 by jmc, Sat Jan 3 23:57:57 2015 UTC revision 1.55 by jmc, Wed Nov 30 00:11:22 2016 UTC
# Line 252  C       vorticity at a no-slip boundary Line 252  C       vorticity at a no-slip boundary
252          sideMaskFac = 0. _d 0          sideMaskFac = 0. _d 0
253        ENDIF        ENDIF
254    
255        IF (     no_slip_bottom        IF ( selectImplicitDrag.EQ.0 .AND.
256         &      (  no_slip_bottom
257       &    .OR. selectBotDragQuadr.GE.0       &    .OR. selectBotDragQuadr.GE.0
258       &    .OR. bottomDragLinear.NE.0.) THEN       &    .OR. bottomDragLinear.NE.0. ) ) THEN
259         bottomDragTerms=.TRUE.         bottomDragTerms=.TRUE.
260        ELSE        ELSE
261         bottomDragTerms=.FALSE.         bottomDragTerms=.FALSE.
Legend:
Removed from v.1.54  
changed lines
  Added in v.1.55
  ViewVC Help
Powered by ViewVC 1.1.22