Parent Directory
| 
Revision Log
| 
Revision Graph
| 
Patch
| revision 1.18 by mlosch, Thu Dec 9 09:01:07 2004 UTC | revision 1.19 by adcroft, Tue May 31 14:49:38 2005 UTC | |
|---|---|---|
| # | Line 302 caja and an hFacUS (above V po | Line 302 caja and an hFacUS (above V po |
| 302 | DO j=jMin,jMax | DO j=jMin,jMax |
| 303 | DO i=iMin,iMax | DO i=iMin,iMax |
| 304 | wVel(i,j,k,bi,bj) = wVel(i,j,k,bi,bj) | wVel(i,j,k,bi,bj) = wVel(i,j,k,bi,bj) |
| 305 | & +deltatMom*( ab15*gW(i,j,k,bi,bj) | & +deltatMom*nh_Am2*( ab15*gW(i,j,k,bi,bj) |
| 306 | & +ab05*gWNM1(i,j,k,bi,bj) ) | & +ab05*gWNM1(i,j,k,bi,bj) ) |
| 307 | IF (hFacC(I,J,K,bi,bj).EQ.0.) wVel(i,j,k,bi,bj)=0. | IF (hFacC(I,J,K,bi,bj).EQ.0.) wVel(i,j,k,bi,bj)=0. |
| 308 | ENDDO | ENDDO |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.22 |