/[MITgcm]/MITgcm/pkg/mom_vecinv/mom_u_bottomdrag.F
ViewVC logotype

Diff of /MITgcm/pkg/mom_vecinv/mom_u_bottomdrag.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.2 by adcroft, Tue May 29 14:01:39 2001 UTC revision 1.3 by heimbach, Fri Jul 13 13:49:05 2001 UTC
# Line 48  C-  No-slip BCs impose a drag at bottom Line 48  C-  No-slip BCs impose a drag at bottom
48       &   *(       &   *(
49       &      2.*KappaRU(i,j,kp1)*rkFac*rdrckp1*viscFac       &      2.*KappaRU(i,j,kp1)*rkFac*rdrckp1*viscFac
50       &     + bottomDragLinear       &     + bottomDragLinear
      &     + bottomDragQuadratic*sqrt(KE(i,j)+KE(i-1,j))  
51       &    )*(1.-maskDown)*uFld(i,j)       &    )*(1.-maskDown)*uFld(i,j)
52            IF ( (KE(i,j)+KE(i-1,j)) .NE. 0. ) THEN
53             uDragTerms(i,j)=uDragTerms(i,j)
54         &    -_recip_hFacW(i,j,k,bi,bj)*recip_drF(k)
55         &    *bottomDragQuadratic*sqrt(KE(i,j)+KE(i-1,j))
56         &    *(1.-maskDown)*uFld(i,j)
57            ENDIF
58         ENDDO         ENDDO
59        ENDDO        ENDDO
60    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22