Parent Directory | Revision Log | Revision Graph | Patch
revision 1.66 by jmc, Sun Mar 18 22:24:01 2012 UTC | revision 1.67 by jmc, Mon Mar 19 14:39:53 2012 UTC | |
---|---|---|
# | Line 360 C Combine fluxes | Line 360 C Combine fluxes |
360 | ENDDO | ENDDO |
361 | ||
362 | C-- Tendency is minus divergence of the fluxes | C-- Tendency is minus divergence of the fluxes |
363 | DO j=2-OLy,sNy+OLy-1 | DO j=jMin,jMax |
364 | DO i=2-OLx,sNx+OLx-1 | DO i=iMin,iMax |
365 | guDiss(i,j) = guDiss(i,j) | guDiss(i,j) = guDiss(i,j) |
366 | & -_recip_hFacW(i,j,k,bi,bj)*recip_drF(k) | & -_recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
367 | & *recip_rAw(i,j,bi,bj) | & *recip_rAw(i,j,bi,bj) |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |