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